新微赢技术网

标题: 还是关于动态显示数据的问题 [打印本页]

作者: ＱＱ糖 时间: 2010-1-20 02:09
标题: 还是关于动态显示数据的问题
怎样才能实现上面的效果
第一级和第二级是从数据库中得到的，动态数据

根据 yms123 的帖子
http://www.bc-cn.net/bbs/dispbbs.asp?boardid=10&replyid=80250&id=53599&page=1&skin=0&Star=2
[知识问答ωωω.χiuGoo.сom]
我进行了改造可以，可以达到下面的效果

但是我想知道，一级和二级怎么才能也作成这种下拉框的方式，然后点击一级下拉框
二级的随着改变

以下是改造的代码清单
<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>

附件: 只有本站会员才能下载或查看附件，请您登录或注册

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)