<%
End Sub
Sub BoardMenu()
Dim node,BoardNode,XMLDOM
Set XMLDOM=Application(Dvbbs.CacheName&"_boardlist").cloneNode(True)
For each node in XMLDOM.documentElement.getElementsByTagName("board[@depth <= 1]")
If node.attributes.getNamedItem("hidden").text="1" and Dvbbs.GroupSetting(37)="0" Then
node.parentNode.removeChild(node)
End If
node.removeAttribute "indeximg"
node.removeAttribute "readme"
Next
XMLDOM.documentElement.setAttribute "forum_name",Dvbbs.Forum_Info(0)
TransNode(XMLDOM)
Set XMLDOM = Nothing
End Sub
Sub TransNode(XmlDoc)
'XSLT模板轉(zhuǎn)換開始
Dim Xmlskin,Proc,XmlStyle
Set Xmlskin = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
If Not (Xmlskin.load(Server.MapPath("inc/Templates/leftmenu.xslt"))) Then
Response.Write "模板數(shù)據(jù)出錯(cuò)，請(qǐng)與管理員聯(lián)系！"
Response.End
End If
Set XMLStyle=Server.CreateObject("msxml2.XSLTemplate" & MsxmlVersion)
XMLStyle.stylesheet=Xmlskin
Set Proc=XMLStyle.createProcessor()
Proc.input = XmlDoc
proc.transform()
Response.Write Dvbbs.ArchiveHtml(proc.output)
Set XmlStyle = Nothing
Set Xmlskin = Nothing
End Sub
%>