网上用的比较多的asp级联菜单效果代码

复制代码代码如下: <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>New Page 1</title> </head> <body> <% dim rs dim sql dim count set rs=server.createobject("adodb.recordset") sql = "select * from shiinfo order by id asc" rs.open sql,conn,1,1 %> <SCRIPT language="JavaScript"> var onecount; onecount=0; subcat = new Array(); <% count = 0 do while not rs.eof %> subcat[<%=count%>] = new Array("<%= trim(rs("shiname"))%>","<%= trim(rs("shengcode"))%>","<%= trim(rs("id"))%>"); <% count = count + 1 rs.movenext loop rs.close %> onecount=<%=count%>; function changelocation(locationid) { document.form1.cid.length = 0; var locationid=locationid; var i; for (i=0;i < onecount; i++) { if (subcat[i][1] == locationid) { document.form1.cid.options[document.form1.cid.length] = new Option(subcat[i][0], subcat[i][2]); } } } </SCRIPT> <SCRIPT language="javascript">  </SCRIPT> <form name=form1 onsubmit="check()"> 省份 <% sql = "select * from shenginfo" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "请先添加省份。" response.end else %> <Select name="sid" onChange="changelocation(document.form1.sid.options[document.form1.sid.selectedIndex].value)" ><% do while not rs.eof %><OPTION selected value="<%=trim(rs("id"))%>"><%=trim(rs("shengname"))%></OPTION> <% rs.movenext loop end if rs.close %> </Select> 城市：<Select name="cid"> <OPTION selected value="">==请选城市==</OPTION> </Select> </form> </body> </html>

　　推荐阅读

　　asp下让数据库在需要读取的时候才打开第1/2页

细心的开发人员有时会想到，我们在一个需要读写数据库的页面里包含类似 的代码时，当你没有进行读取操作，数据库究竟是怎么样的状态呢？那么，我们有没有办法让数据库连接仅在>>>详细阅读

本文标题：网上用的比较多的asp级联菜单效果代码

地址：http://www.17bianji.com/kaifa2/ASP/32259.html

1/2 1