<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>红嫂视屏交友网</title>
<meta name="keywords" content="情感,在线,新新,照片,动感影片,诗歌,爱情,纯洁,心连心">
<meta name="description" content="红嫂视屏交友情缘 情感在线">
<link href="style.css" rel="stylesheet" type="text/css">
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
}
.STYLE8 {
	color: #CC0099;
	font-size: 12px;
	font-weight: bold;
}
.STYLE31 {color: #666666; font-size: 12px;}
.style91 {color: #60A7E5}
-->
</style>
</head>
<body>
<br><br>
<%
personid=request.QueryString("user_id")
if personid="" or not isnumeric(personid) then
  response.Write "会员编号必须为数字，操作错误！"
  response.end
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from user_info where userid="& personid &""
rs.open sql,conn,1
if rs.eof and rs.bof then
  response.Write "<p>&nbsp;</p><div align='center' class='style30'>没有此编号会员</div><p>&nbsp;</p>"
  response.end
else
%>
<table width="334" border="0" align="center" cellpadding="2" cellspacing="2" background="image/dw.jpg" class="STYLE31">
                                                    <tr>
                                                      <td height="25" colspan="2" class="STYLE1"><strong>会员专区</strong></td>
                                                    </tr>
                                                    <tr>
                                                      <td width="147" height="25">用户昵称：<%=rs("username")%></td>
                                                      <td width="149">玫瑰指数：<font color="#FF0000"><%=rs("mg")%></font></td>
                                                    </tr>
                                                    <tr>
                                                      <td height="25">身份级别：
                                                          <%select case rs("grade")
													case 1:
													  response.write "<img src=/ima/zhuce.gif>注册会员"
													case 2:
													  response.write "<img src=/ima/putong.gif>普通会员"
													case 3:
													  response.write "<img src=/ima/vip.gif>VIP会员"
													end select
													response.Write Tclass
													%></td>
                                                      <td></td>
                                                    </tr>
                                                    <tr>
                                                      <td height="25">追求者数：<span class="hong"><%=rs("innum")%></span></td>
                                                      <td>投票指数：<span class="hong"><%=rs("outnum")%></span></td>
                                                    </tr>
                                                    <tr>
                                                      <td height="25">认证情况：<font color="#CC0099">
                                                        <%ShowHonor(rs("userid"))%>
                                                      </font></td>
                                                      <td>人　气：<span class="hong"><%=rs("renqi")%></span></td>
                                                    </tr>
                                                    <tr>
                                                      <td height="25">日记总数：<%=rs("artnum")%></td>
                                                      <td>照片总数：<%=GetPhotoNum(rs("userid"))%></td>
                                                    </tr>
                                                    <tr>
                                                      <td height="25">登陆次数：<%=rs("logins")%></td>
                                                      <td>上次登陆：<%=rs("lastlogin")%></td>
                                                    </tr>
</table>
<%end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>												  
</body>
</html>
