如何实现 asp+access 无刷新联动菜单 10
如何让第二级菜单与第一级菜单联动代码:<!--选择项目--><%rst1.open"xm",conn,1,1zts1=rst1.recordcountfork1=1toz...
如何让第二级菜单与第一级菜单联动
代码:
<!--选择项目-->
<%
rst1.open "xm",conn,1,1
zts1=rst1.recordcount
for k1=1 to zts1
%>
<option value="<%=rst1("xm_mc")%>"><%=rst1("xm_mc")%></option>
<%
rst1.movenext
if rst1.eof=true then
exit for
end if
next
%>
</select>
</p>
</form>
<p> </p>
<form id="form3" name="form3" method="post" action="">
<label for="select5"></label>
<select name="cd_pb" id="select5" onchange="changeSelect(this.selectedIndex)">
<!--选择评比内容-->
<%
Sql2="select * from pb where xm_id=2 "'&dm_xmid
rst2.open Sql2,conn,1,1
zts2=rst2.recordcount
for k2=1 to zts2
%>
<option value="<%=rst2("pbnr")%>"><%=rst2("pbnr")%></option>
<%
rst2.movenext
if rst2.eof=true then
exit for
end if
next
%>
</select>
</form>
<p> </p>
<form id="form4" name="form4" method="post" action="">
<p>
<label for="select6"></label>
<select name="cd_jc" id="select6"> 展开
代码:
<!--选择项目-->
<%
rst1.open "xm",conn,1,1
zts1=rst1.recordcount
for k1=1 to zts1
%>
<option value="<%=rst1("xm_mc")%>"><%=rst1("xm_mc")%></option>
<%
rst1.movenext
if rst1.eof=true then
exit for
end if
next
%>
</select>
</p>
</form>
<p> </p>
<form id="form3" name="form3" method="post" action="">
<label for="select5"></label>
<select name="cd_pb" id="select5" onchange="changeSelect(this.selectedIndex)">
<!--选择评比内容-->
<%
Sql2="select * from pb where xm_id=2 "'&dm_xmid
rst2.open Sql2,conn,1,1
zts2=rst2.recordcount
for k2=1 to zts2
%>
<option value="<%=rst2("pbnr")%>"><%=rst2("pbnr")%></option>
<%
rst2.movenext
if rst2.eof=true then
exit for
end if
next
%>
</select>
</form>
<p> </p>
<form id="form4" name="form4" method="post" action="">
<p>
<label for="select6"></label>
<select name="cd_jc" id="select6"> 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询