; 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上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> |
