line
Else
SQL = "Update [Dv_Online] Set Lastimebk = " & SqlNowString & ",Boardid = " & Boardid & ",Stats = ''''" & StatsStr & "'''' Where UserID = " & UserID
End If
Rs.Close
Set Rs = Nothing
Execute(SQL)
End If
''''更新在线峰值
If CLng(MyBoardOnline.Forum_Online) > CLng(Maxonline) Then
Execute("update [Dv_setup] set Forum_Maxonline="&CLng(MyBoardOnline.Forum_Online)&",Forum_MaxonlineDate="& SqlNowString)
CacheData(5,0)=MyBoardOnline.Forum_Online
CacheData(6,0)=Now()
Name="setup"
value=CacheData
End If
Rem 删除超时用户
MyBoardOnline.OnlineQuery
End Sub
Public Sub Nav()
Head()
ShowTopTable()
IsTopTable = 1
End Sub
Public Sub head()
Nowstats=stats
If BoardID > 0 And ScriptName<>"printpage.asp" Then Stats=BoardType&"-"&Stats
Stats=Replace(Stats,Chr(34),""")
Stats=Replace(Stats,Chr(13),"")
Dim re,TitleStats
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
TitleStats=re.Replace(Stats, "")
re.Pattern=""""
TitleStats=re.Replace(TitleStats, """)
Set Re=Nothing
Response.Write Replace(Replace(Replace(mainhtml(1),"{$keyword}",Replace(Forum_info(8),"|",",")),"{$description}",Forum_info(10))&vbNewLine,"{$title}",Forum_Info(0)&"-"&TitleStats)
Response.Write Forum_CSS
Response.Write Chr(10)
Response.Write mainhtml(2)
''''论坛防刷新设置
If Cint(Forum_Setting(19))=1 And Not Page_Admin Then
Dim DoReflashPage
DoReflashPage=false
If Trim(Forum_Setting(64))<>"" And InStr(LCase(Forum_Setting(64)),ScriptName) >0 Then DoReflashPage=True
If (Not IsEmpty(Session(CacheName & "UserID")(1))) And Cint(Forum_Setting(20))>0 And DoReflashPage Then
If DateDiff("s",Session(CacheName & "UserID")(1),Now())<Cint(Forum_Setting(20)) Then
Response.Write "<META http-equiv=Content-Type content=text/html; charset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT="&Forum_Setting(20)&"><br>本页面起用了防刷新机制，请不要在"&Forum_Setting(20)&"秒内连续刷新本页面<BR>正在打开页面，请稍后……"
Response.End
Else
DoReflashPage=Session(CacheName & "UserID")
DoReflashPage(1)=Now()
Session(CacheName & "UserID")=DoReflashPage
End If
ElseIf IsEmpty(Session(CacheName & "UserID")(1)) and Cint(Forum_Setting(20))>0 and DoReflashPage Then
DoReflashPage=Session(CacheName & "UserID")
DoReflashPage(1)=Now()
Session(CacheName & "UserID")=DoReflashPage
End If
End If
End Sub
Public Sub ShowTopTable()
Dim TempStr,ForumMenu,Tempstr1
Dim RayMenuInfo,RayMenu
If UserID = 0 Then
sysmenu = mainhtml(7)
Else
sysmenu = Replace(mainhtml(6),"{$username}",Membername)
If UserHidden=2 Then
sysmenu = Replace(sysmenu,"{$hiddeninfo}",lanstr(3))
Else
sysmenu = Replace(sysmenu,"{$hiddeninfo}",lanstr(4))
End If
If Master Or GroupSetting(70)="1" Then
sysmenu = Replace(sysmenu,"{$manageinfo}",mainhtml(10))
Else
sysmenu = Replace(sysmenu,"{$manageinfo}","")
End If
If Forum_ChanSetting(0)="1" Then
RayMenuInfo = Split(mainhtml(11),"||")
RayMenu = Replace(Replace(RayMenuInfo(4),"{$channame}",CacheData(23,0)),"{$forumurl}",Forum_Info(1))
If FoundIsChallenge Then
RayMenu = RayMenu & RayMenuInfo(2)
Else
RayMenu = RayMenu & RayMenuInfo(3)
End If
RayMenu = Replace(RayMenuInfo(1),"{$raymenu}",RayMenu)
sysmenu = Replace(sysmenu,"{$raymenuinfo}",RayMenuInfo(0))
Else
sysmenu = Replace(sysmenu,"{$raymenuinfo}","")
End If
sysmenu = Replace(sysmenu,"{$userid}",UserID)
Response.Write RayMenu
End If
If Forum_Setting(90)=0 Then
sysmenu = Replace(sysmenu,"{$Plus_Tools}","")
Else
sysmenu = Replace(sysmenu,"{$Plus_Tools}",mainhtml(16))
End If
If GroupSetting(57) = "1" Then
Name = "StyleList_All"
Tempstr1=Value
If Dvbbs.BoardID = 0 Then
TempStr1 = Replace(TempStr1,"{$dskinid}",CacheData(17,0))
Else
TempStr1 = Replace(TempStr1,"{$dskinid}",Sid)
End If
Else
mainhtml(9)=Replace(Replace(Replace(Replace(mainhtml(9),"\","\\"),"''''","\''''"),VbCrLf,"\n"),chr(13),"")
mainhtml(9) = Split(mainhtml(9),"||")
Tempstr1=Replace(Replace(mainhtml(9)(0),"{$dskinid}",CacheData(17,0)),"{$csslist}","")
End If
sysmenu = Replace(sysmenu,"{$syles}",Tempstr1)
TempStr = TempStr & Chr(10) & mainhtml(4)
TempStr = Replace(TempStr,"{$width}",mainsetting(0))
TempStr = Replace(TempStr,"{$link}",Forum_Info(1))
If Boardid>0 Then
If Board_Setting(51)="" Or Board_Setting(51) = "0" Then
TempStr = Replace(TempStr,"{$logo}",Forum_Info(6))
Else
TempStr = Replace(TempStr,"{$logo}",Board_Setting(51))
End If
Else
TempStr = Replace(TempStr,"{$logo}",Forum_Info(6))
End If
If Trim(Forum_info(7))<>"0" And Trim(Forum_info(7))<>"" Then
TempStr = Replace(TempStr,"{$mailto}",Forum_Info(7))
Else
TempStr = Replace(TempStr,"{$mailto}","mailto:" & Forum_Info(5))
End If
TempStr = Replace(TempStr,"{$title}",Forum_Info(0) & "-" & Replace(stats,"''''","\''''"))
TempStr = Replace(TempStr,"{$top_ads}",Forum_ads(0))
TempStr = Replace(TempStr,"{$menu}",Chr(10) & sysmenu)
TempStr = Replace(TempStr,"{$boardid}",boardid)
TempStr = Replace(TempStr,"{$alertcolor}",mainsetting(1))
Name = "ForumPlusMenu"
ForumMenu = Value
If ForumMenu <> "" Then
TempStr = Replace(TempStr,"{$plusmenu}"," <img src="&mainpic(18)&" align=absmiddle> " & ForumMenu)
Else
TempStr = Replace(TempStr,"{$plusmenu}","")
End If
Response.Write TempStr
TempStr = ""
End Sub
Public Sub Head_var(IsBoard,idepth,GetTitle,GetUrl)
Dim NavStr,AllBoardList
If Dvbbs.BoardID=0 Then BoardReadme=lanstr(2) & " <b>" & Forum_Info(0) & "</b>"
If BoardID>0 Then
NavStr = " <a href="&Forum_Info(11)&" onMouseOver=""showmenu(event,BoardJumpList(0),'''''''',0);"" style=""CURSOR:hand"">"&Forum_info(0)&"</a> → "
Else
NavStr = " <a href="&Forum_Info(11)&">"&Forum_info(0)&"</a> → &q上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> |
