tree.asp

课设做的图书管理系统,主要功能是管理图书的租借情况.里面有功能说明.

<!--#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
%>