<!--#include file="bbstop.asp"-->
<%
Response.Expires=0
dim username
cname=membername
username=trim(request("name"))
FoundError=false
if username="" then
   	ErrMsg=Errmsg+"<br>"+"请输入姓名"
	founderror=true
else
%>
<%
   set rs=server.createobject("adodb.recordset")
   sql="select * from huiyuan where huiyuan='"&UserName&"'"
   rs.open sql,conn,1,1
   if err.number<>0 then 
      ErrMsg=Errmsg+"<br>"+"<li>数据库操作失败："&err.description
      founderror=true
   end if
      if rs.eof and rs.bof then
         ErrMsg=Errmsg+"<br>"+"<li>您查询的名字不存在"
	 founderror=true
      else
%>
<table cellpadding=0 cellspacing=0 border=0 width=762 bgcolor=#efefef align=center class=table-zuoyou>
<tr><td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr bgcolor=#ffcc00><td align=center height=22 colspan="2"><%=htmlencode(cname)%>查询个人资料</td>
  </tr>
  <tr bgcolor=#FFFFFF><td align=center height=22 colspan="2">
<font color="#0000A0"><strong><%=htmlencode(username)%>的资料</strong><font color=red>(登陆社区<%=rs("logins")%>次)</font></td>
  </tr>
  <tr bgcolor=#FFFFFF>
    <td width="30%" align="right" height="22"><strong>性 别：</strong></td>
    <td width="70%" height="22">
<%if rs("xb")="女" then   
    response.write("靓妹")   
else   
    response.write("酷哥")   
end if   
%> </td>
  </tr>
  <tr bgcolor=#FFFFFF>
    <td width="30%" align="right" height="22"><strong>发表文章数：</strong></td>
    <td width="70%" height="22"><%=rs("article")%></td>
  </tr>
  <tr bgcolor=#FFFFFF>
    <td width="30%" align="right" height="22"><strong>E_Mail：</strong></td>
    <td width="70%" height="22"><%if trim(rs("mail"))<>"" then%><a href="mailto:<%=htmlencode(rs("mail"))%>"><%=htmlencode(rs("mail"))%></a><%end if%></td>
  </tr>
  <tr bgcolor=#FFFFFF>
    <td width="30%" align="right" height="22"><strong>OICQ：</strong></td>
    <td width="70%" height="22">
<%if rs("oicq")<>"" then%><%=htmlencode(rs("oicq"))%><%end if%></td>
  </tr>
  <tr bgcolor=#FFFFFF>
    <td width="30%" align="right" height="22"><strong>主 页：</strong></td>
    <td width="70%" height="22">
<%if trim(rs("homepage"))<>"" then%><a href="<%=htmlencode(rs("homepage"))%>"
    target="_blank"><%=htmlencode(rs("homepage"))%></a><%end if%></td>
  </tr>
  <tr bgcolor=#FFFFFF>
    <td width="30%" align="right" height="22"><strong>签 名：</strong></td>
    <td width="70%" height="22"><%if rs("sign")<>"" then%><%=ubbcode(rs("sign"))%><%end if%></td>
  </tr>
  <tr bgcolor=#FFFFFF>
    <td width="30%" align="right" height="22"><strong>社区等级：</strong></font></td>
    <td width="70%" height="22"><%=rs("userclass")%></td>
  </tr>
  <tr bgcolor=#EEEEEE><td align=center height=22 colspan="2">
<a href="messanger.asp?action=new&touser=<%=htmlencode(username)%>">给他留言</a></td>
  </tr>
</table></td></tr></table>
<%end if%>
</body>
</html>
<%end if
if founderror=true then
	call error()
end if
rs.close
set rs=nothing
%>
<!--#include file="bbsend.asp"-->