?? tree_load.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<title>阿賴目錄樹控件示例--ASP后臺加載程序</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<%
set adCn=Server.CreateObject("Adodb.Connection")
adCn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("tree.mdb")
parentid=Request.QueryString("id")
set adRs=adCn.execute("select * ,(select count(*) from tree where parentid=subTree.id) as childNum from tree subTree where parentid=" & parentid)
Response.Write("<script>")
Response.Write("var tree=self.parent.tree;")
''加載第一級節點時，應設id為-1
if parentid="-1" then
Response.Write("var toNode=tree.root;")
else
''節點的鍵值已依次設成n1,n2,n3........
Response.Write("var toNode=tree.nodes['n" & parentid & "'];")
end if
while not adRs.EOF
'''如果icon字段不為空，圖標取數據庫的值，否則根據是否有子節點取"folder"或"file"。相應地imagelist應提供這兩個鍵值的圖標
if(adRs("icon")<>"") then
icon=adRs("icon")
elseif(adRs("childNum")=0) then
icon="file"
else
icon="folder"
end if
''輸出添加節點的代碼,第三個參數是設鍵值的
Response.Write "var nNode=tree.add(toNode,'last','" & adRs("text") & "','" & "n" & adRs("id") & "','" & icon & "','" & adRs("exeCategory") & "','" & adRs("exeArgv") & "');"
Response.Write "if(nNode.parent.first.label.innerText=='loading...')nNode.parent.first.remove();"
if(adRs("childNum")<>0) then
Response.Write "nNode.add('loading...');nNode.expand(false);"
end if
adRs.MoveNext
wend
Response.Write("</script>")
%>
<p align="center">copywrite by 賴國欣 2003/7 All right reserved</p>
<p align="center">Email: <a href="mailto:a@lai.com.cn">a@lai.com.cn</a> website:
<a href="http://www.9499.net">http://www.9499.net</a></p>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -