<%
'=========================================================
'论坛列表
' File: index_left.asp
' Script Written by sunwin
'=========================================================
Dim XMLDOM
Dvbbs.BoardID=0
Dvbbs.LoadTemplates("")
Dvbbs.Stats="论坛栏目"
Dvbbs.head()
%>
<%
REM 管理栏目设置
dim n,m,s,i
dim childinfo
dim menu(2,9)
dim boardmenu(100,100)
n=-1
m=0
s=-1
Dim Forum_Boards,ClassID,Board_Data,loadboard,setings
'分版列表 2005-4-10 Dv.Yz
Dim Node
Set XMLDom=Application(Dvbbs.CacheName&"_boardlist").cloneNode(True)
XMLDom.documentElement.attributes.setNamedItem(XMLDom.createNode(2,"boardid","")).text=Dvbbs.BoardID
For each node in XMLDOM.documentElement.getElementsByTagName("board")
If Not (node.attributes.getNamedItem("hidden").text = "1" And Dvbbs.GroupSetting(37) = "0") Then
If node.attributes.getNamedItem("depth").text = "0" Then
n = n + 1
m = 0
Else
m = m + 1
End If
If node.attributes.getNamedItem("child").text <> "0" Then
childinfo=" [
"& node.attributes.getNamedItem("child").text &"]"
Else
childinfo=""
End If
boardmenu(n,m) = "
"& node.attributes.getNamedItem("boardtype").text &childinfo&""
End If
Next
Set XmlDom=Nothing
'分版列表结束 2005-4-10 Dv.Yz
menu(s+1,0)="论坛信息"
menu(S+1,1)="
论坛新帖"
menu(S+1,2)="热门贴子"
menu(S+1,3)="
发贴排行"
menu(S+1,4)="
会员列表"
menu(S+1,5)="
社区搜索"
menu(S+1,6)="
社区使用手册"
menu(S+2,0)="论坛状态"
menu(S+2,1)="
今日贴数图例"
menu(S+2,2)="
主题数图例"
menu(S+2,3)="
总帖数图例"
menu(S+2,4)="
在线图例"
menu(S+2,5)="
在线情况"
menu(S+2,6)="
用户组在线图例"
menu(S+3,0)="我的工具箱"
menu(S+3,1)="
我的个人资料"
menu(S+3,2)="
登录密码修改"
menu(S+3,3)="
社区短讯服务"
menu(S+3,4)="
我的社区好友"
menu(S+3,5)="
我发表的主题"
menu(S+3,6)="
我参与过的主题"
menu(S+3,7)="
我的收藏夹"
if Dvbbs.UserID>0 then
s=s+3
else
s=s+2
end if
%>
中国壶迷网
<%=boardmenu(i,0)%>
<%=boardmenu(i,j)%>
<%=menu(i,0)%>
