📄 index.asp

📁 集合了学习asp的100个实例

💻 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>&nbsp;&nbsp;<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 + -