<!-- #include file=../inc/BBSsetup.asp -->
<!-- #include file=../inc/Board_Popfun.asp -->
<!-- #include file=../inc/Limit_Fun.asp -->
<!-- #include file=inc/_Board_fun.asp -->
<%
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 " <a href=" & DEF_BBS_HomeUrl & "user/LookUserInfo.asp?name=" & urlencode(temp(N)) & ">" & htmlencode(temp(n)) & "</a>"
	Next

	If N >= Num and N <= I Then
		Response.Write "<span style=""cursor:hand"" title=""更多版主: " & temp(N)
		N = N + 1
		For N = N to I
			Response.Write " " & temp(N)
		Next
		Response.Write """>...</span>"
	End If

End Function

Function LoginAccuessFul

	GBL_CHK_TempStr = ""
	If GBL_board_ID = 0 Then
		Response.Write "<table width=" & DEF_BBS_ScreenWidth & " class=TBBG9 align=center><tr height=20><td>&nbsp;社区不存在此版面，请重新选择或需要添加新社区。</td></tr></table>" & VbCrLf
		Exit Function
	End If
	If GBL_CHK_TempStr<>"" then
		Response.Write GBL_CHK_TempStr
	Else
		DisplayAnnouncesSplitPages
	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
		Dim Page,JMPage
		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 DisplayBoard(Application(DEF_MasterCookies & "BoardInfo" & GBL_board_ID)(27,0))
		End If
		If GetBinarybit(GBL_Board_BoardLimit,12) = 1 Then
			If GBL_ShowBottomSure = 0 Then GBL_SiteBottomString = ""
			Response.Write "<br>"
		Else
	%>
	<table width=<%=DEF_BBS_ScreenWidth%> 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%>><tr><td>
	<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
	<tr bgcolor=<%=DEF_BBS_Color%> class=TBthree><td colspan=2><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=2></td></tr>
	<tr bgcolor=<%=DEF_BBS_Color%> class=TBthree>
		<td height=20><%If GBL_TableHeadString = "" Then%>&nbsp;<%End If%><a href=../Announce/Announce2.asp?BoardID=<%=GBL_board_ID%>><img src=../images/<%=GBL_DefineImage%>newanc.gif width=60 height=17 border=0 align=absmiddle alt=新帖></a>
			<a href=../Announce/Announce2.asp?BoardID=<%=GBL_board_ID%>&VoteFlag=yes><img src=../images/<%=GBL_DefineImage%>newpoll.gif width=60 height=17 border=0 align=absmiddle alt=新投票></a>
			<font color=gray class=GrayFont>讨论区</font>
			<%
			If GBL_Board_GoodNum > 0 Then Response.Write " <a href=EBoard.asp?BoardID=" & GBL_board_ID & ">精华区</a>"
			If isArray(Application(DEF_MasterCookies & "BoardInfo" & GBL_Board_ID & "_TI")) Then
				Response.Write " <a href=EBoard.asp?BoardID=" & GBL_board_ID & "&E=1>专题区</a>"
			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 " <a href=Board2.asp?BoardID=" & GBL_board_ID & ">树型版面</a>"
			If DEF_DisplayOnlineUser = 1 or DEF_DisplayOnlineUser = 3 Then Response.Write " <IMG id=followImg0 name=followImg0 style=""CURSOR: hand"" onclick=ShowOnline(" & GBL_Board_ID & ",""../"") src=""../images/" & GBL_DefineImage & "frame/plus.gif"" loaded=no width=10 height=10>"
			Response.Write " 此版<b><a href=../User/UserOnline.asp?AtBoardID=" & GBL_board_ID & ">"
			ActiveUsers=GetActiveUserNumber(GBL_Board_ID)
			Response.Write ActiveUsers%></a></b>人在线
		</td>
		<td align=right>
			&nbsp;版主：<%DisplayBoardMastList GBL_Board_MasterList,5 %>&nbsp;
		</td>
	</tr>
	</table>
	</td></tr>
	<%If DEF_DisplayOnlineUser = 2 Then%>
	<TR bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
          <TD align=left><table cellspacing=1 cellpadding=6 width=100%><tr><td><%DisplayUserOnline GBL_Board_ID,"../"%></TD></TR></table></TD></TR>
	<%
		End If%>
	<%If DEF_DisplayOnlineUser = 1 or DEF_DisplayOnlineUser = 3 Then%>
	<TR id=follow0 name=follow0 style="DISPLAY: none" bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
          <TD id=followTd0 name=followTd0>
	<script language=javascript>
	var EndFlag=0;
	function ShowOnline(id,ur,acu){
		if (EndFlag==0){alert("网页未下载完成,请稍候...");return;}
		if (follow0.style.display!='block'){
			follow0.style.display="block";
			document.followImg0.src="../images/<%=GBL_DefineImage%>frame/minus.gif";
			if (document.followImg0.loaded=="no"){document.frames["hiddenframe"].location.replace("../User/ol.asp?id="+id+"&ur="+ur+"&acu=<%=ActiveUsers%>");}
			}else{
			follow0.style.display="none";
			document.followImg0.src="../images/<%=GBL_DefineImage%>frame/plus.gif";
			}
		}
	</SCRIPT>
            <DIV onclick=ShowOnline(<%=GBL_Board_ID%>,"<%=urlencode("../")%>")>
            <TABLE cellPadding=0 width="100%">
              <TBODY>
              <TR>
                <TD width="100%"><img src=../images/null.gif width=2 height=2><br>&nbsp;读取中...</TD></TR></TBODY></TABLE></DIV></TD></TR>
	<%End If%></table>
	<img src=../images/blank.gif width=2 height=2><br>
			<%LoginAccuessFul%><br><%
		End If
	Else
		%>
	<br>
	<table width="<%=DEF_BBS_ScreenWidth%>" border="0" cellspacing="0" cellpadding="0" align="center">
	<tr>
		<td>
			<font color=ff0000 class=RedFont><b><%=GBL_CHK_TempStr%></b></font> [<a href=../User/help/help.asp#lmt>说明</a>]</td>
	</tr>
	</table><br>
	<%
	End If
	closeDataBase
	If GBL_CHK_TempStr <> "" Then
		Response.Write "<hr size=1 align=center width=" & DEF_BBS_ScreenWidth & " class=TBtwofont>"
		If GBL_ShowBottomSure = 0 Then GBL_SiteBottomString = ""
	End If
	If DEF_DisplayOnlineUser = 1 or DEF_DisplayOnlineUser = 3 Then%><IFRAME name=hiddenframe width=0 height=0></IFRAME>
	<script language=javascript>
	EndFlag=1;
	</script><%End If
	SiteBottom
	If GBL_SiteBottomString <> "" Then Response.Write GBL_SiteBottomString

End Sub

Function GetActiveUserNumber(BoardID)

	Dim Rs,tmp
	If isArray(Application(DEF_MasterCookies & "BoardInfo" & BoardID)) = True Then
		Rs = Application(DEF_MasterCookies & "BDOL" & BoardID)
		If Rs > 0 Then 
			GetActiveUserNumber = Rs
			Exit Function
		End If
	Else
		GetActiveUserNumber = 0
		Exit Function
	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
	Dim nn,m
	Blist = Split(Blist,",")
	If Ubound(Blist,1) < 0 then Exit Function
	Dim Temp,Flag,Showlag
	Flag = 0
	Showlag = 0

	Dim GetData(21,0),BoardNum,Boardid
	BoardNum = Ubound(Blist,1)

	If BoardNum = -1 Then
		Response.Write "<table width=" & DEF_BBS_ScreenWidth & " border=0 cellspacing=1 cellpadding=6 align=center bgcolor=" & DEF_BBS_DarkColor & " class=TBone><tr bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td colspan=4>找不到任何版面</td></tr></table>"
	Else
		Dim CurrentAssosrt,N
		CurrentAssosrt = -1183
		'Response.Write "fix(abs(CDBL(Timer)*1000 - DEF_PageExeTime1)):"&fix(abs(CDBL(Timer)*1000 - DEF_PageExeTime1))
		For N = 0 to BoardNum
			Temp = Application(DEF_MasterCookies & "BoardInfo" & Blist(n))
			GetData(0,0) = Blist(n)
			If isArray(Temp) = False Then
				ReloadBoardInfo(Blist(n))
			End If
			If isArray(Temp) = True Then
				Showlag = 1
				GetData(15,0) = Temp(14,0)
				GetData(2,0) = Temp(0,0)
				GetData(1,0) = Temp(1,0)
				GetData(6,0) = Temp(29,0)
				GetData(7,0) = Temp(30,0)
				GetData(16,0) = Temp(31,0)
				GetData(17,0) = Temp(32,0)
				If LMT_SimpleHomePage = 0 Then
					GetData(14,0) = Temp(1,0)
					GetData(3,0) = Temp(2,0)
					GetData(4,0) = Temp(3,0)
					GetData(5,0) = Temp(4,0)
					GetData(8,0) = Temp(7,0)
					GetData(9,0) = Temp(8,0)
					GetData(10,0) = Temp(19,0)
					GetData(11,0) = Temp(20,0)
					GetData(12,0) = Temp(10,0)
					GetData(13,0) = Temp(9,0)
					GetData(18,0) = Temp(21,0)
					GetData(19,0) = Temp(22,0)
					GetData(20,0) = Temp(23,0)
					GetData(21,0) = Temp(27,0)
				End If
				If CurrentAssosrt<>cCur(GetData(1,0)) Then
					CurrentAssosrt = cCur(GetData(1,0))
					If Flag = 1 Then
						Response.Write "</table>"
						If GBL_TableBottomString <> "" Then
							Response.Write "<table width=" & DEF_BBS_ScreenWidth & " border=0 cellspacing=0 cellpadding=0 align=center><tr><td>"
							Response.Write GBL_TableBottomString
							Response.Write "</td></tr></table>"
						End If
						Response.Write "<br>"
					End If
					If GBL_TableHeadString <> "" Then
						Response.Write "<table width=" & DEF_BBS_ScreenWidth & " border=0 cellspacing=0 cellpadding=0 align=center><tr><td>"
						Response.Write GBL_TableHeadString
						Response.Write "</td></tr></table>"
					End If
					Response.Write "<table width=" & DEF_BBS_ScreenWidth & " border=0 cellspacing=1 cellpadding=5 align=center bgcolor=" & DEF_BBS_DarkColor & " class=TBone><tr bgcolor=" & DEF_BBS_LightDarkColor & "><td colspan=4 class=TBHead><img src=../images/blank.gif width=2 height=3><br><a href=Board.asp?BoardID=" & GBL_Board_ID & "><font color=white class=HeadFont>" &  GBL_Board_BoardName & "</font></a></td></tr>"
					Flag = 1
				End If

				If LMT_SimpleHomePage = 1 Then
					If (nn mod 4) = 0 Then Response.Write "<tr bgcolor=#f7f7f7 class=TBBG9>"
					Response.Write "<td width=20% ><a href=Board/Board.asp?BoardID=" & GetData(0,0) & ">" & GetData(2,0) & "</a></td>"
					nn = nn + 1
					If nn> 3 Then nn = 0
				Else
				Response.Write "<tr bgcolor=" & DEF_BBS_LightestColor & " align=center class=TBBG9><td width=25 bgcolor=" & DEF_BBS_LightColor & " class=TBBG1><img src=../images/" & GBL_DefineImage & "BoardTopic/"
				If cCur(GetData(16,0)) > 0 Then Response.Write "_"
				If GetData(8,0) <> "" Then
					Response.Write "lock.gif title=保密社区"
				Else
					If GetBinarybit(GetData(13,0),7) = 1 Then
						Response.Write "lock3.gif title=版主专区"
					Else
						If GetBinarybit(GetData(13,0),4) = 1 and GetBinarybit(GetData(13,0),3) = 1 and GetBinarybit(GetData(13,0),6) = 1 Then
							Response.Write "readonly.gif title=只读社区"
						Else
							If GetBinarybit(GetData(13,0),2) = 1 Then
								Response.Write "lock2.gif title=正式社员社区"
							Else
								If GetBinarybit(GetData(13,0),1) = 1 Then
									Response.Write "lock1.gif title=注册认证社区"
								Else
									If GetBinarybit(GetData(13,0),9) = 1 Then
										Response.Write "open.gif title=开放社区"
									Else
										Response.Write "1.gif title=常规社区"
									End If
								End If
							End If
						End If
					End If
				End If
				Response.Write " width=24 height=24></td>"
				Response.Write "<td align=Left><table width=100% border=0 cellspacing=0 cellpadding=0>"
				If GetData(18,0) <> "" Then Response.Write "<tr><td rowspan=4 width=" & GetData(19,0) & "><a href=../Board/Board.asp?BoardID=" & GetData(0,0) & "><img src=""" & htmlencode(GetData(18,0)) & """ width=" & GetData(19,0) & " height=" & GetData(20,0) & " border=0></a></td><td width=4 rowspan=4><img src=../images/null.gif width=2 height=2></td></tr>"
				Response.Write "<tr height=20><td><a href=../Board/Board.asp?BoardID=" & GetData(0,0) & ">" & GetData(2,0) & "</a>"

				Response.Write "</td><td align=right rowspan=2 valign=top><img src=../images/null.gif width=2 height=2><br><a href=../announce/announce2.asp?BoardID=" & GetData(0,0) & "><img src=../images/" & GBL_DefineImage & "BoardTopic/post.gif height=13 width=12 border=0 title=在此社区发表新帖子></a><br><img src=../images/null.gif width=2 height=5><br><a href=../Board/EBoard.asp?BoardID=" & GetData(0,0) & "><img src=../images/" & GBL_DefineImage & "BoardTopic/elist.gif height=13 width=12 border=0 title=查看精华区内容(共" & GetData(17,0) & "精华帖子)></a></td></tr>"
				Response.Write "<tr height=15><td>"
				Response.Write GetData(3,0) & "</td>"
				'Response.Write "<td align=right><a href=../Board/EBoard.asp?BoardID=" & GetData(0,0) & "><img src=../images/" & GBL_DefineImage & "BoardTopic/elist.gif height=13 width=12 border=0 title=查看精华区内容(共" & GetData(17,0) & "精华帖子)></a></td></tr>"
				Response.Write "<tr height=15><td colspan=2>"
				Response.Write "<img src=../images/null.gif height=2 width=192><br>版主："
				DisplayBoardMastList GetData(12,0),5
				Response.Write "</tr>"
				Response.Write "</table></td>"
				Response.Write "<td align=Left width=80 valign=top><img src=../images/null.gif height=2 width=2><br>主题 <b>" & GetData(6,0) & "</b><br><img src=../images/null.gif height=4 width=2><br>新帖 <b><font color=" & DEF_BBS_LightDarkColor & " class=TBtwofont>" & GetData(16,0) & "</font></b><br><img src=../images/null.gif height=4 width=2><br>总量 <b>" & GetData(7,0) & "</b></td>"
				Response.Write "<td align=left width=222 valign=top><img src=../images/null.gif height=2 width=2><br>"
				Temp = 0
				'If GetBinarybit(GetData(13,0),12) = 1 Then
				'	If(GetData(21,0)="" or isNull(GetData(21,0))) Then
				'		Response.Write "版面：无下级版面"
				'	Else
				'		Response.Write cStr(Ubound(Split(GetData(21,0),","),1)+1) & "个"
				'	End If
				'Else
					If GetData(11,0) = "" or isNull(GetData(11,0)) Then
						Response.Write "主题：无"
					Else
						If StrLength(GetData(11,0))>31 Then
							GetData(11,0) = htmlencode(LeftTrue(GetData(11,0),31-3)) & "..."
						Else
							GetData(11,0) = htmlencode(GetData(11,0))
						End if
						If GetData(8,0) <> "" or GetBinarybit(GetData(13,0),2) = 1 or GetBinarybit(GetData(13,0),7) = 1 Then
							Response.Write "主题：已设置为隐藏"
							Temp = 1
						Else
							If cCur(GetData(10,0)) > 0 Then
								Response.Write "主题：<a href=../announce/announce.asp?BoardID=" & GetData(0,0) & "&ID=" & GetData(10,0) & "&aupflag=1&anum=1>" & htmlencode(GetData(11,0)) & "</a>"
							Else
								Response.Write "主题：" & htmlencode(GetData(11,0))
							End If
						End If
					End If
					Response.Write "<br><img src=../images/null.gif height=4 width=2><br>"
					If GetData(4,0)="" Then
						Response.Write "作者："
						GetData(4,0)="无"
						Response.Write GetData(4,0)
						Response.Write "<br><img src=../images/null.gif height=4 width=2><br>时间：无"
					Else
						Response.Write "回复："
						If GetData(4,0) <> "游客" Then
							If Temp = 1 Then
								Response.Write "隐藏"
							Else
								Response.Write "<a href=../User/LookUserInfo.asp?Name=" & htmlencode(GetData(4,0)) & ">" & htmlencode(GetData(4,0)) & "</a>"
							End If
						Else
							Response.Write htmlencode(GetData(4,0))
						End If
						If Temp = 0 Then Response.Write " " & Left(RestoreTime(GetData(5,0)),16)
						If isNumeric(Application(DEF_MasterCookies & "BDOL" & GetData(0,0))) = 0 Then
							Application.Lock
							Application(DEF_MasterCookies & "BDOL" & GetData(0,0)) = 0
							Application.UnLock
						End If
						Response.Write "<br><img src=../images/null.gif height=4 width=2><br>在线：共<b><a href=../User/UserOnline.asp?AtBoardID=" & GetData(0,0) & ">" & cCur(Application(DEF_MasterCookies & "BDOL" & GetData(0,0))) & "</a></b>人在线"
					End If
				'End If
				Response.Write "</td></tr>"
				End If
			End If
		Next
		If nn > 0 and LMT_SimpleHomePage = 1 Then
			For m = nn to 3
				Response.Write "<td width=20% >&nbsp;</td>"
			Next
		End If
		Response.Write "</table>"
		If Showlag = 1 and GBL_TableBottomString <> "" Then
			%><table width=<%=DEF_BBS_ScreenWidth%> border=0 cellspacing=0 cellpadding=0 align=center><tr><td><%=GBL_TableBottomString%></td></tr></table><%
		End If
	End If

End Function

Sub ReloadTopicAssort(BoardID)

	Dim Rs
	Set Rs = Con.ExeCute("select ID,AssortName,GoodNum 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

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

	%>
<table width=100%>
<script language=javascript>
var n=1;
var rguser=0;

function s(GetData0,GetData1,GetData2)
{
	var tempstr = ""
	if(GetData0 == "")return;
	if(n==1)tempstr+="<tr>";
	tempstr+="<td>&nbsp;";
	if(GetData1 == null || trim(GetData1) == "")
	{
		tempstr+="<font color=#8888ff>※</font><a href=<%=Url%>User/LookUserMoreInfo.asp?OlID=" + GetData0 + ">游客</a></td>";
	}
	else
	{
		rguser+=1;
		if (GetData1 == "隐身社员")
		{
			tempstr+="<font color=gray class=GrayFont>※</font><a href=<%=Url%>User/LookUserMoreInfo.asp?OlID=" + GetData0 + ">隐身社员</a></td>";
		}
		else
		{
			if(parseInt(GetData2)&(1<<(10-1))){tempstr+="<font color=Red class=RedFont>●</font>";}
			else
			{
				if(parseInt(GetData2)&(1<<(14-1))){tempstr+="<font color=Green class=GreenFont>●</font>";}
				else
				{
					if(parseInt(GetData2)&(1<<(8-1))){tempstr+="<font color=Blue class=BlueFont>●</font>";}
					else
					{
						if(parseInt(GetData2)&(1<<(2-1))){tempstr+="<font color=Gray class=GrayFont>●</font>";}
						else{tempstr+="<font color=green class=GreenFont>※</font>";}
					}
				}
			}
			tempstr+="<a href='<%=Url%>User/LookUserInfo.asp?name=" + GetData1 + "'>" + GetData1 + "</a></td>";
		}
	}
	n+=1;
	if(n>7)
	{
		tempstr+="</tr>";
		n=1;
	}
	document.write(tempstr);
}
function trim(str)
{
	var re = /( )/gi;
	var rv = str.replace(re,"");
	return(rv);
}
<%
	Dim Temp
	Temp = 0
	If ActiveUsers < Num + 1 Then ActiveUsers = Num + 1
	
	Dim Rs,SQL
	If BoardID = 0 Then
		SQL = "select TOP " & LMT_Max_OnlineUserList & " ID,UserName,HiddenFlag from LeadBBS_onlineUser order by id"
	Else
		SQL = "select TOP " & LMT_Max_OnlineUserList & " ID,UserName,HiddenFlag from LeadBBS_onlineUser where AtBoardID=" & boardID &" and UserID>0"
	End If

	Set Rs = Con.ExeCute(SQL)
	GBL_DBNum = GBL_DBNum + 1
	Dim Num
	Dim GetData
	If Not rs.Eof Then
		Response.Write "s("""
		Response.Write Rs.GetString(,,""",""",""");" & VbCrLf & "s(""","")
		'Response.Write Rs.GetString(,,""",",");" & VbCrLf & "s(""","")
		Response.Write ""","""",0);"
	Else
		Num = -1
	End If
	Rs.close
	Set Rs = Nothing

	If ActiveUsers < Num Then ActiveUsers = Num
	Temp = Num
	If isNumeric(application(DEF_MasterCookies & "ActiveUsers")) = 0 Then
		Application.Lock
		application(DEF_MasterCookies & "ActiveUsers") = 0
		Application.UnLock
	End If
	If application(DEF_MasterCookies & "ActiveUsers") < Temp Then
		Application.Lock
		application(DEF_MasterCookies & "ActiveUsers") = Temp
		Application.UnLock
	End If
	Response.Write "var online=" & cCur(application(DEF_MasterCookies & "ActiveUsers")) & ";" & VbCrLf & "if(online<rguser)online=rguser;" & VbCrLf
	Response.Write "document.write(""<tr><td colspan=7><img src=" & url & "images/null.gif width=2 height=4><br>&nbsp;目前社区总共有 "" + online + "" 人在线。"
	If BoardID > 0 Then
		Response.Write "此版面共 " & ActiveUsers & " 人在线，"
		Response.Write "其中注册社员 "" + rguser + "" 人，游客 "" + (" & ActiveUsers & "-rguser) + "" 人 "
	Else
		Response.Write "其中注册社员 "" + rguser + "" 人，游客 "" + (online-rguser) + "" 人 "
	End If
	If BoardID = 0 Then Response.Write "<br><img src=" & url & "images/null.gif height=7 width=2><br>&nbsp;图例： <font color=#8888ff>※</font>游客 &nbsp; <font color=gray class=GrayFont>※</font>隐身社员 &nbsp; <font color=Red class=RedFont>●</font>总版主 &nbsp; <font color=Green class=GreenFont>●</font>区版主 &nbsp; <font color=Blue class=BlueFont>●</font>社区版主 &nbsp; <font color=Gray class=GrayFont>●</font>认证社员 &nbsp; <font color=green class=GreenFont>※</font> 注册社员"
	Response.Write "</td></tr>"");"
%>
</script>
</table>
<%

End Function

Main
%>