tree.asp

来自「一个利用ASP和ACCESS设计的图书管理系统源码」· ASP 代码 · 共 33 行

<!--#include file='conn.asp'--><?xml version="1.0" encoding="GB2312"?><%
'无限级目录树xml文件

dim TreeID,PageUrl
PageUrl = Request.ServerVariables("SCRIPT_NAME")
TreeID	= Request.QueryString("FolderID")
if len(TreeID) = 0 or Isnumeric(TreeID) = False then
	TreeID = 0
end if

'文件夹开始
dim FolderSql
FolderSql = "Select FolderID,FolderParentID,FolderName from [Folder] where FolderParentID = " & TreeID
Set RsFolder = conn.execute(FolderSql)
%>
<Tree TreeId="Folder<% = TreeID %>" NodeXmlSrc="<% = PageUrl %>?FolderID=<% = TreeID %>"><%
While RsFolder.eof = False
%>
	<TreeNode NodeId="Folder<% = RsFolder("FolderID") %>" Href="Folder.asp?FolderID=<% = RsFolder("FolderID") %>" Title="<% = Server.HTMLEncode(RsFolder("FolderName")) %>" NodeXmlSrc="<% = PageUrl %>?FolderID=<% = RsFolder("FolderID") %>"></TreeNode><%
RsFolder.MoveNext
Wend
Set RsFolder = nothing
'文件夹结束

%>
</Tree>
<%
conn.close
set conn = nothing
%>