还是关于动态显示数据的问题
怎样才能实现上面的效果
第一级和第二级是从数据库中得到的,动态数据
根据 yms123 的帖子
http://www.bc-cn.net/bbs/dispbbs.asp?boardid=10&replyid=80250&id=53599&page=1&skin=0&Star=2
我进行了改造可以,可以达到下面的效果
但是我想知道,一级和二级 怎么才能也作成 这种下拉框的方式,然后点击一级下拉框
二级的随着改变
以下是改造的代码清单
<script language=javascript>
function ShowLayer(index)
{
if(this.Layer(index).style.display=="none")
{
this.Layer(index).style.display="block";
}
else
{
this.Layer(index).style.display="none";
}
}
</script>
<table border="1" style="border-collapse: collapse" width="6%" id="table1">
<%
Dim rsA'主菜单记录集
Dim rsB'子菜单记录集
Dim i
i=0
set rsA=server.createobject("adodb.recordset")
sql="select * from user_1"
rsA.open sql,conn,1,1
Do Until rsA.EOF
With Response
.Write "<tr>"
.Write " <td><a href=# onclick=ShowLayer("&i&"); >"&rsA("username")&"</a></td>"
.Write "</tr>"
set rsB=server.createobject("adodb.recordset")
sql="select * from user_jg where username_1='"&rsA("username")&"'"
rsB.open sql,conn,1,1
.Write" <td>"
.Write" <div style=display:none; id=Layer>"
IF Not rsB.EOF Then
.Write "<select size='1' name='D1'>"
Do Until rsB.EOF
.Write "<option value='"&rsB("jgmc_1")&"'>"&rsB("jgbm_1")&"</option>"
rsB.MoveNext
Loop
.Write "</select>"
End IF
rsB.close
set rsB=nothing
.Write " </div>"
.Write " </td>"
.Write "</tr>"
End With
rsA.MoveNext
i=i+1
Loop
%>
</table>
[此贴子已经被作者于2006-6-12 23:49:49编辑过]