<!--#include file="conn.asp"-->
<!--#include file="inc/char.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="chkuser.asp" -->
<!--#include file="inc/grade.asp"-->
<!--#include file="inc/mxtheme.asp"-->
<%dim UserSign ,abgcolor%>
<!--#include file="inc/ubbcode.asp"-->
<!--#include file="inc/birthday.asp"-->
<% 
Response.Expires=0
stats="查询个人资料"
dim username,cname
cname=membername
username=trim(request("name"))
founderr=false
if ViewUser_g=0 and membername="" then
	Errmsg=Errmsg+"<br>"+"<li>客人不允许查看会员资料。"
	founderr=true
end if
if ViewUser_u=0 then
	Errmsg=Errmsg+"<br>"+"<li>论坛设定不允许查看会员资料。"
	founderr=true
end if
if username="" then
   	ErrMsg=Errmsg+"<br>"+"<li>错误的参数。"
	founderr=true
end if
call nav()
call headline(1)
if founderr then
	call error()
else
	call main()
	if founderr then call error()
end if
sub main()
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=ForumName%>--<%=htmlencode(cname)%>查询个人资料</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link rel="stylesheet" type="text/css" href="forum.css">
</head>
<body <%=Forumbody%>>
<%
   set rs=server.createobject("adodb.recordset")
   sql="select * from [User] where username='"&UserName&"'"
   rs.open sql,conn,1,1
   if err.number<>0 then 
      ErrMsg=Errmsg+"<br>"+"<li>数据库操作失败："&err.description
      founderr=true
   end if
      if rs.eof and rs.bof then
         ErrMsg=Errmsg+"<br>"+"<li>您查询的名字不存在"
	 founderr=true
      else
%>
    <table cellpadding=0 cellspacing=0 border=0 width=<%=tablewidth%> bgcolor=<%=TableBackColor%> align=center>
        <tr>
            <td>
                
<table cellpadding=3 cellspacing=1 border=0 width=100%>
  <tr>
    <td width="100%" colspan="5" bgcolor=<%=TabletitleColor%>>
      <p align="center"><font color="<%=TableFontColor%>"><b><%=htmlencode(username)%>的个人资料</b></font></td>
  </tr>
  <tr>
    <td width="48%" colspan="2" bgcolor=<%=TablebodyColor%>>
      <p align="center"><font color="<%=TableContentColor%>"><b>基本资料</b></font></td>
    <td width="4%" bgcolor=<%=TablebodyColor%>>　</td>
    <td width="48%" colspan="2" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>">
      <p align="center"><b>个人头像</b></font></td>
  </tr>
  <tr>
    <td width="16%" align="right" bgcolor=<%=aTablebodyColor%>><font color="<%=TableContentColor%>"><b>用户名：</b></font></td>
    <td width="32%" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><%=htmlencode(username)%></font></td>
    <td width="4%" rowspan="14" bgcolor=<%=TablebodyColor%>>　</td>
    <td width="48%" colspan="2" rowspan="4" valign="top" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>">
<% if TitleFlag=1 and rs("title")<>"" then %>
<B>头 衔：</B> <%= rs("title") %> <BR>
<% end if %></font>
<img src="<%=rs("face")%>" height="<%=rs("height")%>" width="<%=rs("width")%>">
	　</td>
  </tr>
  <tr>
    <td width="16%" align="right" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><b>性别：</b></font></td>
    <td width="32%" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>">
<%if rs("sex")=0 then   
    response.write("靓妹")   
else   
    response.write("酷哥")   
end if   
%></font>
	　</td>
  </tr>
  <tr>
    <td width="16%" align="right" bgcolor=<%=aTablebodyColor%>><font color="<%=TableContentColor%>"><b>生日：</b></font></td>
    <td width="32%" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><%=rs("birthday")%>　</font></td>
  </tr>
  <tr>
    <td width="16%" align="right" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><b>星座：</b></font></td>
    <td width="32%" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><%if not isnull(rs("birthday")) and rs("birthday")<>"" then response.write astro(rs("birthday"))%></font></td>
  </tr>
  <tr>
    <td width="16%" align="right" bgcolor=<%=aTablebodyColor%>><font color="<%=TableContentColor%>"><b>个人主页：</b></font></td>
    <td width="32%" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>">
<%if trim(rs("homepage"))<>"" then%>
<a href="<%=htmlencode(rs("homepage"))%>"
    target="_blank"><%=htmlencode(rs("homepage"))%></a> 
