<% Response.Write "
总发帖量:" & GBL_AnnounceNum & " 帖
" 'Response.Write "
主题帖子:" & GBL_TopicNum & " 帖
" 'Response.Write "
回复帖子:" & (GBL_AnnounceNum-GBL_TopicNum) & " 帖
" Response.Write "
今日帖子:" & GBL_TodayAnnounce & "
" Response.Write "
昨日帖子:" & GBL_YesterdayAnc & " 帖
" 'Response.Write "
精华帖子:" & GBL_GoodNum & " 帖
" If BoardNum<0 Then BoardNum=0 'Response.Write "
可见版面:" & BoardNum+1 & " 个
" Response.Write "
" 'Response.Write "
    总 在 线:" 'If isNumeric(application(DEF_MasterCookies & "SiteOlTime")) = False Then ' Application.Lock ' application(DEF_MasterCookies & "SiteOlTime") = 0 ' Application.UnLock 'End If 'GBL_OnlineTime = GBL_OnlineTime + application(DEF_MasterCookies & "SiteOlTime") 'Response.Write Fix((GBL_OnlineTime)/(24*60*60)) & " 天
" Response.Write "
    上传附件:" & GBL_UploadNum & " 个
" Response.Write "
    注册用户:" & GBL_UserCount & " 人
" Response.Write "
    页浏览量:" & GBL_PageCount+application(DEF_MasterCookies & "SitePageCount") & " 次
" Response.Write "
" Response.Write "
最高在线数 " & GBL_MaxOnline & " 人 发生于 " & RestoreTime(GBL_MaxolTime) & "
" Response.Write "
最高日发帖 " & GBL_MaxAnnounce & " 帖 发生于 " & RestoreTime(GBL_MaxAncTime) Response.Write "
" End Sub Sub Main OpenDatabase CheckUserOnline If GBL_CheckPassDoneFlag <> 1 Then CheckPass GetActiveUserNumber GBL_CHK_TempStr = "" CheckAssort BBS_SiteHead DEF_SiteNameString & " " & DEF_BBS_Name,GBL_board_ID,"" UpdateOnlineUserAtInfo 0,"论坛首页" If GBL_CHK_User = "" Then DisplayTopInfo DisplayBoard closeDataBase SiteBottom If DEF_DisplayOnlineUser = 1 Then%> <%End If If GBL_SiteBottomString <> "" Then Response.Write GBL_SiteBottomString End Sub Dim Officer,ApplyTime,AnnounceNum Function DisplayTopInfo If GBL_TableHeadString <> "" Then Response.Write "
" Response.Write GBL_TableHeadString Response.Write "
" End If %>
有效期: 用户名: 密码:   [忘记密码了] [新用户注册]