網上用的比較多的asp級聯菜單效果代碼

2020-07-27 13:01:03

字體：大中小

來源：轉載

供稿：網友

復制代碼代碼如下:

<!--#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>   
城市：<Select name="cid">  
<OPTION selected value="">==請選城市==</OPTION>  
</Select>  
</form>  
</body>  
</html>