<!--#include file='conn.asp'--><?xml version="1.0" encoding="GB2312"?><%
'无限级目录树xml文件
'http://www.51windows.net
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
'文件夹结束'文件开始
dim FileSql
FileSql = "Select FileID,FileFolderID,FileName from [File] where FileFolderID = " & TreeID & " order by FileID Desc"
Set RsFile = conn.execute(FileSql)
While RsFile.eof = False
%>
<TreeNode NodeId="File<% = RsFile("FileID") %>" Title="<% = Server.HTMLEncode(RsFile("FileName")) %>" Href="File.asp?FileID=<% = RsFile("FileID") %>"></TreeNode><%
RsFile.MoveNext
Wend
Set RsFile = nothing
'文件结束
%>
</Tree>
<%
conn.close
set conn = nothing
%>这是一个直接读取数据库并生成XML格式的代码
'无限级目录树xml文件
'http://www.51windows.net
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
'文件夹结束'文件开始
dim FileSql
FileSql = "Select FileID,FileFolderID,FileName from [File] where FileFolderID = " & TreeID & " order by FileID Desc"
Set RsFile = conn.execute(FileSql)
While RsFile.eof = False
%>
<TreeNode NodeId="File<% = RsFile("FileID") %>" Title="<% = Server.HTMLEncode(RsFile("FileName")) %>" Href="File.asp?FileID=<% = RsFile("FileID") %>"></TreeNode><%
RsFile.MoveNext
Wend
Set RsFile = nothing
'文件结束
%>
</Tree>
<%
conn.close
set conn = nothing
%>这是一个直接读取数据库并生成XML格式的代码
<?xml version="1.0" encoding="GB2312" ?>
- <Tree TreeId="Folder0" NodeXmlSrc="/tree/txt/tree.asp?FolderID=0">
<TreeNode NodeId="Folder1" Href="Folder.asp?FolderID=1" Title="aa" NodeXmlSrc="/tree/txt/tree.asp?FolderID=1" />
<TreeNode NodeId="File3" Title="bb" Href="File.asp?FileID=3" />
<TreeNode NodeId="File2" Title="cc" Href="File.asp?FileID=2" />
<TreeNode NodeId="File1" Title="dd" Href="File.asp?FileID=1" />
</Tree>
去看看先..........
不过大家没明白我的意思,我的需求是这样的:
我把MSDN左边的树型下到了我的机器里面,经研究发现他是通过
绑定XML文件来实现树的,而我是想动态的生成树,也就是要动态生成
XML以供树型来绑定。
不过大家没明白我的意思,我的需求是这样的:
我把MSDN左边的树型下到了我的机器里面,经研究发现他是通过
绑定XML文件来实现树的,而我是想动态的生成树,也就是要动态生成
XML以供树型来绑定。
<TVNS:TREEVIEW id="tvCategories" systemimagespath="/webctrl_client/1_0/treeimages/" ></TVNS:TREEVIEW><SCRIPT language="jscript">
<!--
var xmlDoc = new ActiveXObject("Msxml2.DOMDocument");
var xslDoc = new ActiveXObject("Msxml2.DOMDocument");
xmlDoc.async = false;
xslDoc.async = false;
xmlDoc.load("BookCategories.xml");
xslDoc.load("CategoryTree.xsl");
var xhtmlDoc = xmlDoc.transformNode(xslDoc);
document.all("tvCategories").treeNodeSrc = xhtmlDoc;
document.all("tvCategories").databind();
-->
</SCRIPT>调用方法如上,是利用了MS IE CONTROLS的TREEVIEW脚本生成的,我只需要创建XML和XSL就行了
代码我家里可能还有,楼主需要的话留下邮箱.找到了就给你发