📄 newmenulist.asp
字号:
<html>
<head>
<link rel="StyleSheet" href="dtree.css" type="text/css" />
<script type="text/javascript" src="dtree.js"></script>
</head>
<script type="text/javascript">
d = new dTree('d');
d.add(0,-1,'产品资料')
<%
dim conns,dbs
dim connstrs
dbs="Databases/wjwl.mdb" '数据库文件位置
on error resume next
connstrs="DBQ="+server.mappath(""&dbs&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conns=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conns.open connstrs
end if
sub CloseConn()
conns.close
set conns=nothing
end sub
sqlBigClass="select BigClassID,BigClassName from BigClass"
Set rsBigClass= Server.CreateObject("ADODB.Recordset")
rsBigClass.open sqlBigClass,conns,1,1
sqlsmallClass="select SmallClassID,SmallClassName,BigClassName from SmallClass"
Set rssmallClass= Server.CreateObject("ADODB.Recordset")
rssmallClass.open sqlsmallClass,conns,1,1
sqlproductClass="select ArticleID,SmallClassName,BigClassName,Title from Product"
Set rsproduct= Server.CreateObject("ADODB.Recordset")
rsproduct.open sqlproductClass,conns,1,1
'添加一级菜单
do while not rsBigClass.eof
Response.Write "d.add('"& rsBigClass("BigClassID") & "'," & 0 &", '" & rsBigClass("BigClassName") & "','" & "product.asp?BigClassName="& rsBigClass("BigClassName")&"');"
'添加二级菜单
rssmallClass.movefirst
do while not rssmallClass.eof
if (rssmallClass("BigClassName")=rsBigClass("BigClassName")) then
Response.Write "d.add('"& rssmallClass("SmallClassID")*10 & "','" & rsBigClass("BigClassID") &"', '" & rssmallClass("SmallClassName") & "','" & "product.asp?BigClassName="& rssmallClass("BigClassName") &"&SmallClassName=" &rssmallClass("SmallClassName")&"');"
'添加第三级菜单
rsproduct.movefirst
do while not rsproduct.eof
if (rsproduct("SmallClassName")=rssmallClass("SmallClassName")) then
Response.Write "d.add('"& rsproduct("ArticleID")*100 & "','" & rssmallClass("SmallClassID")*10 &"', '" & rsproduct("Title") & "','" & "product.asp?BigClassName="& rsproduct("BigClassName")&"&SmallClassName=" &rsproduct("SmallClassName")& "&minClassName=" &rsproduct("Title")& "');"
end if
rsproduct.movenext
loop
end if
rssmallClass.movenext
loop
rsBigClass.movenext
loop
%>
document.write(d);
//-->
</script>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -