<%
index = 0
Do while index <= maxItems
if items(index,0) <> currentItem then
If items(index,0) <> openItem then _
Response.Write("<a href='outline.asp?open=" & _
Server.URLEncode( items(index,0) ) & "'>" )
Response.Write( "<LI>" & items(index,0) & "</a>" )
End If
currentItem = items(index,0)
If items(index,0) = openItem then
Response.Write("<UL>")
Do While index <= maxItems AND items(index,0) = openItem
Response.Write( "<LI>" & items(index,1) )
index = index + 1
Loop
Response.Write("</UL>")
End If
index = index + 1
Loop
%>
</UL>
</BODY>
</HTML>
给一个给你你参考一下把
<xml id="menuData">
<menu title='ttttt' target='main'>
<%Set lObjMenu = CreateObject("ObjTHKFZ.CAdo")
Set lObjMenu.AdoConn = Session("sAdoConn").AdoConn
Set RsModule=lObjMenu.getAppMenu(Session("LGNNAME"),"")
if not RsModule.eof then
do while not RsModule.eof%>
<menu-item label='<%=RsModule.fields("fldname")%>'>
<%Set RsItem=lObjMenu.getAppMenu(Session("LGNNAME"),RsModule.fields("fldPointer"))
do while not RsItem.eof
If RsItem.fields("fldKind")="1" or RsItem.fields("fldKind")="9" or RsItem.fields("fldKind")="6" then%>
<menu-item label='<%=RsItem.fields("fldname")%>'><%
Set RsApp=lObjMenu.getAppMenu(Session("LGNNAME"),RsItem.fields("fldPointer"))
If not RsApp.eof then
do while not RsApp.eof
if RsApp.fields("fldKind")="1" or RsApp.fields("fldKind")="9" or RsApp.fields("fldKind")="6" then%>
<menu-item label='<%=RsApp.fields("fldname")%>'>
<%Set RsTmp=lObjMenu.getAppMenu(Session("LGNNAME"),RsApp.fields("fldPointer"))
If not RsTmp.eof then
FOR i=0 to RsTmp.RecordCount-1%>
<menu-item label='<%=RsTmp.fields("fldname")%>' url='<%=RsTmp.fields("fldurl")%>?lb=<%=RsTmp.fields("fldShow")%>+,+<%=RsApp.fields("fldShow")%>+,+<%=RsItem.fields("fldShow")%>' />
<%RsTmp.MoveNext
Next
End If%>
</menu-item><%
else%>
<menu-item label='<%=RsApp.fields("fldname")%>' url='<%=RsApp.fields("fldurl")%>?lb=<%=RsApp.fields("fldShow")%>+,+<%=RsItem.fields("fldShow")%>' /><%
end if
RsApp.movenext
loop
End If%>
</menu-item>
<%Else%>
<menu-item label='<%=RsItem.fields("fldname")%>' url='<%=RsItem.fields("fldurl")%>?lb=<%=RsItem.fields("fldshow")%>+,+<%=RsModule.fields("fldShow")%>' />
<%End If
RsItem.movenext
Loop%>
</menu-item><%
RsModule.movenext
loop
End if
set RsApp=nothing
set RsItem=nothing
set RsModule=nothing
%>
</menu>
</xml>
搜索“树”就会 N 多都出来了,肯定有你想要的。
http://community.csdn.net/Expert/ForumList_Search.asp?searchtype=1&bigclassid=3&smallclassid=301&searchKeys=%CA%F7&author=&tabletype=now