<% Const DisplayChildBoardStyle = 1 DEF_PubMessageEnable = 1 DEF_BBS_HomeUrl = "../" Dim LMT_SimpleHomePage '是否为简约首页 LMT_SimpleHomePage = 0 If Request.QueryString("S") = "1" Then LMT_SimpleHomePage = 1 Function DisplayBoardMastList(MasterList,Num) If MasterList = "" Then Response.Write "无" Exit function ElseIf MasterList = "?LeadBBS?" Then Response.Write "全体版主" Exit function End If Dim temp,n,I Temp = split(MasterList,",") I = Ubound(temp,1) For N = 0 to I If N >= Num Then 'Response.Write "..." Exit For End If Response.Write " " & htmlencode(temp(n)) & "" Next If N >= Num and N <= I Then Response.Write "..." End If End Function Function LoginAccuessFul GBL_CHK_TempStr = "" If GBL_board_ID = 0 Then Response.Write "
 论坛不存在此版面，请重新选择或需要添加新论坛。
" & VbCrLf GBL_SiteBottomString = "" Exit Function End If If GBL_CHK_TempStr<>"" then Response.Write GBL_CHK_TempStr GBL_SiteBottomString = "" Else DisplayAnnouncesSplitPages End If End Function Function GetActiveUserNumber(BoardID) If GBL_board_ID < 1 Then GetActiveUserNumber = 0 Exit Function End If Dim Rs,tmp If isArray(Application(DEF_MasterCookies & "BoardInfo" & BoardID)) = True Then Rs = Application(DEF_MasterCookies & "BDOL" & BoardID) If Rs > 0 and Rs <= cCur(Application(DEF_MasterCookies & "ActiveUsers")) Then GetActiveUserNumber = Rs Exit Function End If End If Set Rs = Con.ExeCute("select count(*) from LeadBBS_onlineUser where AtBoardID=" & BoardID) GBL_DBNum = GBL_DBNum + 1 If Rs.Eof Then tmp = 0 Else tmp = Rs(0) If isNull(tmp) Then tmp = 0 tmp = cCur(tmp) End If Rs.Close Set Rs = Nothing GetActiveUserNumber = tmp If isArray(Application(DEF_MasterCookies & "BoardInfo" & BoardID)) = True Then Application.Lock Application(DEF_MasterCookies & "BDOL" & BoardID) = tmp Application.UnLock End if End Function Function DisplayBoard(Blist) If Blist & "" = "" Then Exit Function Blist = Split(Blist,",") If Ubound(Blist,1) < 0 then Exit Function Dim Temp,Flag Flag = 0 Dim GetData,BoardNum BoardNum = Ubound(Blist,1) If BoardNum = -1 Then Response.Write "
找不到任何版面
" Else%> <%If ShowFlag = 1 Then%> <%If GBL_TableBottomString <> "" Then %> border=0 cellspacing=0 cellpadding=0 align=center>
<%=GBL_TableBottomString%>
<% End If End If Response.Write "
" 'Response.Write "fix(abs(CDBL(Timer)*1000 - DEF_PageExeTime1)):"&fix(abs(CDBL(Timer)*1000 - DEF_PageExeTime1)) End If End Function Sub Main GBL_CHK_PWdFlag = 0 GBL_CHK_GuestFlag = 0 initDatabase CheckisBoardMaster GBL_CHK_TempStr = "" BBS_SiteHead DEF_SiteNameString & " " & DEF_BBS_Name,GBL_board_ID,"" CheckAccessLimit Dim ActiveUsers If GBL_CHK_TempStr = "" Then UpdateOnlineUserAtInfo GBL_board_ID,GBL_Board_BoardName If DisplayChildBoardStyle = 0 Then Page = Left(Request.QueryString("p"),14) If isNumeric(Page) = 0 or inStr(Page,".") > 0 Then Page = 0 Page = cCur(Page) JMPage = Left(Request.QueryString("q"),14) If isNumeric(JMPage) = 0 or inStr(JMPage,".") > 0 Then JMPage = 0 JMPage = Fix(cCur(JMPage)) If JMPage > DEF_MaxJumpPageNum Then JMPage = 0 If Request.QueryString("Upflag")="1" Then Page = Page - JMPage Else Page = Page + JMPage End If If GetBinarybit(GBL_Board_BoardLimit,12) = 1 or (Page < 1) Then Response.Write "
" If GBL_board_ID > 0 Then DisplayBoard(Application(DEF_MasterCookies & "BoardInfo" & GBL_board_ID)(27,0)) End If End If If GetBinarybit(GBL_Board_BoardLimit,12) = 1 Then If GBL_ShowBottomSure = 0 Then GBL_SiteBottomString = "" Else %> border=0 cellspacing=1 cellpadding=0 align="center" bgcolor=<%=DEF_BBS_DarkColor%> class=<%If GBL_TableHeadString = "" Then Response.Write "TBone" Else Response.Write "TBthree" End If%>> <%If DEF_DisplayOnlineUser = 2 Then%> class=TBBG9> " End If%> class=TBBG9> <% If DEF_DisplayOnlineUser = 1 or DEF_DisplayOnlineUser = 3 Then%> class=TBBG9> <%End If%>
class=TBthree> class=TBthree>
images/null.gif width=2 height=2>
<%If GBL_TableHeadString = "" Then%> <%End If%>>newanc.gif width=60 height=17 border=0 align=absmiddle alt=新帖> &VoteFlag=yes>newpoll.gif width=60 height=17 border=0 align=absmiddle alt=新投票> 讨论区 <% If GBL_Board_GoodNum > 0 Then Response.Write " 精华区" If isArray(Application(DEF_MasterCookies & "BoardInfo" & GBL_Board_ID & "_TI")) Then Response.Write " " Response.Write "专题区" Else If Application(DEF_MasterCookies & "BoardInfo" & GBL_Board_ID & "_TI") <> "yes" Then ReloadTopicAssort(GBL_Board_ID) End If If DEF_EnableTreeView = 1 Then Response.Write " 树型版面" If DEF_DisplayOnlineUser = 1 or DEF_DisplayOnlineUser = 3 Then Response.Write " " Response.Write "此版" ActiveUsers=GetActiveUserNumber(GBL_Board_ID) Response.Write ActiveUsers%>人在线  版主：<%DisplayBoardMastList GBL_Board_MasterList,5 %> 
<% DisplayUserOnline GBL_Board_ID,"../" Response.Write "

