<%siteHead(" ")%> <% Dim GBL_REQ_Assort,GBL_TopicNum,GBL_AnnounceNum,GBL_GoodNum,GBL_TodayAnnounce,GBL_StartBoard Dim GBL_OnlineUserNum,GBL_UserCount,GBL_MaxOnline,GBL_OnlineTime,GBL_MaxolTime,GBL_PageCount,GBL_UploadNum Dim GBL_MaxAnnounce,GBL_MaxAncTime,GBL_YesterdayAnc Dim Blist,BoardNum Blist = Application(DEF_MasterCookies & "BList") Function CheckAssort GBL_REQ_Assort = Left(Request.QueryString("Assort"),14) If isNumeric(GBL_REQ_Assort)=0 Then GBL_REQ_Assort=0 GBL_REQ_Assort = Fix(cCur(GBL_REQ_Assort)) Dim BoardNum,N,TempArray GBL_StartBoard = 0 If GBL_REQ_Assort > 0 and isArray(Blist) = True Then BoardNum = Ubound(Blist,2) For N = 0 to BoardNum If GBL_REQ_Assort = cCur(Blist(1,n)) Then TempArray = Application(DEF_MasterCookies & "BoardInfo" & Blist(0,n)) If isArray(TempArray) = True Then GBL_Board_BoardAssort = cCur(TempArray(1,0)) GBL_Board_AssortName = TempArray(14,0) GBL_StartBoard = N Exit For Else GBL_REQ_Assort = 0 GBL_Board_BoardAssort = 0 GBL_Board_AssortName = "" Exit For End If End If Next If N > BoardNum Then GBL_REQ_Assort = 0 Else GBL_REQ_Assort = 0 GBL_Board_BoardAssort = 0 GBL_Board_AssortName = "" End If If cCur(GBL_ShowBottomSure) = 0 and GBL_REQ_Assort > 0 Then GBL_SiteBottomString = "" End Function Function DisplayBoard Dim Temp,Flag Flag = 0 Dim GetData If isArray(Blist) = True Then BoardNum = Ubound(Blist,2) Else ReloadBoardListData Blist = application(DEF_MasterCookies & "BList") If isArray(Blist) = True Then BoardNum = Ubound(Blist,2) Else BoardNum = -1 End if End If If BoardNum = -1 Then Else%> <% End If End Function Sub Main OpenDatabase CheckUserOnline If GBL_CheckPassDoneFlag <> 1 Then CheckPass GetActiveUserNumber GBL_CHK_TempStr = "" CheckAssort DisplayBoard closeDataBase End Sub Function GetActiveUserNumber If isNumeric(application(DEF_MasterCookies & "ActiveUsers")) = False Then Application.Lock application(DEF_MasterCookies & "ActiveUsers") = 0 Application.UnLock End If GBL_OnlineUserNum = cCur(application(DEF_MasterCookies & "ActiveUsers")) Dim TmpData If isArray(application(DEF_MasterCookies & "StatisticData")) = False Then ReloadStatisticData TmpData = Application(DEF_MasterCookies & "StatisticData") GBL_OnlineTime = cCur(TmpData(0,0)) GBL_UserCount = cCur(TmpData(1,0)) GBL_MaxOnline = cCur(TmpData(2,0)) GBL_MaxolTime = cCur(TmpData(3,0)) GBL_PageCount = cCur(TmpData(4,0)) GBL_UploadNum = cCur(TmpData(5,0)) GBL_MaxAnnounce = cCur(TmpData(6,0)) GBL_MaxAncTime = cCur(TmpData(7,0)) GBL_YesterdayAnc = cCur(TmpData(8,0)) If GBL_OnlineUserNum > GBL_MaxOnline Then Con.ExeCute("Update LeadBBS_SiteInfo Set MaxOnline=" & GBL_OnlineUserNum & ",MaxolTime=" & GetTimeValue(DEF_Now)) UpdateStatisticDataInfo GBL_OnlineUserNum,2,0 UpdateStatisticDataInfo GetTimeValue(DEF_Now),3,0 End If End Function Main%>