ftexamplasp.asp

来自「非常好的JAVASCRIPT树型」· ASP 代码 · 共 50 行

ASP
50 行
字号 
<%@LANGUAGE=VBScript %>
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("foldertree.mdb")

qrystr = "qryfoldertree"

rs.open qrystr, conn, 2, 2

if not rs.eof then rs.movefirst
currentID = "" %>


<html>
<head>
<link rel="stylesheet" href="ftstyle.css">
<!-- Infrastructure code for the tree -->
<script language = "Javascript" src = "../../../ft.js"></script>
<script language = "Javascript" src = "../../../ftoptions.js"></script>
<script>
iconFolder = "../../../images/" 
ftFolder = "../../../"
fT = gFld("<i>Been There</i>", "ftbase.htm")

<%
    Do While Not rs.EOF
%>
    <%= rs("node") %>
<%
    rs.movenext
Loop 
rs.close
set rs = Nothing
conn.close
set conn = Nothing

%>


</script>
</head>

<FRAMESET cols="200,*" onLoad="self.blank()">
  <FRAME SRC = "ftblank.htm" name="menufrm" > 
  <FRAME SRC="ftbase.htm" name="basefrm"> 
</FRAMESET> 

</HTML>

ftexamplasp.asp - 源码说明

本页面展示了「非常好的JAVASCRIPT树型」中的 ftexamplasp.asp 源码文件，采用 ASP 编程语言编写，共 50 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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