📄 index.asp
字号:
<%@ Language=VBScript %>
<html>
<head>
<title>实例 多层目录显示</title>
</head>
<body><font size=+2><STRONG>多层目录显示</STRONG></font><P>
中国行政区
<%
dim conn
dim rstemp1,rstemp2
dim sqltemp1,sqltemp2
conn = "DBQ=" + server.mappath("genus.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set rstmep1 = server.createobject("adodb.recordset")
set rstmep2 = server.createobject("adodb.recordset")
sqltemp1="select * from genus"
rstmep1.open sqltemp1, conn, 1, 1
%>
<%do while not rstmep1.eof%>
<DIV ID=Tree<%=rstmep1("id")%> CLASS="Folder">
<img ID="Tree<%=rstmep1("id")%>Fldr" src="picture/close.bmp"> <%=rstmep1("name")%>
</DIV>
<DIV ID=Tree<%=rstmep1("id")%>cont STYLE="display:none">
<%
set rstmep2 = server.createobject("adodb.recordset")
sqltemp2="select * from book where genus_id=" & rstmep1("id")
rstmep2.open sqltemp2, conn, 1, 1
%><table><%
do while not rstmep2.eof
%>
<tr><td> <img src="picture/text.bmp"></td><td><%=rstmep2("name")%></td></tr>
<%
rstmep2.movenext
loop
%></table>
</DIV>
<%rstmep1.movenext
loop
rstmep1.close
rstmep2.close
%>
<SCRIPT LANGUAGE="VBScript">
Sub document_onClick()
If window.event.srcElement.className = "Folder" Then
strNode = window.event.srcElement.ID + "Cont"
strFldImg = window.event.srcElement.ID + "Fldr"
If document.All(strNode).style.display = "" Then
document.All(strNode).style.display = "none"
document.All(strFldImg).Src = "picture\close.bmp"
Else
document.All(strNode).style.display = ""
document.All(strFldImg).Src = "picture\open.bmp"
End If
End If
End Sub
</SCRIPT>
</td>
</tr>
</table>
<%
set rs1 = nothing
set rs = nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -