友情链接：

北镇青网管理中心

今天是：2012年5月21日
欢迎登录北镇青网管理中心！

在线人数：

管理帐号：
登录密码：
验证码：

llBoardinformation() End If End If End Sub Sub GetBBSLink() Rem 加载友情链接 Dvbbs.name="ForumLink" If Dvbbs.ObjIsEmpty() Then LoadlinkList() Set LinkDom=Dvbbs.CreateXmlDoc("msxml2.FreeThreadedDOMDocument"& MsxmlVersion) If Not (LinkDom.loadxml(Dvbbs.Value)) Then Set LinkDom=getlink() End Sub Function getlink() Set Rs=Dvbbs.Execute("select * From Dv_bbslink Order by islogo desc,id ") Set getlink=Dvbbs.RecordsetToxml(rs,"link","bbslink") Set Rs=Nothing End Function Sub LoadlinkList() Dim XmlDomTemp Set Rs=Dvbbs.Execute("select * From Dv_bbslink Order by islogo desc,id ") Set XmlDomTemp=Dvbbs.RecordsetToxml(rs,"link","bbslink") Dvbbs.name="ForumLink" Dvbbs.Value=XmlDomTemp.xml Set XmlDomTemp=Nothing Set Rs=Nothing End Sub Sub Ad() Rem 浮动广告 If Dvbbs.Forum_ads(2)="1" or Dvbbs.Forum_ads(13)="1" Then TPL_Echo "" TPL_Echo "" End If End Sub Sub Forum_BirUser() Rem 查询今天过生日的用户 Dim Rs,SQL,NowMonth,NowDate,todaystr0,todaystr1,node NowMonth=Month(Date()) NowDate=Day(Date()) If NowMonth< 10="" then="" todaystr0="0" &nowmonth="" else="" todaystr0="CStr(NowMonth)" end="" if="" if="" nowdate="">< 10="" then="" todaystr0="todaystr0&"-"&"0"&NowDate" else="" todaystr0="todaystr0&"-"&NowDate" end="" if="" todaystr1="NowMonth&"-"&NowDate" if="" todaystr0="todaystr1" then="" sql="select username,Userbirthday from [Dv_user] where Userbirthday like '%-" &todaystr1&"'="" order="" by="" userid"="" else="" sql="select username,Userbirthday from [Dv_user] where Userbirthday like '%-" &todaystr1&"'="" or="" userbirthday="" like="" '%-"&todaystr0&"'="" order="" by="" userid"="" end="" if="" set="" rs="Dvbbs.Execute(SQL)" set="" application(dvbbs.cachename="" &="" "_biruser")="Dvbbs.RecordsetToxml(rs,"user","biruser")" set="" rs="Nothing" for="" each="" node="" in="" application(dvbbs.cachename="" &="" "_biruser").documentelement.selectnodes("user")="" todaystr0="Node.selectSingleNode("@userbirthday").text" if="" isdate(todaystr0)="" then="" node.setattribute="" "age",datediff("yyyy",todaystr0,now())="" else="" application(dvbbs.cachename="" &="" "_biruser").documentelement.removechild(node)="" end="" if="" next="" application(dvbbs.cachename="" &="" "_biruser").documentelement.setattribute="" "date",cstr(date())="" end="" sub="" sub="" topicsetting()="" topicmodelist="Split("$$"&" dvbbs.board_setting(48),"$$")="" topicmodelistimg="Split("$$"&" dvbbs.board_setting(49),"$$")="" end="" sub="" sub="" showtopic_1()="" rem="" 查询固顶帖子列表="" dim="" topiclist,topidlist="" if="" page="1" then="" '="" 固顶帖子="" topidlist="Dvbbs.CacheData(28,0)" if="" topidlist="" then="" topidlist="Application(Dvbbs.CacheName" &"_information_"="" &="" dvbbs.boardid).documentelement.selectsinglenode("information/@boardtopstr").text="" elseif="" trim(application(dvbbs.cachename="" &"_information_"="" &=""><>"" Then topidlist=topidlist &","& Application(Dvbbs.CacheName &"_information_" & Dvbbs.boardid).documentElement.selectSingleNode("information/@boardtopstr").text End If If Trim(topidlist) <>"" Then If Not IsObject(Conn) Then ConnectionDatabase If IsSqlDataBase=1 And IsBuss=1 Then Set Cmd = Dvbbs.iCreateObject("ADODB.Command") Set Cmd.ActiveConnection=conn Cmd.CommandText="Dv_TSQL" Cmd.CommandType=4 Cmd.Parameters.Append cmd.CreateParameter("@tsql",200,1,2000) Cmd("@tsql")="Select topicid,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,expression,topicmode,mode,getmoney,getmoneytype,usetools,issmstopic,hidename from dv_topic Where istop > 0 and topicid in ("& Dvbbs.Checkstr(topidlist) &") Order By istop desc, Lastposttime Desc" Set Rs=Cmd.Execute Set Cmd = Nothing Else Set Rs=Dvbbs.Execute("Select topicid,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,expression,topicmode,mode,getmoney,getmoneytype,usetools,issmstopic,hidename from dv_topic Where istop > 0 and topicid in ("& Dvbbs.Checkstr(topidlist) &") Order By istop desc, Lastposttime Desc") End If If Not Rs.EOF Then TopTopic=Rs.GetRows(-1) Else TopTopic=Null End If Set Rs=Nothing End If End If End Sub Sub ShowTopic_2() Rem 查询普通帖子列表 Dim SQLQuery,d If IsSqlDataBase=1 Then d="" Else d="'" End If Select Case CInt(list_type(0)) Rem 条件查询 Case 0 : SQLQuery = " " Case 1 : SQLQuery = " And datediff("&(d&"d"&d)&",DateAndTime,"&SqlNowString&")=0" Case 2 : SQLQuery = " And datediff("&(d&"ww"&d)&",DateAndTime,"&SqlNowString&")=0" Case 3 : SQLQuery = " And datediff("&(d&"m"&d)&",DateAndTime,"&SqlNowString&")=0" Case 4 : SQLQuery = " And datediff("&(d&"d"&d)&",DateAndTime,"&SqlNowString&")=180" Case 5 : SQLQuery = " And datediff("&(d&"yyyy"&d)&",DateAndTime,"&SqlNowString&")=0" Case 6 : SQLQuery = " And isbest=1" Case 7 : SQLQuery = " And isvote=1" Case 8 If Dvbbs.UserID>0 Then SQLQuery = " And postuserid="&Dvbbs.UserID Case Else : SQLQuery = " " End Select Dim OrderId,SortId,sqlfields,sqlfieldswhere sqlfields="TopicID,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,Expression,TopicMode,Mode,GetMoney,GetMoneyType,UseTools,IsSmsTopic,HideName" sqlfieldswhere=" boardid not in (444,777) and IsTop=0 and boardid="&dvbbs.boardid If TopicMode>0 Then sqlfieldswhere=sqlfieldswhere&" and Mode="&TopicMode sqlfieldswhere=sqlfieldswhere&SQLQuery OrderId=CInt(list_type(1)) SortId=CInt(list_type(2)) Dim OrderField,OrderStr,OrderType If OrderId=0 Then OrderField="LastPostTime" ElseIf OrderId=1 Then OrderField="TopicId" ElseIf OrderId=2 Then OrderField="hits" ElseIf OrderId=3 Then OrderField="child" Else OrderField="LastPostTime" End If If SortId=0 Then OrderStr="DESC":OrderType=1 Else OrderStr="ASC":OrderType=0 End If If Not IsObject(Conn) Then ConnectionDatabase If IsSqlDataBase=1 And IsBuss=1 Then Dim mypage Set mypage=new Pager mypage.getconn=conn '得到数据库连接 mypage.pagesize=Cint(Dvbbs.Board_Setting(26)) '定义分页每一页的记录数 mypage.TableName="Dv_Topic" '要查询的表名 mypage.Tablezd=sqlfields mypage.KeyName=OrderField mypage.OrderType=OrderType mypage.PageWhere=sqlfieldswhere mypage.GetStyle =1 Set Rs=mypage.getrs() If Not (Rs.EoF And Rs.Bof) Then Topic=Rs.GetRows(-1) Else Topic=Null End If Count = mypage.int_totalRecord Rs.close() Set Rs=Nothing Else Set Rs = Dvbbs.iCreateObject("adodb.recordset") If Cint(TopicMode)=0 Then Sql="Select TopicID,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,Expression,TopicMode,Mode,GetMoney,GetMoneyType,UseTools,IsSmsTopic,hidename From Dv_Topic Where BoardID="&Dvbbs.BoardID&" And IsTop=0 "&SQLQuery&" Order By "&OrderField&" "& OrderStr Else Sql="Select TopicID,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,Expression,TopicMode,Mode,GetMoney,GetMoneyType,UseTools,IsSmsTopic,hidename From Dv_Topic Where Mode="&TopicMode&" and BoardID="&Dvbbs.BoardID&" And IsTop=0 "&SQLQuery&" Order By "&OrderField &" "& OrderStr End If Rs.Open Sql,Conn,1,1 If Page >1 Then Rs.Move (page-1) * Clng(Dvbbs.Board_Setting(26)) End If If Not Rs.EoF Then Topic=Rs.GetRows(Dvbbs.Board_Setting(26)) Else Topic=Null End If Count = Rs.RecordCount Rs.close() Set Rs=Nothing End If Rem "0-TopicID,1-boardid,2-title,3-postusername,4-postuserid,5-dateandtime,6-child,7-hits,8-votetotal,9-lastpost,10-lastposttime,11-istop,12-isvote,13-isbest,14-locktopic,15-Expression,16-TopicMode,17-Mode,15-GetMoney,19-GetMoneyType,20-UseTools,21-IsSmsTopic,22-hidename" If Count Mod Clng(Dvbbs.Board_Setting(26))=0 Then PageCount = Count / Clng(Dvbbs.Board_Setting(26)) Else PageCount = Count / Clng(Dvbbs.Board_Setting(26))+1 End If If Page>PageCount Then Page=1 End Sub Sub ParseBbsBoardNode(sToken,BoardData,ParentNode) Rem 转换版面列表数据 On Error Resume Next If Not IsObject(BoardData) Then If Not IsObject(Application(Dvbbs.CacheName&"_boardlist")) Then Dvbbs.LoadBoardList Set BoardData = BoardList.documentElement.selectSingleNode("board[@boardid="& Dvbbs.Boardid&"]") End If If ParentNode="information/" Then If Not IsObject(Application(Dvbbs.CacheName &"_information_" & BoardData.selectSingleNode("@boardid").text)) Then Dvbbs.LoadBoardinformation(BoardData.selectSingleNode("@boardid").text) End If Set Node = Application(Dvbbs.CacheName &"_information_" & BoardData.selectSingleNode("@boardid").text).documentElement.selectSingleNode("information/@"&sToken) Else Set Node = BoardData.selectSingleNode("@"&sToken&"") End If Select Case sToken Case "width" TPL_Echo BWidth Case "today" If Application(Dvbbs.CacheName &"_information_" & BoardData.selectSingleNode("@boardid").text).documentElement.selectSingleNode("information/@todaynum").text="0" Then TPL_Echo "today" Else TPL_Echo "todaynew" End If Case "br" If j Mod n =0 And j" Case "disp" TPL_Echo DispMode Case "mode" TPL_Echo ShowMod Case "dispimg" If DispMode="none" Then TPL_Echo "plus" Else TPL_Echo "nofollow" End If Case Else If Not (Node Is Nothing) Then If sToken="boardmaster" Then If Node.text="" Then TPL_Echo "暂无版主" Else Dim boardmaster boardmaster = Split(Node.text,"|") For i=0 To UBound(boardmaster) TPL_Echo ""&boardmaster(i)&" " Next End If ElseIf sToken="indeximg" And Len(Node.text)>4 Then TPL_Echo "" ElseIf ParentNode="information/" Then If BoardData.selectSingleNode("@checkout").text="1" And sToken="lastpost_3" Then TPL_Echo "请认证用户进入查看." Else TPL_Echo Server.HtmlEnCode(Dvbbs.Replacehtml(Node.text)) End If Else TPL_Echo Node.text End If End If End Select Set Node = Nothing If Err Then Err.Clear End Sub Sub BirUser() If Dvbbs.Forum_setting(29)="1" Then If Not IsObject(Application(Dvbbs.CacheName & "_biruser")) Then Forum_BirUser() ElseIf Application(Dvbbs.CacheName & "_biruser").documentElement.selectSingleNode("@date").text <> CStr(Date()) Then Forum_BirUser() End If End If End Sub Sub ParseBirUserNode(sToken,UserNode) Rem 转换今天生日用户数据 On Error Resume Next If sToken="sum" Then TPL_Echo Application(Dvbbs.CacheName & "_biruser").documentElement.selectNodes("user").Length End If If Not IsObject(UserNode) Then Exit Sub Set Node = UserNode.selectSingleNode("@"&sToken&"") If Not (Node Is Nothing) Then TPL_Echo Node.text End If Set Node = Nothing If Err Then Err.Clear End Sub Sub ParseLinkNode(sToken,LinkNode) Rem 转换友情链接数据 On Error Resume Next If Not IsObject(LinkNode) Then Exit Sub Set Node = LinkNode.selectSingleNode("@"&sToken&"") If Not (Node Is Nothing) Then TPL_Echo Node.text End If If sToken="width" Then TPL_Echo Int(100/Link_Br)&"%" If sToken="br" And (i Mod Link_Br)=0 Then TPL_Echo "
" End If Set Node = Nothing If Err Then Err.Clear End Sub Sub ParseRuleNode(sToken) Rem 转换版规数据 On Error Resume Next If IsObject(XmlDom) Then Set XmlDom = Nothing Set XMLDom = Application(Dvbbs.CacheName &"_boarddata_" & Dvbbs.boardid).cloneNode(True) Set Node = XMLDom.documentElement.selectSingleNode("boarddata/@"&sToken&"") If Not (Node Is Nothing) Then TPL_Echo Node.text End If Set Node = Nothing If Err Then Err.Clear End Sub Sub ParseAnnouncements(sToken) Rem 转换公告数据 On Error Resume Next Select Case sToken Case "i" : TPL_Echo i Case Else If Not IsObject(AnnouncementsItem) Then Exit Sub Set Node = AnnouncementsItem.selectSingleNode("@"&sToken&"") If Not (Node Is Nothing) Then TPL_Echo Replace(Replace(Node.text,"""",""),"'","") End If End Select Set Node = Nothing If Err Then Err.Clear End Sub Sub ParseSmallpaper(sToken) Rem 转换小字报数据 On Error Resume Next Select Case sToken Case "i" : TPL_Echo i Case Else If Not IsObject(SmallPaper) Then Exit Sub Set Node = SmallPaper.selectSingleNode("@"&sToken&"") If Not (Node Is Nothing) Then If IsDate(Node.text) Then TPL_Echo DateValue(Node.text) Else TPL_Echo Dvbbs.HtmlEnCode(Node.text) End If End If End Select Set Node = Nothing If Err Then Err.Clear End Sub Sub ParseTopicMode(sToken) Rem 转换帖子专题数据 Select Case sToken Case "boardid" : TPL_Echo Dvbbs.Boardid Case "i" : TPL_Echo i Case "title" If i=TopicMode Then TPL_Echo ""&TopicModeList(i)&"" Else TPL_Echo TopicModeList(i) End If Case "img" If TopicModeListImg(i)<>"" Then TPL_Echo " " End If Case "br" If (i Mod TopicMode_Br)=0 And UBound(TopicModeList)<>i Then TPL_Echo "
" End Select End Sub Sub ParseTopTopicNode(sToken) Rem 转换固顶帖子数据 Dim title Select Case sToken Case "checkbox" lastpost = Split(TopTopic(9,i),"$") If UBound(lastpost)<7 then="" redim="" preserve="" lastpost(6)="" end="" if="" if="" action="batch" then=""> " End If If CInt(TopTopic(17,i))>0 And CInt(TopTopic(1,i))=Dvbbs.BoardId Then TPL_Echo "["& TopicModeList(TopTopic(17,i)) &"] " End If Case "id" : TPL_Echo TopTopic(0,i) Case "listimg" If CInt(TopTopic(6,i))>0 Then TPL_Echo " " Else TPL_Echo "" End If Case "boardid" : TPL_Echo TopTopic(1,i) Case "title","title2" title = Dvbbs.ChkBadWords(TopTopic(2,i)) If "title2"=sToken Then TPL_Echo Server.HtmlEnCode(Dvbbs.Replacehtml(title)) Else title = Left(title,CInt(Dvbbs.Board_Setting(25))) Select Case CInt(TopTopic(16,i)) Case 1 : TPL_Echo title Case 2 : TPL_Echo "" & Server.HtmlEnCode(title) &"" Case 3 : TPL_Echo "" & Server.HtmlEnCode(title) &"" Case 4 : TPL_Echo "" & Server.HtmlEnCode(title) &"" Case Else : TPL_Echo Server.HtmlEnCode(title) End Select End If Case "titleimg" If Dvbbs.Board_Setting(60)<>"" And Dvbbs.Board_Setting(60)<>"0" Then Dim PostTime If Dvbbs.Board_Setting(38) = "0" Then PostTime = lastpost(2) Else PostTime = TopTopic(5,i) End If If DateDiff("n",Posttime,Now)+Cint(Dvbbs.Forum_Setting(0)) < clng(dvbbs.board_setting(61))="" then="" tpl_echo="">" End If End If Case "pagelist" If lastpost(4)<>"" Then TPL_Echo " " Rem 如果固顶帖子要采用不同板块的分页设置，请取消下面一段屏蔽 'Dim tempBoardId:tempBoardId=Dvbbs.BoardId 'If CInt(tempBoardId)<>CInt(TopTopic(1,i)) Then ' Dvbbs.BoardId = CInt(TopTopic(1,i)) 'Else ' Dvbbs.BoardId = tempBoardId 'End If 'Dvbbs.GetForum_Setting() If TopTopic(6,i)+1 > Dvbbs.CheckNumeric(Dvbbs.Board_Setting(27)) Then Call TopicPageList(TopTopic(0,i),TopTopic(1,i),TopTopic(6,i)+1) End If Case "star" : TPL_Echo Int(TopTopic(6,i)/Dvbbs.CheckNumeric(Dvbbs.Board_Setting(27)))+1 Case "postusername" If TopTopic(22,i)="0" Then TPL_Echo ""&TopTopic(3,i)&"" ElseIf TopTopic(22,i)="1" And TopTopic(4,i)<>"0" Then TPL_Echo "匿名用户" Else TPL_Echo "客人" End If Case "postusername_2" If TopTopic(22,i)="0" And TopTopic(4,i)<>"0" Then TPL_Echo TopTopic(3,i) ElseIf TopTopic(22,i)="1" Then TPL_Echo "匿名用户" Else TPL_Echo "客人" End If Case "dateandtime" : TPL_Echo TopTopic(5,i) Case "dateandtime2" : TPL_Echo DateValue(TopTopic(5,i)) Case "child" : TPL_Echo TopTopic(6,i) Case "hit" If CInt(TopTopic(12,i))=1 Then TPL_Echo "" & TopTopic(8,i) &"" Else TPL_Echo TopTopic(7,i) End if Case "lastpostuser" : TPL_Echo lastpost(0) Case "lastpostid" : TPL_Echo lastpost(1) Case "lastpostcontent" : TPL_Echo Server.HtmlEnCode(Dvbbs.Replacehtml(lastpost(3))) Case "lastposttime" : TPL_Echo lastpost(2) Case "top" : TPL_Echo TopTopic(11,i) Case "tool" If CInt(TopTopic(19,i))>0 Then Call TopicTool(CInt(TopTopic(19,i)),TopTopic(18,i),TopTopic(0,i),1) ' 金币帖子 If TopTopic(20,i)>"0" And TopTopic(20,i)<"28" then="" call="" topictool(toptopic(20,i),0,toptopic(0,i),2)="" '="" 道具帖子="" if="" toptopic(21,i)="1" then="" call="" topictool(0,0,toptopic(0,i),3)="" '="" 手机发表的帖子="" if="" toptopic(21,i)="2" then="" call="" topictool(0,0,toptopic(0,i),4)="" '="" 交易帖子="" if="" instr(toptopic(15,i),"|")="">0 And InStr(TopTopic(15,i),"0|")<>1 Then Call TopicTool(0,0,TopTopic(0,i),5) ' 魔法表情帖子 End Select End Sub Sub ParseTopicNode(sToken) Rem 转换普通帖子数据 Dim title Select Case sToken Case "folder" If CInt(Topic(14,i))>0 Then TPL_Echo Dvbbs.mainpic(4) ElseIf CInt(Topic(13,i))>0 Then TPL_Echo Dvbbs.mainpic(5) ElseIf CInt(Topic(12,i))>0 Then TPL_Echo Dvbbs.mainpic(6) ElseIf CInt(Topic(6,i))>CInt(Dvbbs.Forum_Setting(44)) Then TPL_Echo Dvbbs.mainpic(3) Else TPL_Echo Dvbbs.mainpic(2) End If Case "id" : TPL_Echo Topic(0,i) Case "listimg" If CInt(Topic(6,i))>0 Then TPL_Echo "" Else TPL_Echo "" End If Case "checkbox" lastpost = Split(Topic(9,i),"$") If UBound(lastpost)<7 then="" redim="" preserve="" lastpost(6)="" end="" if="" if="" action="batch" then=""> " End If If CInt(Topic(17,i))>0 Then TPL_Echo "["& TopicModeList(Topic(17,i)) &"] " End If Case "boardid" : TPL_Echo Topic(1,i) Case "title","title2" title = Dvbbs.ChkBadWords(Topic(2,i)) If "title2"=sToken Then TPL_Echo Server.HtmlEnCode(Dvbbs.Replacehtml(title)) Else title = Left(title,CInt(Dvbbs.Board_Setting(25))) Select Case CInt(Topic(16,i)) Case 1 : TPL_Echo title Case 2 : TPL_Echo "" & Server.HtmlEnCode(title) &"" Case 3 : TPL_Echo "" & Server.HtmlEnCode(title) &"" Case 4 : TPL_Echo "" & Server.HtmlEnCode(title) &"" Case Else : TPL_Echo Server.HtmlEnCode(title) End Select End If Case "titleimg" If Dvbbs.Board_Setting(60)<>"" And Dvbbs.Board_Setting(60)<>"0" Then Dim PostTime If Dvbbs.Board_Setting(38) = "0" Then PostTime = lastpost(2) Else PostTime = Topic(5,i) End If If DateDiff("n",Posttime,Now)+Cint(Dvbbs.Forum_Setting(0)) < clng(dvbbs.board_setting(61))="" then="" tpl_echo="">" End If End If Case "pagelist" If lastpost(4)<>"" Then TPL_Echo " " If Topic(6,i)+1 > Dvbbs.CheckNumeric(Dvbbs.Board_Setting(27)) Then Call TopicPageList(Topic(0,i),Topic(1,i),Topic(6,i)+1) End If Case "star" : TPL_Echo Int(Topic(6,i)/Dvbbs.CheckNumeric(Dvbbs.Board_Setting(27)))+1 Case "page" : If page>1 Then TPL_Echo "&page="&page Case "postusername" If Topic(22,i)="0" And Topic(4,i)<>"0" Then TPL_Echo ""&Topic(3,i)&"" ElseIf Topic(22,i)="1" Then TPL_Echo "匿名用户" Else TPL_Echo "客人" End If Case "postusername_2" If Topic(22,i)="0" And Topic(4,i)<>"0" Then TPL_Echo Topic(3,i) ElseIf Topic(22,i)="1" Then TPL_Echo "匿名用户" Else TPL_Echo "客人" End If Case "dateandtime" : TPL_Echo Topic(5,i) Case "dateandtime2" : TPL_Echo DateValue(Topic(5,i)) Case "child" : TPL_Echo Topic(6,i) Case "hit" If CInt(Topic(12,i))=1 Then TPL_Echo "" & Topic(8,i) &"" Else TPL_Echo Topic(7,i) End if Case "lastpostuser" : TPL_Echo lastpost(0) Case "lastpostid" : TPL_Echo lastpost(1) Case "lastpostcontent" : TPL_Echo Server.HtmlEnCode(Dvbbs.Replacehtml(lastpost(3))) Case "lastposttime" : TPL_Echo lastpost(2) Case "showpage" Dim gaction If action<>"" Then gaction= "&action="&action TPL_ShowPage Page,Count, Dvbbs.CheckNumeric(Dvbbs.Board_Setting(26)),10, "index.asp?boardid="&Dvbbs.BoardID & gaction &"&TopicMode="&TopicMode&"&List_Type="&Replace(Request("list_type")," ","")&"&Page=" Case "tool" If CInt(Topic(19,i))>0 Then Call TopicTool(CInt(Topic(19,i)),Topic(18,i),Topic(0,i),1) ' 金币帖子 If Topic(20,i)>"0" And Topic(20,i)<"28" then="" call="" topictool(topic(20,i),0,topic(0,i),2)="" '="" 道具帖子="" if="" topic(21,i)="1" then="" call="" topictool(0,0,topic(0,i),3)="" '="" 手机发表的帖子="" if="" topic(21,i)="2" then="" call="" topictool(0,0,topic(0,i),4)="" '="" 交易帖子="" if="" instr(topic(15,i),"|")="">0 And InStr(Topic(15,i),"0|")<>1 Then Call TopicTool(0,0,Topic(0,i),5) ' 魔法表情帖子 End Select End Sub Function TopicPageList(id,boardid,pn) TPL_Echo " [" Dim p If pn Mod Dvbbs.CheckNumeric(Dvbbs.Board_Setting(27)) = 0 Then p = pn/Dvbbs.CheckNumeric(Dvbbs.Board_Setting(27)) Else p = Int(pn/Dvbbs.CheckNumeric(Dvbbs.Board_Setting(27)))+1 End If If p<=10 then="" for="" ii="2" to="" p="" tpl_echo="">"&ii&"" Next Else For ii=2 To 9 TPL_Echo " "&ii&"" Next TPL_Echo "..." & ""&p&"" End If TPL_Echo "]" End Function Sub TopicTool(t,n,id,s) Rem 显示主题使用的道具信息 Select Case s Case 1 Select Case t Case 1 TPL_Echo "[悬赏"&n&"个金币] " Case 2 TPL_Echo " " Case 3 TPL_Echo " " Case 5 TPL_Echo " " End Select Case 2 TPL_Echo "[] " Case 3 TPL_Echo " " Case 4 TPL_Echo " " Case 5 TPL_Echo " " End Select End Sub Sub DispToolsInfo() Rem 显示道具js TPL_Echo vbNewLine & "" & vbNewLine End Sub Function LoadToolsInfo() Rem 加载道具信息 Dim Tools_Info,i,ShowTools,TempStr Dvbbs.Name="Plus_ToolsInfo" If Dvbbs.ObjIsEmpty() Then Dim Rs,Sql Sql = "Select ID,ToolsName From Dv_Plus_Tools_Info order by ID" Set Rs = Dvbbs.Plus_Execute(Sql) If Not Rs.Eof Then Sql = Rs.GetString(,, "§§§", "@#@", "") End If Rs.Close : Set Rs = Nothing Tools_Info = Split(Sql,"@#@") TempStr = "var ShowTools = new Array();" & vbNewLine For i=0 To Ubound(Tools_Info)-1 ShowTools = Split(Tools_Info(i),"§§§") TempStr = TempStr & "ShowTools["&ShowTools(0)&"]='"&Replace(Replace(Replace(ShowTools(1),"\","\\"),"'","\'"),chr(13),"")&"';" Next Dvbbs.value = TempStr & vbNewLine End If LoadToolsInfo = Dvbbs.value End Function Sub ParsePageNode(sToken) Rem 转换页面开关的数据 Select Case sToken Case "online_asp" If Dvbbs.Forum_Setting(14)="1" Or Dvbbs.Forum_Setting(15)="1" Then TPL_Echo "Online.asp?action=1&boardid="&Dvbbs.boardid End If Case "listtype" : TPL_Echo Join(list_type,",") Case "TopicMode" : TPL_Echo TopicMode Case "page" : TPL_Echo page Case "codestr" : TPL_Echo Dvbbs.MainHtml(15) Case "left" If Dvbbs.Forum_Setting(114)="0" Then TPL_Echo "page_left" End If End Select If InStr(sToken,"mainpic_")>0 Then Dim pic_i pic_i = Int(Replace(sToken,"mainpic_","")) TPL_Echo Dvbbs.mainpic(pic_i) End If End Sub Sub ParseInfoNode(sToken) Rem 转换论坛设置和论坛信息的数据 Select Case sToken Case "logincheckcode" : TPL_Echo Dvbbs.forum_setting(79)'登录验证码设置 Case "rss" : TPL_Echo Dvbbs.Forum_ChanSetting(2)'rss订阅 Case "wap" : TPL_Echo Dvbbs.Forum_ChanSetting(1)'wap访问 Case "pic_0" : TPL_Echo template.pic(0) Case "pic_1" : TPL_Echo template.pic(1) Case "pic_2" : TPL_Echo template.pic(2) Case "pic_3" : TPL_Echo template.pic(3) Case "issearch_a" : TPL_Echo 0 Case "ForumUrl" : TPL_Echo Dvbbs.Get_ScriptNameUrl() Case "dvgetcode" : TPL_Echo Dvbbs.GetCode() End Select End Sub Sub ParseUserInfoNode(sToken) Rem 转换用户信息的数据 Select Case sToken Case "userid" : TPL_Echo Dvbbs.UserId Case "username" : TPL_Echo Dvbbs.MemberName Case Else Set Node = Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@"&sToken&"") If Not (Node Is Nothing) Then TPL_Echo Node.text End If Set Node = Nothing End Select End Sub Sub ParseUserMsgNode(sTokenName,UserMsg) Rem 转换用户短消息的数据 If IsArray(UserMsg) And IsNumeric(sTokenName) Then If CInt(sTokenName)<=ubound(usermsg) then="" tpl_echo="" usermsg(stokenname)="" end="" if="" end="" sub="" '---------------------------------------="" '名称="" 单标签解释="" '参数="" stokentype="" -="" 标签名称="" '="" stokenname="" -="" 模板内容="" '---------------------------------------="" sub="" tpl_parsenode(stokentype,="" stokenname)="" select="" case="" stokentype="" case="" "user"="" parseuserinfonode="" stokenname="" case="" "bbsitem"="" parsebbsboardnode="" stokenname,bbsitem,""="" case="" "boarditem"="" parsebbsboardnode="" stokenname,boarditem,""="" case="" "information"="" parsebbsboardnode="" stokenname,boarditem,"information/"="" case="" "usermsg"="" parseusermsgnode="" stokenname,usermsg="" case="" "biruser_list"="" parsebirusernode="" stokenname,usernode="" case="" "announcementsitem"="" parseannouncements="" stokenname="" case="" "smallpaper"="" parsesmallpaper="" stokenname="" case="" "toptopic"="" parsetoptopicnode="" stokenname="" case="" "topic"="" parsetopicnode="" stokenname="" case="" "rule"="" parserulenode="" stokenname="" case="" "topicmode_li"="" parsetopicmode="" stokenname="" case="" "page"="" parsepagenode="" stokenname="" case="" "forum_info"="" parseinfonode="" stokenname="" case="" "text_link","logo_link"="" parselinknode="" stokenname,linknode="" case="" "ad"="" if="" stokenname="forumtextad" then="" if="" dvbbs.boardid="0" then="" tpl_echo="" getforumtextad(0)="" else="" tpl_echo="" getforumtextad(1)="" end="" if="" end="" if="" case="" "usergrouppic"="" on="" error="" resume="" next="" if="" not="" (node.selectsinglenode("@"&stokenname&"")="" is="" nothing)="" then="" tpl_echo="" node.selectsinglenode("@"&stokenname&"").text="" end="" if="" if="" err="" then="" err.clear="" case="" else="" end="" select="" end="" sub="" sub="" tpl_parsearea(stokenname,="" stemplate)="" rem="" 模板区域标签解释="" if="" dvbbs.boardid="0" then="" call="" dispindex(stokenname,="" stemplate)="" else="" call="" dispindex(stokenname,="" stemplate)="" call="" disptopic(stokenname,="" stemplate)="" end="" if="" select="" case="" stokenname="" case="" "userid="0"" :="" if="" dvbbs.userid="0" then="" tpl_scan="" stemplate="" case="" "userid="">0" : If Dvbbs.UserId>0 Then TPL_Scan sTemplate Case "homecall=0" : If Dvbbs.forum_setting(113)=0 Then TPL_Scan sTemplate Case "homecall>0" : If Dvbbs.forum_setting(113)>0 Then TPL_Scan sTemplate Case "riInform=0" : If Dvbbs.forum_setting(114)=0 Then TPL_Scan sTemplate Case "riInform>0" : If Dvbbs.forum_setting(114)>0 Then TPL_Scan sTemplate End Select End Sub Sub DispIndex(sTokenName, sTemplate) Rem 处理首页和版面模块 Select Case sTokenName Case "bbsitem" Rem 一级版面 For Each BBSItem In BoardList.documentElement.selectNodes(Xpath) ShowMod=Trim(Request.Cookies("List")("list"&BBSItem.selectSingleNode("@boardid").text)) DispMode=Trim(Request.Cookies("Disp")("list"&BBSItem.selectSingleNode("@boardid").text)) If ShowMod="" Or Not IsNumeric(ShowMod) Then ShowMod = BBSItem.selectSingleNode("@mode").text End If ChildLen = BoardList.documentElement.selectNodes("board[@parentid="&(BBSItem.selectSingleNode("@boardid").text)&"]").Length n = CInt(BBSItem.selectSingleNode("@simplenesscount").text) If n<=0 then="" n="3" if="" childlen="">n Or ChildLen=0 Then BWidth = Int(100/n)&"%" Else BWidth = Int(100/ChildLen)&"%" End If If (ChildLen>0 Or Dvbbs.BoardId=0) And (BBSItem.selectSingleNode("@hidden").text="0" Or Dvbbs.GroupSetting(37)="1") Then TPL_Scan sTemplate End If Next Case "bbsitem_1" Rem 子版面列表模式 If ShowMod="0" And (DispMode="" Or Dvbbs.BoardId>0) Then TPL_Scan sTemplate Case "bbsitem_2" Rem 子版面简洁模式 If ShowMod="1" And (DispMode="" Or Dvbbs.BoardId>0) Then TPL_Scan sTemplate Case "boarditem" j=0 For Each BoardItem In BoardList.documentElement.selectNodes("board[@parentid="&(BBSItem.selectSingleNode("@boardid").text)&"]") If BoardItem.selectSingleNode("@hidden").text="0" Or Dvbbs.GroupSetting(37)="1" Then ' 隐藏论坛和权限 j=j+1:TPL_Scan sTemplate End If Next Set BoardItem = Nothing Case "announcementsitem" Rem 公告 Call Announcements():i=0 For Each AnnouncementsItem In XMLDom.documentElement.selectNodes("announcements[@boardid="& Dvbbs.Boardid&"]") i=i+1 : TPL_Scan sTemplate Next Set AnnouncementsItem = Nothing End Select If Dvbbs.BoardId=0 Then Select Case sTokenName Case "smsnew=0","smsnew>0" Set Node = Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermsg") If Not (Node Is Nothing) Then UserMsg = Split(Node.text,"||") If UBound(UserMsg)<2 then="" usermsg="Split("0||0||null","||")" if="" stokenname="smsnew=0" and="" cint(usermsg(0))="0" then="" tpl_scan="" stemplate="" elseif="" stokenname="smsnew>0" and="" cint(usermsg(0))="">0 Then TPL_Scan sTemplate End if End If Set Node = Nothing Case "logincode" Rem 右栏登陆验证码 If Dvbbs.forum_setting(79)<>"0" Then Session("xcount")=4 TPL_Scan sTemplate End If Case "logo_link" Rem Logo友情链接 If Dvbbs.BoardId=0 Then Call GetBBSLink:i=0 For Each LinkNode In LinkDom.documentElement.selectNodes("link[@islogo=1]") i=i+1 : TPL_Scan sTemplate Next End If Case "text_link" Rem 文字友情链接 If Dvbbs.BoardId=0 Then i=0 For Each LinkNode In LinkDom.documentElement.selectNodes("link[@islogo=0]") i=i+1 : TPL_Scan sTemplate Next End If Set LinkNode = Nothing Case "biruser" Rem 生日用户判断开启 If Dvbbs.Forum_setting(29)="1" Then Call BirUser() TPL_Scan sTemplate End If Case "biruser_list" Rem 显示今天生日用户 For Each UserNode In Application(Dvbbs.CacheName & "_biruser").documentElement.selectNodes("user") TPL_Scan sTemplate Next Set UserNode = Nothing Case "usergrouppic" For Each Node In Application(Dvbbs.CacheName &"_grouppic").documentElement.selectNodes("usergroup[@orders!=0]") TPL_Scan sTemplate Next Set Node = Nothing End Select End If End Sub Sub DispTopic(sTokenName, sTemplate) Rem 处理帖子列表模块 Select Case sTokenName Case "showtopic" Rem 帖子区域 If Dvbbs.Board_Setting(43)="0" Then TPL_Scan sTemplate Case "boardtab" Rem 判断是否符合显示子版面、版规、专题栏目的条件 Dim term_1,term_2,term_3 term_1 = UBound(TopicModeList)>1 term_2 = Not (Application(Dvbbs.CacheName &"_boarddata_" & Dvbbs.boardid).cloneNode(True).documentElement.selectSingleNode("boarddata/@rules") Is Nothing) And Application(Dvbbs.CacheName &"_boarddata_" & Dvbbs.boardid).cloneNode(True).documentElement.selectSingleNode("boarddata/@rules").text<>"" term_3 = BoardList.documentElement.selectNodes("board[@parentid="&(Dvbbs.BoardId)&"]").Length>0 And (BoardList.documentElement.selectNodes("board[@hidden=0 and @parentid="&(Dvbbs.BoardId)&"]").Length>0 Or Dvbbs.GroupSetting(37)="1") If term_1 Or term_2 Or term_3 Then TPL_Scan sTemplate End If Case "rule" Rem 版规 If Not (Application(Dvbbs.CacheName &"_boarddata_" & Dvbbs.boardid).cloneNode(True).documentElement.selectSingleNode("boarddata/@rules") Is Nothing) Then If Application(Dvbbs.CacheName &"_boarddata_" & Dvbbs.boardid).cloneNode(True).documentElement.selectSingleNode("boarddata/@rules").text<>"" Then TPL_Scan sTemplate End If End If Case "smallpaper" Rem 小字报 If Not IsObject(Application(Dvbbs.CacheName & "_smallpaper")) Then LoadBoardNews_Paper() For Each SmallPaper in Application(Dvbbs.CacheName & "_smallpaper").documentElement.SelectNodes("smallpaper[@s_boardid='"&Dvbbs.Boardid&"']") i=i+1 : TPL_Scan sTemplate Next Set SmallPaper = Nothing Case "topicmode" Rem 专题 If UBound(TopicModeList)>1 Then TPL_Scan sTemplate End If Case "topicmode_li" Rem 专题列表 For i=1 To UBound(TopicModeList) TPL_Scan sTemplate Next Case "tenpay" If Dvbbs.Board_Setting(67)=1 Then TPL_Scan sTemplate Case "page=1" If Page=1 Then TPL_Scan sTemplate Case "toptopic" Rem 固顶帖子 If Page=1 Then Call ShowTopic_1() If IsArray(TopTopic) Then For i=0 To UBound(TopTopic,2) TPL_Scan sTemplate Next End If End If Case "topic" Rem 普通帖子 Call ShowTopic_2() If IsArray(Topic) Then For i=0 To UBound(Topic,2) TPL_Scan sTemplate Next End If Case "action=batch" If action="batch" Then TPL_Scan sTemplate Case Else End Select End Sub TPL_Flush() If IsObject(XmlDom) Then Set XmlDom = Nothing If IsObject(LinkDom) Then Set LinkDom = Nothing Set BBSItem = Nothing Set BoardList = Nothing Set Node = Nothing Set TopTopic=Nothing Set Topic=Nothing If action<>"frameon" Then Dvbbs.Footer End If Dvbbs.PageEnd() %>

AION RMT-アイオン RMT

メイプルストーリー RMT

dragonnest rmt

ARGO RMT

エイカ AIKA RMT

ドラゴンネスト-DragonNest-RMT

AILA rmt アイラ rmt

ネクソンポイント RMT

Dragonica ドラゴニカ -RMT

アラド戦記 RMT

Atlantica-アトランティカ

CabalOnline RMT

Aion-アイオン RMT

日本最大手のRMT斡旋サイト

AION RMT