谁给个树形目录的例子？

mdot 2003-02-14 10:02:16

不用XML装载的，可以动态从数据库装载的，不限级分类的

...全文

35 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

jackfaver 2003-02-16

打赏
举报

zyizyizyi(无名)
不错,我载了，可惜不是我的帖子，没法给你加分

mdot 2003-02-16

打赏
举报

楼上的只是支持两层目录咯

mdot 2003-02-15

打赏
举报

好呀，改好后请EMAIL到jackyrong@163.net拉，谢谢

zyizyizyi 2003-02-15

打赏
举报

好了，可以下了。不是网上那个，那个我要改设制才能给你，烦了。
autoTree.zip可以无限的，而且更漂亮。

jackfaver 2003-02-15

打赏
举报

相当不错！但源码呢？能否给个下载啊？！

mdot 2003-02-15

打赏
举报

怎么没代码下载呀？（无名？）

wxrf2000 2003-02-15

打赏
举报

<%
Set dbc = Server.CreateObject("ADODB.Connection")
strConn = "driver={Microsoft Access Driver (*.mdb)}"
dbc.open strConn & ";dbq=" & Server.MapPath("ubbs.mdb")
sql="select * from 主题版 order by 主版号"
set mainboard=dbc.Execute(sql)
%>
<html>

<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb_2312-80">
<title>一棵小树</title>
<style TYPE="text/css">
.font {color: #000000;text-decoration: none;font-size: 9pt}
A:link {color: #000000;text-decoration: none;font-size: 9pt}
A:visited {color: #000000;text-decoration: none;font-size: 9pt}
A:active { text-decoration: none; font-family: 宋体; font-size: 9pt }
A:hover { text-decoration: none; color: #f05000;font-size: 9pt }
</style>
<base target="main">
<script lanuage="JScript">
function turnit(ss,ii)
{
if (ss.style.display=="none")
{ss.style.display="";
ii.src="--.gif";
}
else
{ss.style.display="none";
ii.src="add.gif";}
}
</script>
</head>
<body leftmargin="5" bgcolor="#FFFFEB">
<center>
<table border="1" cellpadding="0" cellspacing="0" bordercolor="#0B591E" bordercolorlight="#0B591E" bordercolordark="#0B591E">
<tr><td valign="top">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="127" height="18" bgcolor="#0F986A" valign="top"><p align="center"><span
style="font-family: 宋体; font-size: 9pt"><strong><font color="white">树形目录</font></strong></span></td>
</tr>
<%
Key=0
while not mainboard.Eof
%>
<tr>
<td id="item<%=CStr(Key)%>" width="160" style=" cursor:'hand';" language="JScript" onMouseUp="turnit(Content<%=CStr(Key)%>,Img<%=CStr(Key)%>);">
<img src="add.gif" id="Img<%=CStr(Key)%>" width="12" height="12"><span class="font"><%=mainboard("版名")%></span></td>
</tr>

<tr>
<td width="160" id="Content<%=CStr(Key)%>" style="Display:'none';">
<table border="0" width="100%" cellpadding="0" cellspacing="0">
<tr>
<td width="100%">
<%
Set dbc1 = Server.CreateObject("ADODB.Connection")
strConn1 = "driver={Microsoft Access Driver (*.mdb)}"
dbc1.open strConn1 & ";dbq=" & Server.MapPath("ubbs.mdb")
sql="select * from 子版 where 主版号="&mainboard("主版号")&" order by 子版号"
set subboard = dbc1.execute(sql)
while not subboard.Eof
%>
<a href="theme.asp?key=<%=subboard("版名")%>" target="main"><img src="menuitem1.gif" width=32 height=13 border=0 align="absmiddle"><%=subboard("版名")%></a><br>
<%
subboard.MoveNext
wend
%>
</td>
</tr>
</table>
</td>
</tr>
<%
Key=key+1
mainboard.MoveNext
wend
%>

</table>
</table>
</body>
</html>

数据库名：ubbs
两个表：主题版字段：主版号，版名
子版字段：主版号，子版号，版名