我需要一个树型菜单

qdlanghua 2003-08-16 06:53:09
要求:
1.从数据库中动态生成;
2.界面美观,速度快;
3.支持框架;
4.详细说明使用方法及各参数的含义。

给分爽快
...全文
17 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
shanxing 2003-08-17
  • 打赏
  • 举报
回复
up
jill22cn 2003-08-17
  • 打赏
  • 举报
回复
对啊,用阿信的那个,我认为是最经典了 http://fason.nease.net/
yyy431706 2003-08-17
  • 打赏
  • 举报
回复
阿信http://fason.nease.net/
ahuiok 2003-08-17
  • 打赏
  • 举报
回复
是啊, 没有源码。

不能动态生成 么?
IThurricane 2003-08-17
  • 打赏
  • 举报
回复
http://fason.nease.net/
没有提供源代码啊
qjrein 2003-08-17
  • 打赏
  • 举报
回复
www.redimachine.com/gov/tree.rar
楚人无衣 2003-08-16
  • 打赏
  • 举报
回复
给你一个,方法很笨,也慢,怕不适合你,也不妨一试。效果在www.wlxm.com/stores.asp页面左上部,完全asp语名实现
<%
id=request.querystring("id")
if ""&session("sid")&""=""&id&"" then
session("sid")=""
else
session("sid")=id
end if
%>
--上部开关代码

<table width=162 border=0 cellpadding=0 cellspacing=0 height="52" bordercolor="#FF00FF">
<tr>
<td height="7" width="209" class="newfont1" background="images/ttop.jpg">
 商品类别
</td>
</tr>
<%
set rsp=server.createobject("adodb.recordset")
rsp.open "select * from sorts order by onum",conn,3
if not rsp.eof then
for i=0 to rsp.recordcount-1
simg="+"
simge="e+"
if ""&rsp("id")&""=""&session("sid")&"" then simg="-":simge="e-"
%>
<tr>
<td height="21" width="209">
<p style="margin-left: 10">
<a href="stores.asp?id=<%=rsp("id")%>"><%rsp.movenext%><%if not rsp.eof then%><img border="0" src="images/<%=simg%>.gif"><%else%><img border="0" src="images/<%=simge%>.gif"><%end if%><%rsp.moveprevious%><a href="stores.asp?sort=<%=rsp("id")%>"><font color="#000080" size="2"><%=rsp("name")%></font></a>
</p>
</td>
</tr>
<%
if ""&rsp("id")&""=""&session("sid")&"" then
set rsc=server.createobject("adodb.recordset")
rsc.open "select * from stores where sort="&rsp("id")&"",conn,3
if not rsc.eof then
for j=0 to rsc.recordcount-1
%>
<tr>
<td height="18" width="209">
<p style="margin-left: 10">
<font color="#0000FF">
<%rsp.movenext%><%if not rsp.eof then%><img border="0" src="images/l01.gif"><%end if%><%rsp.moveprevious%><%rsc.movenext%><%if not rsc.eof then%><img border="0" src="images/ktr.gif"><%else%><img border="0" src="images/ltr.gif"><%end if%><%rsc.moveprevious%><a href="stores.asp?sort=<%=rsc("sort")%>&sid=<%=rsc("id")%>"><%=rsc("name")%></a></font>
</p>
</td>
</tr>
<%
rsc.movenext
next
end if
set rsc=nothing
end if
rsp.movenext
next
else
%>
<tr>
<td height="18" width="209">
  <font color="#FF00FF">还没有商品类别!</font>
</td>
</tr>
<%
end if
set rsp=nothing
%>
</table>
--实现部分代码。其中'+'、'-'等为图片,可去那里down下来。
ceocio 2003-08-16
  • 打赏
  • 举报
回复
http://fason.nease.net/
qdlanghua 2003-08-16
  • 打赏
  • 举报
回复
我的e_mail:qdecode@yahoo.com.cn

28,391

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