ASP+ACCESS实现的无限级目录树

发布: 2007-6-30 18:56 | 作者: admin | 来源: | 查看: 13次 | 进入软件测试论坛讨论

下载地址：

关键代码：

<%
set conn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr
function menu(id)
set rs=server.CreateObject("adodb.recordset")
sql="select * from menu where id1="&id&" order by url,id"
rs.open sql,conn,1,1
if rs.recordcount=0 then
rs.close
set rs=nothing
exit function
end if
response.write("<table border=@#0@# cellspacing=@#0@# cellpadding=@#0@#>")
i=1
while not rs.eof
if len(rs("url"))>0 then
if i=rs.recordcount then
　menutype="file1"
else
　menutype="file"
end if
menuname="<a href=@#"&rs("url")&"@# target=@#_blank@#>"&rs("menuname")&"</a>"
onmouseup=""
else
if i=rs.recordcount then
　menutype="menu3"
　listtype="list1"
　onmouseup="with(eval(@#id"&rs("id")&"@#))if(style.display==@#@#){style.display=@#none@#;this.className=@#menu3@#;}else{style.display=@#@#;this.className=@#menu4@#;}"
else
　menutype="menu1"
　listtype="list"
　onmouseup="with(eval(@#id"&rs("id")&"@#))if(style.display==@#@#){style.display=@#none@#;this.className=@#menu1@#;}else{style.display=@#@#;this.className=@#menu2@#;}"
end if
menuname=rs("menuname")
end if
%>
　<tr>
　　<td class="<%= menutype%>" onMouseUp="<%= onmouseup%>"><%= menuname%></td>
　</tr>
<%if len(rs("url"))<3 then%>
　<tr id="id<%= rs("id")%>" style="display:none">
　　<td class="<%= listtype%>"><%menu(rs("id"))%></td>
　</tr>
<%
end if
rs.movenext
i=i+1
wend
response.write("</table>")
rs.close
set rs=nothing
end function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>=========无限级目录树=========http://www.webjx.com</title>
<style type="text/css">

</style>
</head>
<body>
<a href="" target="_blank">http://www.webjx.com/</a>提供最新下载《<a href="menu.asp">管理</a>》<br>
<%
menu 0
conn.close
set conn=nothing
%>
</body>
</html>

文章来源于领测软件测试网 https://www.ltesting.net/

软件测试论坛

领测软件测试网最新更新

软件测试技术相关文章

软件测试培训信息

最新软件测试技术专题

最新领测软件测试网新闻

软件测试技术文章排行榜

编辑推荐
周排行
月排行

软件测试技术分类最新内容