求这种目录下拉效果



我要的是这些数据都从数据库里读出来
像设置管理，论坛管理，用户管理在表lb
社区基本设置，发布社区公告在表xlb
请问用ASP写，要怎样才可以实现这种效果

<script language=javascript> function showsub(sid) { gg = eval("sub" + sid); if (gg.style.display == "none") { HideAll() eval("sub" + sid + ".style.display=\"\";");

} else { HideAll() eval("sub" + sid + ".style.display=\"\";");

} } </script> <script language="javascript"> function HideAll() { sub0.style.display="none"; sub1.style.display="none"; sub2.style.display="none"; sub3.style.display="none"; sub4.style.display="none"; sub5.style.display="none"; }</script>

<style type="text/css"> <!-- .style1 {color: #FFFFFF} body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; background-color: #297BDE; } table{font-size:9pt;} --> </style>

和静态设置好的不是一牛事么。

sub menu(selec)
sql="Select * From menu where followid="&selec&" order by SortNum"
Set Rs1=Conn.Execute(sql)
do while not rs1.eof
if rs1("followid")=0 then
%&gt; | &lt;a onmouseover="showmenu(event,'&lt;%menu(rs1("id"))%&gt;')" style=cursor:default&gt;&lt;%=rs1("name")%&gt;&lt;/a&gt;&lt;%
else
response.write "&lt;div class=menuitems&gt;&lt;a href="&rs1("url")&"&gt;"&rs1("name")&"&lt;/a&gt;&lt;/div&gt;"
end if
rs1.movenext
loop
Set Rs1 = Nothing
end sub



以上是BBSXP中这种功能的源代码
你看看是否对你有帮助
相关内容你可以下载一个BBSXP
找到其中的setup.asp文件然后进行查找