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
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
