<!-- #include file=../inc/BBSsetup.asp -->
<!-- #include file=../inc/User_Setup.ASP -->
<!-- #include file=../inc/Board_popfun.asp -->
<!-- #include file=inc/UserTopic.asp -->
<!--#include file="xgcity_community_head.asp" -->
<%
dim Assort_id
Assort_id=0
%>
<script>
if(self!=top){top.location=self.location;}
function switchSysBar(){
if (switchPoint.innerText==3){
switchPoint.innerText=4
document.all("frmTitle").style.display="none"
}else{
switchPoint.innerText=3
document.all("frmTitle").style.display=""
}}
</script>
<table border="0" cellPadding="0" cellSpacing="0" height="100%" width="100%">
<tbody>
  <tr>
    <td height="100%" align="left" vAlign="top" noWrap id="frmTitle">
    <iframe frameBorder="0" id="carnoc" name="carnoc" scrolling="no" src="../left.asp?Assort_id=<%=Assort_id%>" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 92px; Z-INDEX: 2">
    </iframe>    </td>
    <td style="WIDTH: 9pt" >
    <table border="0" cellPadding="0" cellSpacing="0" height="100%">
	<tbody>
      <tr>
        <td style="HEIGHT: 100%" onclick="switchSysBar()" background="../images/left/bg.gif" style=CURSOR:hand; title=开启/关闭左边导航栏>
<font style=COLOR:#ffffff;CURSOR:hand;FONT-FAMILY:Webdings;FONT-SIZE:9pt;>
<SPAN id=switchPoint>3</SPAN></font></td>
      </tr>
	  </tbody>
    </table>
    </td>
    <td align="left" valign="top" style="WIDTH: 100%">

<%
DEF_BBS_HomeUrl = "../"
GBL_CHK_PWdFlag = 0
initDatabase
SiteHead(DEF_SiteNameString & " - 社员社员区")
UpdateOnlineUserAtInfo GBL_board_ID,"查找社员"

UserTopicTopInfo
DisplayUserNavigate("查找社员")
Response.Write "<br>"
DisplayUserFind(20)
UserTopicBottomInfo
closeDataBase
SiteBottom
If GBL_ShowBottomSure = 1 Then Response.Write GBL_SiteBottomString

Dim Form_SearchKey

Function DisplayUserFind(Numer)

Dim OkFlag
OkFlag = 1
Form_SearchKey = Request("Form_SearchKey")
If Request("SubmitFlag")<>"kdWosoO9w2AXkHouseASP" Then OkFlag = 0

If Len(Form_SearchKey) < 1 Then OkFlag = 0
If OkFlag = 1 Then Form_SearchKey = Left(Form_SearchKey,20)

If OkFlag = 0 Then
	DisplaySearchForm
Else
	Dim Rs,SQL
	SQL = "select TOP 1 ID,UserName,Points,ApplyTime,Prevtime,UserLevel from LeadBBS_User where UserName ='" & Replace(Form_SearchKey,"'","''") & "'"
	Set Rs = Con.ExeCute(SQL)
	GBL_DBNum = GBL_DBNum + 1
	Dim Num
	Dim GetData
	If Not rs.Eof Then
		GetData = Rs.GetRows(1)
		Num = 0
	Else
		Num = -1
	End If
	Rs.close
	Set Rs = Nothing
	
	Dim i,N
	If Num>=0 Then
	%><p align=center><b>查找社员： <font color=ff0000 class=RedFont><%=htmlencode(Form_SearchKey)%></font></b></p>
	<table width="100%" border="0" cellspacing="1" cellpadding="5" bgcolor=<%=DEF_BBS_LightColor%> class=TBBG1>
	<tr bgcolor="<%=DEF_BBS_TableHeadColor%>" class=TBfour>
		<td wdith=8%><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=2><br><b>ID</b></td>
		<td wdith=30%><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=2><br><b>名称</b></td>
		<td wdith=15%><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=2><br><b><%=DEF_PointsName%></b></td>
		<td wdith=15%><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=2><br><b>注册时间</b></td>
		<td wdith=15%><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=2><br><b>最后登录</b></td>
		<td wdith=17%><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=2><br><b>等级身份</b></td>
	</tr>
<%
		for n= 0 to Num
			%>
	<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
		<td height="20"><%=GetData(0,n)%></td>
		<td>
			<a href=LookUserInfo.asp?id=<%=GetData(0,n)%>><%=htmlencode(GetData(1,n))%></a></td>
		<td><%=GetData(2,n)%></td>
		<td><%=RestoreTime(Left(GetData(3,n),8))%></td>
		<td><%=RestoreTime(Left(GetData(4,n),8))%></td>
		<td><%=DEF_UserLevelString(GetData(5,n))%></td>
		</tr><%
		next
%>
	</table>
	<%
		DisplaySearchForm
	Else%><p align=center><b>查找社员： <font color=ff0000 class=RedFont><%=htmlencode(Form_SearchKey)%></font></b></p><%
		Response.Write "<br>		<TR><td><br><p>找不到社员。"
		DisplaySearchForm
		Response.Write "</td></tr>" & VbCrLf
	End If
End If

End Function

Function DisplaySearchForm
%>
	<script language="javascript">
	function submitonce(theform)
	{
		if (document.all||document.getElementById)
		{
			for (i=0;i<theform.length;i++)
			{
				var tempobj=theform.elements[i];
				if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
				tempobj.disabled=true;
			}
		}
	}
	</script>
	<form action=UserFind.asp onSubmit="submitonce(this);">
	<b>请输入完整社员名: </b>
	<input name="Form_SearchKey" value="<%=Htmlencode(Form_SearchKey)%>" class=fminpt>
	<input name="SubmitFlag" value="kdWosoO9w2AXkHouseASP" type=hidden>
	<input type=submit value=" 查找 " class=fmbtn>
	</Form>
<%
End Function%>
 </td>
  </tr>
  </tbody>
</table>
<script>
if(window.screen.width<'1024'){switchSysBar()}
</script>
