<!--#include file="../Inc/conn.asp"-->
<!--#include file="../Inc/ubb.asp"-->
<!--#include file="../Inc.asp"-->
<%
Dim ID,UserName
ID=Angel_aspRequest(request("id"))
UserName1=CheckStr(Trim(request("UserName")))
set rs=server.createobject("adodb.recordset")
If ID<>"" then
sql="select * from "&tbname&"_User where id="&ID&""
Else
sql="select * from "&tbname&"_User where UserName='"&UserName1&"'"
End if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Call Alert("不正确的用户",""&SitePath&"Index.asp")
else
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="keywords" content="<%=Sitekeywords%>" />
<link href="<% =SitePath %>images/angel_asp.css" type=text/css rel=stylesheet>
<link href="<% =SitePath %>images/Css_angel_asp.css" ID="skin" type=text/css rel=stylesheet>
<link href="<% =SitePath %>css/indexstyle.css" rel="stylesheet" type="text/css">
<link rel="shortcut icon" href="<%=SitePath%>images/myfav.ico" type="image/x-icon" />
<script type="text/javascript" src="<%=SitePath%>inc/main.asp"></script>
<title><%=rs("UserName")%>的资料</title>
</head>
<body>
<div class="mwall">
<%=Head%>
<%=Menu%><div class="mw">
	<div class="dh">
		<%=search%>您现在的位置：<a href="<%=SitePath%>Index.asp">首页</a> >> 会员注册
    </div>
	<div id="nw_left">
		<div id="web2l">
			<div id="content" style="height:320px;">
<%
UserID=Request.Cookies("Angel")("ID")
If UserID="" then
Response.Write("<div style='text-align:center;padding-top:120px;'>只有登录用户才能查看资料</div>")
else
%>
			  <table width="80%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#f7f7f7" style="margin-bottom:176px;">
                <tr>
                  <td width="30%" height="30" align="left" bgcolor="#FFFFFF">用户名：</td>
                  <td width="37%" align="left" bgcolor="#FFFFFF"><%=rs("UserName")%></td>
                  <td width="33%" rowspan="5" align="center" bgcolor="#FFFFFF"><img src="<%If rs("UserFace")<>"" then Response.Write(""&SitePath&""&SiteUp&"/UserFace/"&rs("UserFace")&"") else Response.Write(""&SitePath&"images/noface.gif") end if%>" width=100 height=100/></td>
                </tr>
                <tr>
                  <td height="30" align="left" bgcolor="#FFFFFF"><%=moneyname%>：</td>
                  <td align="left" bgcolor="#FFFFFF"><font style="color:#ff0000;font-weight:bold;"><%=rs("UserMoney")%></font></td>
                </tr>
                <tr>
                  <td height="30" align="left" bgcolor="#FFFFFF">等级：</td>
                  <td align="left" bgcolor="#FFFFFF"><img src="<%=SitePath%>images/level/<%=rs("dengjipic")%>" align=absMiddle>　<%=rs("dengji")%></td>
                </tr>
                <tr>
                  <td height="30" align="left" bgcolor="#FFFFFF">性别：</td>
                  <td align="left" bgcolor="#FFFFFF"><%If rs("sex")=0 then Response.Write("女") else Response.Write("男") end if%></td>
                </tr>
                <tr>
                  <td height="30" align="left" bgcolor="#FFFFFF">Email地址：</td>
                  <td align="left" bgcolor="#FFFFFF"><%=rs("Email")%></td>
                </tr>
                <tr>
                  <td height="30" align="left" bgcolor="#FFFFFF">籍贯(省/市)：</td>
                  <td colspan="2" align="left" bgcolor="#FFFFFF"><%=rs("province")%><%=rs("city")%></td>
                </tr>
                <tr>
                  <td height="30" align="left" bgcolor="#FFFFFF">出生日期：</td>
                  <td colspan="2" align="left" bgcolor="#FFFFFF"><%=rs("Birthday")%></td>
                </tr>
                <tr>
                  <td height="30" align="left" bgcolor="#FFFFFF">QQ号码：</td>
                  <td colspan="2" align="left" bgcolor="#FFFFFF"><%=rs("UserQQ")%></td>
                </tr>
                <tr>
                  <td height="30" align="left" bgcolor="#FFFFFF">最近登录时间：</td>
                  <td colspan="2" align="left" bgcolor="#FFFFFF"><%=rs("LastTime")%></td>
                </tr>
                <tr>
                  <td height="30" align="left" bgcolor="#FFFFFF">最后登陆IP：</td>
                  <td colspan="2" align="left" bgcolor="#FFFFFF"><a href="http://hi.baidu.com/angelcms/ip.asp?ip=<%=iparray(rs("LastIP"))%>" target="_blank"><%=iparray(rs("LastIP"))%></a>　←点击ＩＰ查询位置</td>
                </tr>
              </table>
<%End if%>
			</div>
		</div>
		<div id="web2l">
			<h6><%=rs("UserName")%>发布的文章</h6>
			<div id="marticle">
				<ul>
				<%Call ShowArticle(0,10,5,"·",100,"UserName = '"&rs("UserName")&"'","ID desc",1,1)%>
				<li class="lookmore"><a href="<%=SitePath%>Search.asp?KeyWord=<%=rs("UserName")%>&type=2">查看更多<%=rs("UserName")%>的文章...</a></li>
				</ul>
			</div>
		</div>
	</div>
	<div id="nw_right">
		<%Call ShowAD(3)%>
		<div id="web2r">
			<h5>最新文章</h5>
			<ul id="list10">
            	<%Call ShowArticle(0,10,5,"·",100,"no","DateAndTime desc,ID desc",0,1)%>
            </ul>
  		</div>
	</div>
</div>
<%=Copy%></div>
</body>
<%
rs.close
set rs=nothing
end if
%>
</html>