ASP结合数据库的三级树型菜单
作者:NetFox 日期:2006-06-17
前几天看到一个很漂亮的JavaScript三级树型菜单,修改了下,结合ASP和SQL做了个动态的.
代码如下：
<HTML><HEAD><TITLE>--Tree--</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<style type=text/css>
body {font-size:12px}
a:hover { font-size:12px; color: #000000; text-decoration: none }
a:visited { font-size:12px; color: #000000; text-decoration: none}
a:active { font-size:12px; color: #000000; text-decoration: none}
a:link { font-size:12px; color: #000000; text-decoration: none}
</style>
<SCRIPT src="tree.js" type="text/javascript"></script>
</HEAD>
<BODY>
<DIV align=left>
<TABLE border=0 cellpadding="0" cellspacing="0" >
<TR>
<TD>
<!--#include file="conn.asp"-->
<% set rs=server.createobject("ADODB.Recordset")
sql="select * from yijiju"
rs.open sql,conn,1,1
if not rs.eof then
%>
<script>
ax0 = gFld("请选择总局","");
<% for i=1 to rs.recordcount %>
ax1=insFld(ax0, gFld ('<% =rs("yijijuname")%>','#','ftv2folderopen.gif', 'ftv2folderclosed.gif')); <!-- 总局 -->
<%
set rs2=server.createobject("ADODB.Recordset")
sql2="select * from erjiju where shuyijiju='"& rs("yijijuname") &"' and erjijuname<>'" & rs("yijijuname") & "'"
rs2.open sql2,conn,1,1
if not rs2.eof then
for j=1 to rs2.recordcount
%>
ax2=insFld(ax1, gFld ('<% =rs2("erjijuname")%>','#','ftv2folderopen.gif', 'ftv2folderclosed.gif')); <!-- 端局 -->
<%
set rs3=server.createobject("ADODB.Recordset")
sql3="select * from sanjiju where shuerjiju='"& rs2("erjijuname") &"' and sanjijuname<>'" & rs2("erjijuname") & "'"
rs3.open sql3,conn,1,1
if not rs3.eof then
for k=1 to rs3.recordcount
%>
insDoc(ax2, gLnk (0,'<% =rs3("sanjijuname")%>','#','ftv2doc.gif')); <!-- 模块 -->
<%
rs3.movenext
if rs3.eof then exit for
next
%>
<%
else
%>
insDoc(ax2, gLnk (0,'暂无模块数据','#','ftv2doc.gif')); <!-- 模块 -->
<% end if %>
<%
rs2.movenext
if rs2.eof then exit for
next
else
%>
ax2=insFld(ax1, gFld ('暂无端局数据','#','ftv2folderopen.gif', 'ftv2folderclosed.gif')); <!-- 端局 -->
<% end if %>
<% rs.movenext
if rs.eof then exit for
next
%>
initializeDocument();
</script>
<% else
response.write "暂无总局数据"
end if
%>
</TD>
</TR>
</TABLE>
<%
rs3.Close
Set rs3 = Nothing
rs2.Close
Set rs2 = Nothing
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
</BODY></HTML>
有兴趣的朋友可以下载原代码看看！
代码如下：
<HTML><HEAD><TITLE>--Tree--</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<style type=text/css>
body {font-size:12px}
a:hover { font-size:12px; color: #000000; text-decoration: none }
a:visited { font-size:12px; color: #000000; text-decoration: none}
a:active { font-size:12px; color: #000000; text-decoration: none}
a:link { font-size:12px; color: #000000; text-decoration: none}
</style>
<SCRIPT src="tree.js" type="text/javascript"></script>
</HEAD>
<BODY>
<DIV align=left>
<TABLE border=0 cellpadding="0" cellspacing="0" >
<TR>
<TD>
<!--#include file="conn.asp"-->
<% set rs=server.createobject("ADODB.Recordset")
sql="select * from yijiju"
rs.open sql,conn,1,1
if not rs.eof then
%>
<script>
ax0 = gFld("请选择总局","");
<% for i=1 to rs.recordcount %>
ax1=insFld(ax0, gFld ('<% =rs("yijijuname")%>','#','ftv2folderopen.gif', 'ftv2folderclosed.gif')); <!-- 总局 -->
<%
set rs2=server.createobject("ADODB.Recordset")
sql2="select * from erjiju where shuyijiju='"& rs("yijijuname") &"' and erjijuname<>'" & rs("yijijuname") & "'"
rs2.open sql2,conn,1,1
if not rs2.eof then
for j=1 to rs2.recordcount
%>
ax2=insFld(ax1, gFld ('<% =rs2("erjijuname")%>','#','ftv2folderopen.gif', 'ftv2folderclosed.gif')); <!-- 端局 -->
<%
set rs3=server.createobject("ADODB.Recordset")
sql3="select * from sanjiju where shuerjiju='"& rs2("erjijuname") &"' and sanjijuname<>'" & rs2("erjijuname") & "'"
rs3.open sql3,conn,1,1
if not rs3.eof then
for k=1 to rs3.recordcount
%>
insDoc(ax2, gLnk (0,'<% =rs3("sanjijuname")%>','#','ftv2doc.gif')); <!-- 模块 -->
<%
rs3.movenext
if rs3.eof then exit for
next
%>
<%
else
%>
insDoc(ax2, gLnk (0,'暂无模块数据','#','ftv2doc.gif')); <!-- 模块 -->
<% end if %>
<%
rs2.movenext
if rs2.eof then exit for
next
else
%>
ax2=insFld(ax1, gFld ('暂无端局数据','#','ftv2folderopen.gif', 'ftv2folderclosed.gif')); <!-- 端局 -->
<% end if %>
<% rs.movenext
if rs.eof then exit for
next
%>
initializeDocument();
</script>
<% else
response.write "暂无总局数据"
end if
%>
</TD>
</TR>
</TABLE>
<%
rs3.Close
Set rs3 = Nothing
rs2.Close
Set rs2 = Nothing
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
</BODY></HTML>
有兴趣的朋友可以下载原代码看看！
[本日志由 NetFox 于 2006-08-24 07:28 PM 编辑]
上一篇: 这是最早的一篇日志
下一篇: 关于DHCP服务器不能自动分配IP
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: ASP 数据库 三级树型菜单 
相关日志:
评论: 1 | 引用: 0 | 查看次数: -
aaa[2008-08-01 09:49 AM | 
| 
| 58.17.178.162 | 
| 取消审核 | 
回复]发表评论