<% 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 %>

有效期: 无效 一年 一天 两天 一周 一月 用户名: 密码:   [忘记密码了] [新用户注册]