index.asp

来自「集合了学习asp的100个实例」· ASP 代码 · 共 64 行

ASP
64 行
字号 
<%@ 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>

index.asp - 源码说明

本页面展示了「集合了学习asp的100个实例」中的 index.asp 源码文件，采用 ASP 编程语言编写，共 64 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP实例相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?