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

时间：2021-05-18

复制代码 代码如下:
<!--#includefile="conn.asp"-->
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<metaname="GENERATOR"content="MicrosoftFrontPage4.0">
<metaname="ProgId"content="FrontPage.Editor.Document">
<title>NewPage1</title>
</head>
<body>
<%
dimrs
dimsql
dimcount
setrs=server.createobject("adodb.recordset")
sql="select*fromshiinfoorderbyidasc"
rs.opensql,conn,1,1
%>

<SCRIPTlanguage="JavaScript">
varonecount;
onecount=0;
subcat=newArray();
<%
count=0
dowhilenotrs.eof
%>
subcat[<%=count%>]=newArray("<%=trim(rs("shiname"))%>","<%=trim(rs("shengcode"))%>","<%=trim(rs("id"))%>");
<%
count=count+1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;
functionchangelocation(locationid)
{
document.form1.cid.length=0;
varlocationid=locationid;
vari;
for(i=0;i<onecount;i++)
{
if(subcat[i][1]==locationid)
{
document.form1.cid.options[document.form1.cid.length]=newOption(subcat[i][0],subcat[i][2]);
}
}
}

</SCRIPT>
<SCRIPTlanguage="javascript">
<!--
functionCheckForm()
{
document.form1.txtcontent.value=document.form1.doc_html.value;
returntrue
}
//-->
</SCRIPT>
<formname=form1onsubmit="check()">
省份<%
sql="select*fromshenginfo"
rs.opensql,conn,1,1
ifrs.eofandrs.bofthen
response.write"请先添加省份。"
response.end
else
%>
<Selectname="sid"onChange="changelocation(document.form1.sid.options[document.form1.sid.selectedIndex].value)"><%
dowhilenotrs.eof
%><OPTIONselectedvalue="<%=trim(rs("id"))%>"><%=trim(rs("shengname"))%></OPTION>
<%
rs.movenext
loop
endif
rs.close
%>
</Select>
城市：<Selectname="cid">
<OPTIONselectedvalue="">==请选城市==</OPTION>
</Select>
</form>
</body>
</html>

声明：本页内容来源网络，仅供用户参考；我单位不保证亦不表示资料全面及准确无误，也不保证亦不表示这些资料为最新信息，如因任何原因，本网内容或者用户因倚赖本网内容造成任何损失或损害，我单位将不会负任何法律责任。如涉及版权问题，请提交至online#300.cn邮箱联系删除。

相关文章