<!-- #include file=../../inc/BBSsetup.asp -->
<!-- #include file=../../inc/Board_popfun.asp -->
<!-- #include file=../inc/UserTopic.asp -->
<%
DEF_BBS_HomeUrl = "../../"
SiteHead(DEF_SiteNameString & " - 关于我们")

UserTopicTopInfo
DisplayUserNavigate("关于我们")
ScreenInfo
UserTopicBottomInfo
sitebottom
If GBL_ShowBottomSure = 1 Then Response.Write GBL_SiteBottomString

Function ScreenInfo%>

<p>
<!-- #include file=../inc/Contact_Info.asp -->

<%
	DisplayBoardManageInfo

End Function

Function DisplayBoardManageInfo

	GBL_CHK_PWdFlag = 0
	InitDatabase
	UpdateOnlineUserAtInfo GBL_board_ID,"关于我们"
	
	Response.Write "<p><br><b>论坛管理人员</b></p>"
	Dim N,GetData,Rs
	GetData = Split(DEF_SupervisorUserName,",")
	Rs = Ubound(GetData,1)
	'If Replace(DEF_SupervisorUserName,",","") <> "" Then Response.Write "<p><u>论坛管理员</u>"
	'For N = 0 to Rs
	'	If GetData(N) <> "" Then
	'		Response.Write " <a href=""../LookUserInfo.asp?name=" & urlencode(GetData(N)) & """>" & htmlencode(GetData(N)) & "</a>"
	'		If GBL_CHK_User <> "" Then Response.Write "<a href=""../SendMessage.asp?SdM_ToUser=" & urlencode(GetData(N)) & """ title=发送短消息><img src=../../images/" & GBL_DefineImage & "message.GIF width=16 height=16 border=0 align=absmiddle></a>"
	'	End If
	'Next

	Dim RequestStr
	RequestStr = Request.QueryString
	If RequestStr <> "b" and RequestStr <> "c" Then RequestStr = "a"
	%>
	<p><img src=<%=DEF_BBS_HomeUrl & "images/" & GBL_DefineImage%>splt.gif align=absmiddle width=7 height=15>
	<a href=about.asp?a>总版主</a>
	<img src=<%=DEF_BBS_HomeUrl & "images/" & GBL_DefineImage%>splt.gif align=absmiddle width=7 height=15>
	<a href=about.asp?c>区版主</a>
	<img src=<%=DEF_BBS_HomeUrl & "images/" & GBL_DefineImage%>splt.gif align=absmiddle width=7 height=15>
	<a href=about.asp?b>论坛版主</a>
	<img src=<%=DEF_BBS_HomeUrl & "images/" & GBL_DefineImage%>splt.gif align=absmiddle width=7 height=15>
	<%
	If RequestStr = "a" Then
		Set Rs = con.ExeCute("select UserName from LeadBBS_SpecialUser Where Assort=2")
		GBL_DBNum = GBL_DBNum + 1
		If Rs.Eof Then
			Rs.Close
			Set Rs = Nothing
			Response.Write "<p><u>总版主</b></u></p>无"
		Else
			GetData = Rs.GetRows(-1)
			Rs.Close
			Set Rs = Nothing
			Rs = Ubound(GetData,2)
			Response.Write "<p><u>总版主</b></u></p>"%>
			<table border="0" cellspacing="1" cellpadding="4" bgcolor=<%=DEF_BBS_LightColor%> class=TBBG1>
			<tr height="19" bgcolor="<%=DEF_BBS_TableHeadColor%>" class=TBfour>
				<td>用户名</td>
				<td><img src=img/blank.gif width=2 height=3><br>&nbsp;</td>
			</tr>
			<%
			For N = 0 to Rs
				Response.Write "<tr bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td width=85><a href=""../LookUserInfo.asp?name=" & GetData(0,n) & """>" & htmlencode(GetData(0,n)) & "</a>"
				Response.write "<td width=16><a href=""../SendMessage.asp?SdM_ToUser=" & urlencode(GetData(0,n)) & """ title=发送短消息><img src=../../images/" & GBL_DefineImage & "message.GIF width=16 height=16 border=0 align=absmiddle></a>"
			Next
			%>
				</td>
			</tr>
			</table>
			<%
		End If
	End If

	Dim Flag
	If RequestStr = "b" Then
		Set Rs = Con.ExeCute("select T1.UserID,T1.UserName,t2.BoardName,T1.BoardID from LeadBBS_SpecialUser as T1 left join LeadBBS_Boards as T2 on T1.BoardID=T2.BoardID Where Assort=1 order by T1.UserID")
		GBL_DBNum = GBL_DBNum + 1
		If Not Rs.Eof Then
			GetData = Rs.GetRows(-1)
			Rs.Close
			Set Rs = Nothing
			Rs = Ubound(GetData,2)
			Response.Write "<p><u>论坛版主</u></p>"
			Flag = 0
			%>
		<table width="100%" border="0" cellspacing="1" cellpadding="4" bgcolor=<%=DEF_BBS_LightColor%> class=TBBG1>
		<tbody> 
		<tr height="19" bgcolor="<%=DEF_BBS_TableHeadColor%>" class=TBfour>
			<td width=85>用户名</td>
			<td width=16><img src=img/blank.gif width=2 height=3><br>&nbsp;</td>
			<td><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=2><br>担任版面</td>
		</tr><%
			For N = 0 to Rs
				If Flag <> cCur(GetData(0,N)) Then
					Response.Write "<tr bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td width=85><a href=""../LookUserInfo.asp?ID=" & GetData(0,n) & """>" & htmlencode(GetData(1,n)) & "</a>"
					Response.write "<td width=16><a href=""../SendMessage.asp?SdM_ToUser=" & urlencode(GetData(1,n)) & """ title=发送短消息><img src=../../images/" & GBL_DefineImage & "message.GIF width=16 height=16 border=0 align=absmiddle></a>"
					Response.Write "<td><a href=../../Board/Board.asp?BoardID=" & GetData(3,n) & ">" & GetData(2,n) & "</a>"
					Flag = cCur(GetData(0,n))
				Else
					Response.Write ",<a href=../../Board/Board.asp?BoardID=" & GetData(3,n) & ">" & GetData(2,n) & "</a>"
				End If
			Next
			%></table><%
		Else
			Rs.Close
			Set Rs = Nothing
			Response.Write "<p><u>论坛版主</b></u></p>无"
		End If
	End If

	If RequestStr = "c" Then
		Set Rs = Con.ExeCute("select T1.UserID,T1.UserName,T2.AssortName,T1.BoardID from LeadBBS_SpecialUser as T1 left join LeadBBS_Assort as T2 on T1.BoardID=T2.AssortID Where Assort=7 order by T1.UserID")
		GBL_DBNum = GBL_DBNum + 1
		If Not Rs.Eof Then
			GetData = Rs.GetRows(-1)
			Rs.Close
			Set Rs = Nothing
			Rs = Ubound(GetData,2)
			Response.Write "<p><u>区版主</u></p>"
			Flag = 0
			%>
		<table width="100%" border="0" cellspacing="1" cellpadding="4" bgcolor=<%=DEF_BBS_LightColor%> class=TBBG1>
		<tbody> 
		<tr height="19" bgcolor="<%=DEF_BBS_TableHeadColor%>" class=TBfour>
			<td width=85>用户名</td>
			<td width=16><img src=img/blank.gif width=2 height=3><br>&nbsp;</td>
			<td><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=2><br>担任分区</td>
		</tr><%
			For N = 0 to Rs
				If Flag <> cCur(GetData(0,N)) Then
					Response.Write "<tr bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td width=85><a href=""../LookUserInfo.asp?ID=" & GetData(0,n) & """>" & htmlencode(GetData(1,n)) & "</a>"
					Response.write "<td width=16><a href=""../SendMessage.asp?SdM_ToUser=" & urlencode(GetData(1,n)) & """ title=发送短消息><img src=../../images/" & GBL_DefineImage & "message.GIF width=16 height=16 border=0 align=absmiddle></a>"
					Response.Write "<td><a href=../../Boards.asp?Assort=" & GetData(3,n) & ">" & GetData(2,n) & "</a>"
					Flag = cCur(GetData(0,n))
				Else
					Response.Write ",<a href=../../Boards.asp?Assort=" & GetData(3,n) & ">" & GetData(2,n) & "</a>"
				End If
			Next
			%></table><%
		Else
			Rs.Close
			Set Rs = Nothing
			Response.Write "<p><u>区版主</b></u></p>无"
		End If
	End If
	Closedatabase

End Function%>