28,407
社区成员
发帖
与我相关
我的任务
分享有问题想求大家帮个忙，分不是问题.我只能给50分,如果要分我再开帖
csdn左边树形菜单谁能给我一份吗?我现在急用做了几天了,在csdn上找了好久都没有找到全适的，我的要求是:
有两个表:
bigclass(bgc_ID,bgc_Name,bgc_Order) 第一个字段是自动编号,第二个字段是大类名称;第三个字段是此大类的显示顺序，在数据库中有说明;
smallcalss(smc_ID,smc_bgc_ID,smc_Name)第一个字段是自动编号,第二个字段是此小类所属于的大类,第三个字段是小类名,能不能帮我做一下谢谢了。 顺便把我的数据库放在下面的地址方便大家操作.
http://www.yjce.com/stock.mdb
有两个表:
bigclass(bgc_ID,bgc_Name,bgc_Order) 第一个字段是自动编号,第二个字段是大类名称;第三个字段是此大类的显示顺序，在数据库中有说明;
smallcalss(smc_ID,smc_bgc_ID,smc_Name)第一个字段是自动编号,第二个字段是此小类所属于的大类,第三个字段是小类名,能不能帮我做一下谢谢了。 顺便把我的数据库放在下面的地址方便大家操作.
http://www.yjce.com/stock.mdb
...全文
请发表友善的回复…
发表回复
lisbjing 2004-02-25
- 打赏
- 举报
up
lijingxiezhuying 2004-02-21
- 打赏
- 举报
webmaster@lyfirst.com
lisbjing 2003-12-17
- 打赏
- 举报
up
lisbjing 2003-12-16
- 打赏
- 举报
我现在写了一个:
<!--#include file="admin_model/conn1/conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>链接菜单</title>
</head>
<script language="vbscript">
<!--
sub doclick()
if (window.event.srcelement.classname="parent") or (window.event.srcelement.classname="image") then
expandcollapse
end if
window.event.cancelbubble=true
end sub
sub expandcollapse()
dim objelement
dim objtargetdiv
dim imgicon
set objelement=window.event.srcelement ‘这一句判断展开或者关闭哪一个
if objelement.classname="parent" then
set objtargetdiv=objelement.children(1)
set imgicon=objelement.children(0)
else
set objtargetdiv=objelement.parentelement.children(1)
set imgicon=objelement
end if
if objtargetdiv.children.length>0 then
if objtargetdiv.style.display="none" then
objtargetdiv.style.display=""
imgicon.src="images/reduce.gif"
else
objtargetdiv.style.display="none"
imgicon.src="images/plus.gif"
end if
end if
end sub
dim oldcolor
sub domouseover()
if window.event.srcelement.tagname="A" then
oldcolor=window.event.srcelement.style.color
window.event.srcelement.style.color="red"
else
window.event.cancelbubble=true
end if
end sub
sub domouseout()
if window.event.srcelement.tagname="A" then
window.event.srcelement.style.color=oldcolor
end if
window.event.cancelbubble=true
end sub
-->
</script>
<%
Set rsbig= Server.CreateObject("ADODB.Recordset")
sqlbig="select * from bigclass where bgc_cmp_ID=" & session("cmp_ID") & " order by bgc_ID"
rsbig.open sqlbig,conn,1,1
%>
<body background="images/left_bg.gif">
<div onclick="doclick">
<%
do while not rsbig.eof
'此大类下小类
Set rssmall= Server.CreateObject("ADODB.Recordset")
sqlsmall="select * from smallclass where smc_bgc_ID=" & rsbig("bgc_ID") & " order by smc_ID"
rssmall.open sqlsmall,conn,1,1
%>
<div class="parent" style="cursor:hand"><img src="images/plus.gif" class="image">
<%if rssmall.recordcount>0 then%>
<%=rsbig("bgc_Name")%>
<%else%>
<a href="product.asp?bgc_ID=<%=rsbig("bgc_ID")%>" target="_top"><%=rsbig("bgc_Name")%></a>
<%end if%>
<div style="display:none">
<%
do while not rssmall.eof
%>
<img src="images/blank.gif"> <a href="product.asp?bgc_ID=<%=rsbig("bgc_ID")%>&smc_ID=<%=rssmall("smc_ID")%>" target="_top"><font size=2><%=rssmall("smc_Name")%></font></a><br/>
<%
rssmall.movenext
loop
%>
</div>
</div>
<%
rsbig.movenext
loop
%>
</div>
</body>
</html>
<%
rssmall.close
set rssmall=nothing
rsbig.close
set rsbig=nothing
conn.close
set conn=nothing
%>
把这个用iframe包含在product.asp文件中用，效果还不错有一点不潢足的就是点击一个项目后重新载入本页但菜单项会回到初始状态，上面注注解的那一句怎么可以重新载入此页后还能得到刚才点的活动元素是哪一个!
<!--#include file="admin_model/conn1/conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>链接菜单</title>
</head>
<script language="vbscript">
<!--
sub doclick()
if (window.event.srcelement.classname="parent") or (window.event.srcelement.classname="image") then
expandcollapse
end if
window.event.cancelbubble=true
end sub
sub expandcollapse()
dim objelement
dim objtargetdiv
dim imgicon
set objelement=window.event.srcelement ‘这一句判断展开或者关闭哪一个
if objelement.classname="parent" then
set objtargetdiv=objelement.children(1)
set imgicon=objelement.children(0)
else
set objtargetdiv=objelement.parentelement.children(1)
set imgicon=objelement
end if
if objtargetdiv.children.length>0 then
if objtargetdiv.style.display="none" then
objtargetdiv.style.display=""
imgicon.src="images/reduce.gif"
else
objtargetdiv.style.display="none"
imgicon.src="images/plus.gif"
end if
end if
end sub
dim oldcolor
sub domouseover()
if window.event.srcelement.tagname="A" then
oldcolor=window.event.srcelement.style.color
window.event.srcelement.style.color="red"
else
window.event.cancelbubble=true
end if
end sub
sub domouseout()
if window.event.srcelement.tagname="A" then
window.event.srcelement.style.color=oldcolor
end if
window.event.cancelbubble=true
end sub
-->
</script>
<%
Set rsbig= Server.CreateObject("ADODB.Recordset")
sqlbig="select * from bigclass where bgc_cmp_ID=" & session("cmp_ID") & " order by bgc_ID"
rsbig.open sqlbig,conn,1,1
%>
<body background="images/left_bg.gif">
<div onclick="doclick">
<%
do while not rsbig.eof
'此大类下小类
Set rssmall= Server.CreateObject("ADODB.Recordset")
sqlsmall="select * from smallclass where smc_bgc_ID=" & rsbig("bgc_ID") & " order by smc_ID"
rssmall.open sqlsmall,conn,1,1
%>
<div class="parent" style="cursor:hand"><img src="images/plus.gif" class="image">
<%if rssmall.recordcount>0 then%>
<%=rsbig("bgc_Name")%>
<%else%>
<a href="product.asp?bgc_ID=<%=rsbig("bgc_ID")%>" target="_top"><%=rsbig("bgc_Name")%></a>
<%end if%>
<div style="display:none">
<%
do while not rssmall.eof
%>
<img src="images/blank.gif"> <a href="product.asp?bgc_ID=<%=rsbig("bgc_ID")%>&smc_ID=<%=rssmall("smc_ID")%>" target="_top"><font size=2><%=rssmall("smc_Name")%></font></a><br/>
<%
rssmall.movenext
loop
%>
</div>
</div>
<%
rsbig.movenext
loop
%>
</div>
</body>
</html>
<%
rssmall.close
set rssmall=nothing
rsbig.close
set rsbig=nothing
conn.close
set conn=nothing
%>
把这个用iframe包含在product.asp文件中用，效果还不错有一点不潢足的就是点击一个项目后重新载入本页但菜单项会回到初始状态，上面注注解的那一句怎么可以重新载入此页后还能得到刚才点的活动元素是哪一个!
lisbjing 2003-12-16
- 打赏
- 举报
yaligd@163.com
xupiao 2003-12-16
- 打赏
- 举报
留一email對一個你參考
fangpeng2003 2003-12-16
- 打赏
- 举报
用阿信的树
http://fason.nease.net/
http://fason.nease.net/
swich 2003-12-16
- 打赏
- 举报
http://www.ceocio.net/fason/deeptree/deeptree.asp
阿信的
阿信的
whb147 2003-12-16
- 打赏
- 举报
我只能帮你up，我现在没有时间，
有空了，可以考虑，
有空了，可以考虑，
paz 2003-12-16
- 打赏
- 举报
http://jj88.net/code/dm/menu/menu001.htm
这里是你要的
这里是你要的
