<%
PageMain()
Dvbbs.PageEnd()
Sub PageMain()
%>
左右分栏
<%
BoardMenu()
%>
<%
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模板转换开始
Dim Xmlskin,Proc,XmlStyle
Set Xmlskin = Dvbbs.CreateXmlDoc("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
Dvbbs.LoadTemplates("")
If Not (Xmlskin.loadxml(Dvbbs.mainhtml(23))) Then
Response.Write "模板数据出错，请与管理员联系！"
Response.End
End If
Set XMLStyle=Dvbbs.iCreateObject("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
%>