<%LoginAccuessFul End If Else %>
<%=GBL_CHK_TempStr%> [说明]
<% End If Dim Page,JMPage If GBL_CHK_TempStr = "" and DisplayChildBoardStyle <> 0 Then Page = Left(Request.QueryString("p"),14) If isNumeric(Page) = 0 or inStr(Page,".") > 0 Then Page = 0 Page = cCur(Page) JMPage = Left(Request.QueryString("q"),14) If isNumeric(JMPage) = 0 or inStr(JMPage,".") > 0 Then JMPage = 0 JMPage = Fix(cCur(JMPage)) If JMPage > DEF_MaxJumpPageNum Then JMPage = 0 If Request.QueryString("Upflag")="1" Then Page = Page - JMPage Else Page = Page + JMPage End If If GetBinarybit(GBL_Board_BoardLimit,12) = 1 or (Page < 1) Then If GBL_board_ID > 0 Then Response.Write "
" DisplayBoard(Application(DEF_MasterCookies & "BoardInfo" & GBL_board_ID)(27,0)) End if End If End If closeDataBase If GBL_CHK_TempStr <> "" Then Response.Write "
" If GBL_ShowBottomSure = 0 Then GBL_SiteBottomString = "" End If SiteBottom%> <% If GBL_SiteBottomString <> "" Then Response.Write GBL_SiteBottomString End Sub Function DisplayUserOnline(BoardID,url) Const LMT_Max_OnlineUserList = 2000 Dim ActiveUsers ActiveUsers = 0 If BoardID > 0 and isArray(Application(DEF_MasterCookies & "BoardInfo" & BoardID)) = True Then ActiveUsers = cCur(Application(DEF_MasterCookies & "BDOL" & BoardID)) %>
<% End Function Sub ReloadTopicAssort(BoardID) Dim Rs Set Rs = Con.ExeCute("select ID,AssortName,0,0,0 from LeadBBS_GoodAssort where BoardID=" & BoardID & " Order by BoardID,OrderID") If Not Rs.Eof Then Application.Lock Application(DEF_MasterCookies & "BoardInfo" & BoardID & "_TI") = Rs.GetRows(-1) Application.UnLock Else Application.Lock Set Application(DEF_MasterCookies & "BoardInfo" & BoardID & "_TI") = Nothing Application(DEF_MasterCookies & "BoardInfo" & BoardID & "_TI") = "yes" Application.UnLock End If Rs.Close Set Rs = Nothing End Sub Main %>