网上用的比较多的asp级联菜单成效代码
|
网上用的比较多的asp级联菜单成效代码： 代码如下: <!--#include file="conn.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"> <!-- function CheckForm() { document.form1.txtcontent.value=document.form1.doc_html.value; return true } //--> </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> （编辑：银川站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
