更多ASP级联菜单效果代码在网上使用

复制代码代码如下所示：






新的1页


<
昏暗的RS
sql
模糊数
集= server.createobject（ADODB。记录集）
SQL =SELECT * FROM shiinfo订单ID ASC
rs.open sql，Conn，1,1
%>


无功onecount；
onecount = 0；
subcat =新的数组（）；
<
数= 0
do while not rs.eof
%>
subcat { } =新的数组（
<
计数=计数+ 1
移到下一项
环
关闭
%>
onecount =；
功能变化的位置（LocationID）
{
document.form1.cid.length = 0；
VaR LocationID = LocationID；
var i；
为（i = 0；i < onecount；i++）
{
如果（subcat {我} { 1 } = LocationID）
{
文件。1。CID。选择{文件。1。CID。长度} =新的选项（subcat {我} { 0 }，{我subcat } { 2 }）；
}
}
}



<！——
checkform（）函数
{
文件。1。txtcontent价值= document.form1.doc_html.value；
返回true
}



<省
SQL =SELECT * FROM shenginfo
rs.open sql，Conn，1,1
如果rs.eof和rs.bof然后
response.write 请加入全省第一。
response.end
其他的
%>
<
do while not rs.eof
% > >
<
移到下一项
环
最后如果
关闭
%>

城市uff1a
请选择城市= =