📄 tree.asp
字号:
<!--#include file="globe/Dataconnect.asp"-->
<html>
<head><title>目录</title>
<LINK REL="stylesheet" TYPE="text/css" HREF="globe/style.css">
<script language="VBScript">
<!--
function display1(num)
dim imagename
dim name
dim total
if document.all("subtree"+chr(48+num)).style.display="none" then
document.all("subtree"+chr(48+num)).style.display=""
document.all("image"+chr(48+num)).src="image/t_sub.gif"
document.all("img"+chr(48+num)).src="image/open.gif"
else
document.all("subtree"+chr(48+num)).style.display="none"
document.all("image"+chr(48+num)).src="image/t_plus.gif"
document.all("img"+chr(48+num)).src="image/close(1).gif"
end if
end function
-->
</script>
</head>
<body style="background-color:black;font-family:宋体;font-size:11pt;">
<%
Dim rs,sql,rs1,sql1,i,j,Name,Num,NumUrl,SubName,SubNameUrl,SubNumUrl
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from Class"
rs.open sql,Cnn,1,1
if rs.recordcount>0 then
for i=1 to rs.recordcount
Name=rs("Name")
Num=rs("Num")
set rs1=server.createobject("ADODB.Recordset")
sql1="select * from SubClass where Num="&Num&""
rs1.open sql1,Cnn,1,1
if rs1.RecordCount=0 then
response.write "<span id='tree"&i&"'style='cursor:hand;color:#ccddff;' onclick='display1("&i&")'><img name='image"&i&"' src='image/t_sub.gif' align=absmiddle><img name='img"&i&"' src='image/close(1).gif'border=0 align=absmiddle> "&Name&"</span><br>"
response.write "<div id='subtree"&i&"' style='display:none'>"
else
response.write "<span id='tree"&i&"'style='cursor:hand;color:#ccddff;' onclick='display1("&i&")'><img name='image"&i&"' src='image/t_plus.gif' align=absmiddle><img name='img"&i&"' src='image/close(1).gif'border=0 align=absmiddle> "&Name&"</span><br>"
response.write "<div id='subtree"&i&"' style='display:none'>"
end if
for j=1 to rs1.recordcount
NumUrl=Server.URLEncode(rs("Num"))
SubName=rs1("SubName")
SubNameUrl=Server.Urlencode(rs1("SubName"))
SubNumUrl=Server.URLEncode(rs1("SubNum"))
if j<>rs1.recordcount then
response.write "<img src='image/line_05.gif' align=absmiddle><img src='image/reddot.gif' align=absmiddle><a href='list.asp?Num="&NumUrl&"&SubName="&SubNameUrl&"&SubNum="&SubNumUrl&"'target='frmMain'><font color=#00FF00>"&SubName&"</font></a><br>"
else
response.write "<img src='image/line_06.gif' align=absmiddle><img src='image/reddot.gif' align=absmiddle><a href='list.asp?Num="&NumUrl&"&SubName="&SubNameUrl&"&SubNum="&SubNumUrl&"'target='frmMain'><font color=#00FF00>"&SubName&"</font></a><br>"
end if
rs1.movenext
next
response.write "</div>"
rs1.close
rs.movenext
next
end if
'显示<功能及管理>部分
response.write "<span><img src='image/t_ver1.gif'><img src='image/t_hr1.gif'></span><br>"
response.write "<span id='system1'><img src='image/t_sub.gif' align=absmiddle><img src='image/i_option.gif'border=0 align=absmiddle><a href='New.asp' target='frmMain'><font color='#ff00ff'>最新通告</font></a></span><br>"
response.write "<span id='system1'><img src='image/t_subl.gif' align=absmiddle><img src='image/i_option.gif'border=0 align=absmiddle><a href='Query.htm' target='frmMain'><font color='#ff00ff'>查找所需</font></a></span><br>"
response.write "<span id='system1'><img src='image/t_sub.gif' align=absmiddle><img src='image/i_option.gif'border=0 align=absmiddle><a href='manager.htm' target='frmMain'><font color='#00FF00'>分类管理</font></a></span><br>"
response.write "<span id='system1'><img src='image/t_sub.gif' align=absmiddle><img src='image/i_option.gif'border=0 align=absmiddle><a href='Help.asp' target='frmMain'><font color='#00FF00'>管理条例</font></a></span><br>"
response.write "<span id='system1' style='cursor:hand;color:#ccddff;'><img src='image/t_subl.gif' align=absmiddle><img src='image/i_exit.gif'border=0 align=absmiddle><a href='http://www.97computer.com' target='_top'><font color='#00FF00'>回到网站</font></a></span><br>"
%>
<!--#include file="globe/DataClose.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -