<%'========================================================='论坛列表' File: index_left.asp' Script Written by sunwin'=========================================================Dim XMLDOMDvbbs.BoardID=0Dvbbs.LoadTemplates("")Dvbbs.Stats="论坛栏目"Dvbbs.head()%><%REM 管理栏目设置dim n,m,s,idim childinfodim menu(2,9)dim boardmenu(100,100)n=-1m=0s=-1Dim Forum_Boards,ClassID,Board_Data,loadboard,setings'分版列表 2005-4-10 Dv.YzDim NodeSet XMLDom=Application(Dvbbs.CacheName&"_boardlist").cloneNode(True)XMLDom.documentElement.attributes.setNamedItem(XMLDom.createNode(2,"boardid","")).text=Dvbbs.BoardIDFor each node in XMLDOM.documentElement.getElementsByTagName("board")If Not (node.attributes.getNamedItem("hidden").text = "1" And Dvbbs.GroupSetting(37) = "0") ThenIf node.attributes.getNamedItem("depth").text = "0" Thenn = n + 1m = 0Elsem = m + 1End IfIf node.attributes.getNamedItem("child").text <> "0" Thenchildinfo=" ["& node.attributes.getNamedItem("child").text &"]"Elsechildinfo=""End Ifboardmenu(n,m) = ""& node.attributes.getNamedItem("boardtype").text &childinfo&""End IfNextSet XmlDom=Nothing'分版列表结束 2005-4-10 Dv.Yzmenu(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 thens=s+3elses=s+2end if%>

<%=Dvbbs.Forum_info(0)%>
<%if Dvbbs.UserID>0 then%>   欢迎您：<%=Dvbbs.MemberName%>   状态：在线><%=DateDiff("N",Dvbbs.Lastlogin,Now())%>分钟   等级：<%=dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userclass").text%>   点券：><%=dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text%>张   发帖：<%=dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userpost").text%>篇   现金：><%=dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text%>元 <%else%>   状态:在线   等级:访客 <%end if%>
<%dim jdim tmpmenudim menunamedim menurlfor i=0 to nmenuname="board"&i%><%next%><%for i=0 to smenuname="tool"&i%><%next%> 中国壶迷网 中国壶迷论坛 alt="展开菜单"> alt="展开菜单"><%=boardmenu(i,0)%> <%for j=1 to ubound(boardmenu,2)if isempty(boardmenu(i,j)) then exit for%><%next%> <%=boardmenu(i,j)%> alt="展开菜单"> alt="展开菜单"><%=menu(i,0)%> <%for j=1 to ubound(menu,2)if isempty(menu(i,j)) then exit for%><%next%> <%=menu(i,j)%> 论坛帮助
<%If Dvbbs.UserID > 0 Then%><%End If%> >■>返回壶迷论坛首页 >■>安全退出壶迷   目前在线:<%=MyBoardOnline.Forum_Online%> 位   注册会员:<%=Dvbbs.CacheData(10,0)%> 位 最佳浏览效果1024*768 rwanboy.studio