</RightDepartmen>
<RightUser></RightUser>
<Lock>0</Lock>
</NodeItem>
<%
strConn="DBQ="+server.mappath("db\"&datasource)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set objConn=server.createobject("Adodb.connection")
objConn.open strConn
set rsSchema=objConn.openSchema(20)
rsSchema.movefirst
Do Until rsSchema.EOF
if rsSchema("TABLE_TYPE")="TABLE" then
%>
<NodeItem>
<NodeName><%=datasource%>\<%=rsSchema("Table_Name")%></NodeName>
<NodeType>href</NodeType>
<NodeData><%=rsSchema("Table_Name")%></NodeData>
<ImageIndex>4</ImageIndex>
<Creator></Creator>
<RightDepartmen>
关键词：基于数据库动态生成树形目录