<%end if%></font>
	</td>
    <td width="48%" colspan="2" bgcolor=<%=TablebodyColor%>>
      <p align="center"><font color="<%=TableContentColor%>"><b>联系方法</b></font></td>
  </tr>
  <tr>
    <td width="16%" align="right" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><b>发表文章：</b></font></td>
    <td width="32%" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><%=rs("article")%></font></td>
    <td width="16%" align="right" bgcolor=<%=aTablebodyColor%>><font color="<%=TableContentColor%>"><b>Email：</b></font></td>
    <td width="32%" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>">
<%if trim(rs("useremail"))<>"" then%>
<a href="mailto:<%=htmlencode(rs("useremail"))%>"><%=htmlencode(rs("useremail"))%></a> 
<%end if%></font>
	　</td>
  </tr>
  <tr>
   <%dim conn1
	dim connstr1
	dim db1
	'更改数据库名字
	db1="bank/data/bank.MDB"
	Set conn1 = Server.CreateObject("ADODB.Connection")
	connstr1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db1&"")
	conn1.Open connstr1
   dim sqlbank,rsbank,deposit
  sqlbank="SELECT * FROM bank WHERE UserName='"&username&"'"
	Set Rsbank=conn1.Execute(sqlbank)
	if rsbank.bof then
    rsbank.close
	else 
	 deposit=rsbank("savemoney")
rsbank.close
set rsbank=nothing
end if
  %>
    <td width="16%" align="right" bgcolor=<%=aTablebodyColor%>><font color="<%=TableContentColor%>"><b>财产：</b></font></td>
    <td width="32%" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><%= rs("userWealth") +deposit%></font></td>
    <td width="16%" align="right" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><b>OICQ：</b></font></td>
    <td width="32%" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>">
<%if rs("oicq")<>"" then%>
<%=htmlencode(rs("oicq"))%> 
<%end if%></font>
	</td>
  </tr>
  <tr>
    <td width="16%" align="right" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><b>经验：</b></font></td>
    <td width="32%" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><%= rs("userEP") %>　</font></td>
    <td width="16%" align="right" bgcolor=<%=aTablebodyColor%>><font color="<%=TableContentColor%>"><b>ICQ：</b></font></td>
    <td width="32%" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><%=htmlencode(rs("icq"))%></font></td>
  </tr>
  <tr>
    <td width="16%" align="right" bgcolor=<%=aTablebodyColor%>><font color="<%=TableContentColor%>"><b>魅力：</b></font></td>
    <td width="32%" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><%= rs("userCP") %></font></td>
    <td width="16%" align="right" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><b>MSN：</b></font></td>
    <td width="32%" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><%=htmlencode(rs("msn"))%></font>　</td>
  </tr>
  <tr>
    <td width="16%" align="right" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><b>论坛等级：</b></font></td>
    <td width="32%" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><%=grade(rs("userclass"))%>　</font></td>
    <td width="48%" colspan="2" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>">
      <p align="center"><b>个人说明</b></font></td>
  </tr>
  <tr>
    <td width="16%" align="right" bgcolor=<%=aTablebodyColor%>><font color="<%=TableContentColor%>"><b>门派：</b></font></td>
    <td width="32%" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><%=rs("usergroup")%></font></td>
    <td width="16%" rowspan="4" valign="top" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>">
      <p align="center"><b>个人签名：</b></font></td>
    <td width="32%" rowspan="4" valign="top" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>">
<%if rs("sign")<>"" then%>
<%=ubbcode(rs("sign"))%> 
<%end if%>　</font></td>
  </tr>
  <tr>
    <td width="16%" align="right" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><b>登陆次数：</b></font></td>
    <td width="32%" bgcolor=<%=TablebodyColor%>><font color="<%=AlertFontColor%>"><%=rs("logins")%></font>次</td>
  </tr>
  <tr>
    <td width="16%" align="right" bgcolor=<%=aTablebodyColor%>><font color="<%=TableContentColor%>"><b>最后登陆：</b></font></td>
    <td width="32%" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><%=rs("lastlogin")%>　</font></td>
  </tr>
  <tr>
    <td width="16%" align="right" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><b>注册时间：</b></font></td>
    <td width="32%" bgcolor=<%=TablebodyColor%>><font color="<%=TableContentColor%>"><%=rs("addDAte")%></font></td>
  </tr>
  <tr>
    <td width="100%" colspan="5" bgcolor=<%=TabletitleColor%>><font color="<%=TableFontColor%>">
      <p align="center"><b><a href="usersms.asp?action=new&touser=<%=htmlencode(username)%>"><font color="<%=TableFontColor%>">给他留言</font></a> | <a href=friendlist.asp?action=addF&myFriend=<%=HTMLEncode(username)%> target=_blank><font color="<%=TableFontColor%>">加为好友</font></a></b></font></td>
  </tr>
</table>
</td></tr></table>
<%end if%>
</body>
</html>
<%
rs.close
set rs=nothing
end sub
call endline()
%>
<!--#include file=footer.asp-->