📄 ftexamplasp.asp

📁 非常好的JAVASCRIPT树型

💻 ASP

字号:

<%@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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -