; Session("LoadCache")=iScriptName Response.Redirect "../LoadCache.asp" Else If Request.ServerVariables("QUERY_STRING")<>"" Then Session("LoadCache")=ScriptName&"?"&Request.ServerVariables("QUERY_STRING") Else Session("LoadCache")=ScriptName End If Response.Redirect "LoadCache.asp" End If End If End If End Sub ''''取得基本设置数据 Public Sub GetForum_Setting() Name="setup" CacheData=value Dim Setting Setting=CacheData(1,0) Setting = Split(Setting,"|||") Forum_Info = Setting(0) Forum_Info = Split (Forum_Info,",") Forum_Setting = Setting(1) Forum_Setting = Split (Forum_Setting,",") Forum_UploadSetting = Split(Forum_Setting(7),"|") Forum_user = Setting(2) Forum_user = Split (Forum_user,",") Forum_Copyright = Setting(3) Forum_ChanSetting = CacheData(24,0) Forum_ChanSetting = Split(Forum_ChanSetting,",") Forum_Version = CacheData(18,0) BadWords = Split(CacheData(3,0),"|") rBadWord = Split(CacheData(4,0),"|") Main_Sid=CacheData(17,0) Maxonline = CacheData(5,0) NowUseBBS = CacheData(19,0) Cookiepath = CacheData(26,0) If ScriptFolder = Lcase(CacheData(33,0)) Then Page_Admin = True ''''IP锁定 If Request.Cookies(Forum_sn & "Kill")("kill") = "1" Then If Not Page_Admin Then Response.Redirect "showerr.asp?action=iplock" ElseIf Not ( Request.Cookies(Forum_sn & "Kill")("kill") = "0" And Not IsEmpty(Session(CacheName & "UserID")) ) Then Call ChecKIPlock If Request.Cookies(Forum_sn & "Kill")("kill") = "1" Then If Not Page_Admin Then Response.Redirect "showerr.asp?action=iplock" End If End If ''''关闭论坛相关部分 ''''判断BoardID的值，获取对应的设置 If Forum_Setting(21)="1" And Not Page_Admin Then Response.redirect "showerr.asp?action=stop" Dim OpenTime,ischeck Set BoardXML=Application(CacheName&"_Boradlist").cloneNode(True) ''''If (Dvbbs.Forum_ChanSetting(13)="1" And Dvbbs.Forum_ChanSetting(0)="1") Or Dvbbs.Forum_ChanSetting(3)="0" Then MyForumPay = True
If BoardID>0 Then Dim Nodelist,node Set Nodelist=BoardXML.documentElement.getElementsByTagName("board") For Each Node in nodelist If Cstr(BoardId)=Node.attributes.getNamedItem("boardid").text Then Set BoardNode=Node Exit For End If Next Set Nodelist=Nothing If Not IsObject(BoardNode) Then Response.Write "错误的版面参数" Response.End ElseIf BoardNode is Nothing Then Response.Write "错误的版面参数" Response.End End If boarduser = Split(BoardNode.attributes.getNamedItem("boarduser").text,",") Forum_ads = Split(BoardNode.attributes.getNamedItem("board_ads").text,"$") Forum_user = Split(BoardNode.attributes.getNamedItem("board_user").text,",") ''''Forum_user = Board_User board_Setting = Split(BoardNode.attributes.getNamedItem("board_setting").text,",") LastPost = Split(BoardNode.attributes.getNamedItem("lastpost").text,"$") BoardType = BoardNode.attributes.getNamedItem("boardtype").text IsGroupSetting = BoardNode.attributes.getNamedItem("isgroupsetting").text BoardMasterList = BoardNode.attributes.getNamedItem("boardmaster").text BoardRootID = BoardNode.attributes.getNamedItem("rootid").text If BoardNode.parentNode.attributes.getNamedItem("boardid") is Nothing Then BoardParentID="0" Else BoardParentID=BoardNode.parentNode.attributes.getNamedItem("boardid").text End If Sid = BoardNode.attributes.getNamedItem("sid").text Boardreadme=BoardNode.attributes.getNamedItem("readme").text If Len(Board_Setting(22))< 24 Then Board_Setting(22)="1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1" OpenTime=Split(Board_Setting(22),"|") setting=Board_Setting(21) ischeck=Clng(Board_Setting(18)) If Board_Setting(50)<>"0" And Board_Setting(50)<>"" Then Response.Redirect Board_Setting(50) Else Forum_ads = CacheData(2,0) Forum_ads = Split(Forum_ads,"$") If Len(Forum_Setting(70))< 24 Then Forum_Setting(70)="1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1" OpenTime=Split(Forum_Setting(70),"|") setting=Forum_Setting(69) ischeck=Forum_Setting(26) If Not IsNumeric(ischeck) Then ischeck=0 ischeck=CLng(ischeck) End If ''''定时开放判断 If Not Page_Admin And Cint(setting)=1 Then If OpenTime(Hour(Now))="1" Then Response.redirect "showerr.asp?action=stop&boardid="&Dvbbs.BoardID&"" End If ''''在线人数限制 If ischeck > 0 And Not Page_Admin Then If MyBoardOnline.Forum_Online > ischeck And BoardID=0 Then If Not IsONline(Membername,1) Then Response.Redirect "showerr.asp?action=limitedonline&lnum="&ischeck End If If BoardID > 0 Then If (Not IsONline(Membername,1)) And MyBoardOnline.Board_Online > ischeck Then Response.Redirect "showerr.asp?action=limitedonline&lnum="&ischeck End If End If CookiesSid = Request.Cookies("skin")("skinid_"&BoardID) If Not IsNumeric(CookiesSid) Or CookiesSid = "" Then If BoardID = 0 Then SkinID = Main_Sid Else SkinID = Sid End If Else SkinID=CookiesSid End If End Sub Public Function IsReadonly() IsReadonly=False Dim TimeSetting If Forum_Setting(69)="2" Then TimeSetting=split(Forum_Setting(70),"|") If TimeSetting(Hour(Now))="1" Then IsReadonly=True Exit Function End If End If If BoardID>0 Then If Board_Setting(21)="2" Then TimeSetting=split(Board_Setting(22),"|") If TimeSetting(Hour(Now))="1" Then IsReadonly=True End If End If End Function Public Function IsONline(UserName,action) IsONline=False If Trim(UserName)="" Then Exit Function If IsArray(Session(CacheName & "UserID")) And action=1 Then If Session(CacheName & "UserID")(0)="Dvbbs" Then IsONline=True:Exit Function End If End If Dim Rs Set Rs =Execute("Select Count(*) From Dv_Online Where Username=''''"&UserName&"''''") If Rs(0)<> 0 Then IsONline=True Set rs=Nothing End Function
Public Sub LoadTemplates(Page_Fields) Dim Style_Pic,Main_Style,TempStyle SkinID=CLng(SkinID) ''''风格换肤修改 TempStyle = CacheData(35,0) TempStyle = Split(TempStyle,"@@@") If SkinI
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
