ASP動(dòng)態(tài)級(jí)聯(lián)菜單實(shí)現(xiàn)代碼
更新時(shí)間:2008年04月10日 23:17:17 作者:
asp級(jí)聯(lián)菜單效果代碼
<!--打開兩個(gè)表-->
<%
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from type1"
rs1.open sql1,conn,1,3
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from type2"
rs2.open sql2,conn,1,3
%>
<form name="form1">
<!--建立菜單一-->
<select name="type" size="1" onChange="redirect(this.options.value)">
<option value=0>請(qǐng)選擇……</option>
<%while not rs1.eof%>
<option value="<%=rs1("news_type_1_id")%>"><%=rs1("news_type_1_type")%></option>
<%rs1.movenext
wend%>
</select>
<!--建立菜單二-->
<select name="type2" size="1">
<option value=0>請(qǐng)選擇</option>
</select>
</div>
</form>
<!--下面為具體實(shí)現(xiàn)的script語(yǔ)句-->
<script>
<!--
var temp=document.form1.type2
function redirect(x){
var i
i=0
for (var m=temp.options.length-1;m>0;m--)
temp.options[m]=null
<%while not rs2.eof
%>
cnt=<%=rs2("news_type_1_id")%>
if(cnt==x) {
temp.options=new Option("<%=rs2("news_type_2_type")%>","<%=rs2("news_type_2_id")%>")
i=i+1}
<%
rs2.movenext
wend%>
}
//-->
</script>
<%
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from type1"
rs1.open sql1,conn,1,3
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from type2"
rs2.open sql2,conn,1,3
%>
<form name="form1">
<!--建立菜單一-->
<select name="type" size="1" onChange="redirect(this.options.value)">
<option value=0>請(qǐng)選擇……</option>
<%while not rs1.eof%>
<option value="<%=rs1("news_type_1_id")%>"><%=rs1("news_type_1_type")%></option>
<%rs1.movenext
wend%>
</select>
<!--建立菜單二-->
<select name="type2" size="1">
<option value=0>請(qǐng)選擇</option>
</select>
</div>
</form>
<!--下面為具體實(shí)現(xiàn)的script語(yǔ)句-->
<script>
<!--
var temp=document.form1.type2
function redirect(x){
var i
i=0
for (var m=temp.options.length-1;m>0;m--)
temp.options[m]=null
<%while not rs2.eof
%>
cnt=<%=rs2("news_type_1_id")%>
if(cnt==x) {
temp.options=new Option("<%=rs2("news_type_2_type")%>","<%=rs2("news_type_2_id")%>")
i=i+1}
<%
rs2.movenext
wend%>
}
//-->
</script>
相關(guān)文章
響應(yīng)對(duì)象 錯(cuò)誤 ''ASP 0185 : 80020003'' 缺少默認(rèn)屬性
發(fā)現(xiàn)個(gè)垃圾后臺(tái)用了大量的Response.Cookies,導(dǎo)致后臺(tái)認(rèn)證出錯(cuò)。2007-12-12
asp 性能測(cè)試報(bào)告 學(xué)習(xí)asp朋友需要了解的東西
看了下面的文章,發(fā)現(xiàn)作者的測(cè)試真的對(duì)用asp的朋友很有幫助,不只是asp其它的語(yǔ)言應(yīng)該也類似。2009-12-12
如何使用ASP設(shè)置指定站點(diǎn)CPU最大使用程度
如何使用ASP設(shè)置指定站點(diǎn)CPU最大使用程度...2007-01-01
asp將全角的字符轉(zhuǎn)變成半角字符,將半角轉(zhuǎn)變成全角d的代碼
2008-01-01
asp通過JMAIL實(shí)現(xiàn)通用發(fā)送函數(shù)
asp通過JMAIL實(shí)現(xiàn)通用發(fā)送函數(shù)...2007-08-08
asp使用AspJson轉(zhuǎn)換json數(shù)據(jù)
需要使用json數(shù)據(jù)的場(chǎng)景很多,那么asp中如何操作json數(shù)據(jù)呢?asp與json格式又如何交互呢?本文介紹使用AspJson轉(zhuǎn)換為json格式數(shù)據(jù)輸出,以及解析json數(shù)據(jù)2024-01-01
ASP中不用模板生成HTML靜態(tài)頁(yè)面的方法
我們一般生成HTML靜態(tài)頁(yè)時(shí),常常會(huì)事先做好一個(gè)模板,然后生成時(shí)調(diào)用模板文件。那么有沒有辦法不用模板,如一個(gè)正常的htmer.asp頁(yè)面,直接生成為htmer.html頁(yè)面呢?2010-06-06

