<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/const.asp"-->
<%
if MemberName="" then
  response.Redirect("userlogin.asp")
  response.end
end if
%>
<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();
}
.STYLE31 {color: #666666; font-size: 12px;}
.STYLE89 {color: #993300}
.STYLE81 {color: #CC0099;
	font-size: 12px;
}
-->
</style>
</head>
<body>
<%
dim logins,lastlogintime,artnum,lycount,photo,renqi
set rs=server.CreateObject("adodb.recordset")
sql="select mg,jf,aq,logins,lastlogin,artnum,photo,renqi,endtime,grade,innum,outnum from user_info where userid="& UserId &""
rs.open sql,conn,1,3
if not rs.bof then
  logins=rs("logins")
  lastlogintime=rs("lastlogin")
  artnum=rs("artnum")
  photo=rs("photo")
  renqi=rs("renqi")
  innum=rs("innum")
  outnum=rs("outnum")
  aq=rs("aq")
  jf=rs("jf")
  mg=rs("mg")
  if isnull(rs("endtime")) or rs("endtime")<now() then
    rs("grade")=1
	rs.update
	Response.Cookies(Forum_sdjy)("userclass")="注册会员"
	memberclass=checkStr(request.cookies(Forum_sdjy)("Userclass"))
  end if
end if
rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset") '新留言数
sql1="select count(*) from sd_ly where userid="& UserId &" and isread=0"
rs.open sql1,conn,1
lycount=rs(0)
rs.close
set rs=nothing
%>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="top.asp"--></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="219" height="168" align="center" valign="top"><div align="left"><!--#include file="memberleft.asp"-->
        </div></td>
    <td width="731" align="center" valign="top"><div align="left"></div>
        <table width="730" border="0" align="left" cellpadding="0" cellspacing="0" style="border-left:#9DCCF6 1px solid;border-right:#9DCCF6 1px solid;border-bottom:#9DCCF6 1px solid;border-top:#9DCCF6 1px solid  ">
          <tr>
            <td height="28" colspan="3" background="images/lg_1.gif">&nbsp;&nbsp;<strong>专区首页</strong></td>
          </tr>
          <tr>
            <td width="32" height="202">&nbsp;</td>
            <td width="659" valign="top"><br>
              <table width="651" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><table width="100%" border="0" cellspacing="0" cellpadding="0" style="border-left:#9DCCF6 1px solid;border-right:#9DCCF6 1px solid;border-bottom:#9DCCF6 1px solid;border-top:#9DCCF6 1px solid  ">

                    <tr>
                      <td align="center"><table width="649" border="0" align="left" cellpadding="0" cellspacing="0" background="images/index_40.gif">
                          <tr>
                            <td height="5" colspan="2"></td>
                          </tr>
                          <tr>
                            <td width="172" height="160" align="center"><table width="162" border="0" cellpadding="0" cellspacing="0">
                                <tr>
                                  <td height="140" align="center"><%
						if photo<>"" then
						response.Write "<img src='uppic/photo/"& photo &"' onload='javascript:if(this.width>this.height){this.width=150}else{this.height=129}' align='middle'>"
						else
						%>
                                      <img src="image/showphoto2.gif" width="154" height="119" align="middle">
                                      <%end if%>
                                  </td>
                                </tr>
                                <tr>
                                  <td height="30" align="center" class="STYLE31"><a href="photo.asp" class="b2">上传修改照片</a></td>
                                </tr>
                            </table></td>
                            <td align="right" valign="top"><table width="429" border="0" cellpadding="0" cellspacing="0">
                    
                                <tr>
                                  <td height="140" align="center"><table width="406" border="0" cellpadding="0" cellspacing="2" class="STYLE1">
                                      <tr>
                                        <td width="182" height="27">用户昵称：<span class="STYLE88"><%=MemberName%></span></td>
                                        <td width="182" height="27">玫瑰指数：<font color="#FF0000"><%=mg%></font></td>
                                      </tr>
                                      <tr>
                                        <td height="27">身份级别：<span class="STYLE88"><%=memberclass%></span></td>
                                        <td height="27" class="STYLE88"><%if memberclass<>"VIP会员" then%>
                                            <a href="userupdate.asp" class="ahong">升级VIP用户</a>
                                        <%end if%></td>
                                      </tr>
                                      <tr>
                                       <td height="27">&nbsp;&nbsp;&nbsp;AQ&nbsp;币：<%=aq%></td>
                                         <td height="27">积&nbsp;&nbsp;&nbsp;&nbsp;分：<%=jf%></td>
                                      </tr>
                                      <tr>
                                        <td height="27">追求者数：<span class="hong"><%=innum%></span></td>
                                        <td height="27">投票指数：<span class="hong"><%=outnum%></span></td>
                                      </tr>
                                      <tr>
                                        <td height="27">认证情况：<font color="#CC0099">
                                          <%ShowHonor(userid)%>
                                        </font></td>
                                        <td height="27">人&nbsp;气：<span class="hong"><%=renqi%></span></td>
                                      </tr>
                                      <tr>
                                        <td height="27">日记总数：<font color="#CC0099"><a href="rg.asp" class="a7"><%=artnum%>篇</a></font></td>
                                        <td height="27">新留言：<font color="#CC0099"><a href="guestbook.asp" class="a7"><%=lycount%>条</a></font></td>
                                      </tr>
                                      <tr>
                                        <td height="27">登陆次数：<font color="#CC0099"><%=logins%></font></td>
                                        <td height="27">上次登陆：<font color="#CC0099">
                                          <%if isdate(lastlogintime) then response.Write formatdatetime(lastlogintime,2)%></font>                                        </td>
                                      </tr>
                                  </table></td>
                                </tr>
                        
                            </table></td>
                          </tr>
                          <tr>
                            <td height="5" colspan="2"></td>
                          </tr>
                      </table></td>
                    </tr>

                </table></td>
              </tr>
            </table>
              <table width="99%" border="0" cellpadding="0" cellspacing="0" class="STYLE4">
                <tr>
                  <td height="35" valign="bottom"><span class="p1"><strong>站内通知</strong></span></td>
                </tr>
                <tr>
                  <td class="style895"><table width="98%" border="0" align="center" cellpadding="2" cellspacing="2" background="ima/xg.gif" class="STYLE88">
                      <%
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from sd_tongzhi order by id desc"
rs1.open sql1,conn,1
do while not rs1.eof 
%>
                      <tr>
                        <td width="74%" height="30">&nbsp;<a href="show_tongzhi.asp?id=<%=rs1("id")%>" class="a1"><%=rs1("title")%></a></td>
                        <td width="26%" height="24"><div align="center"><%=rs1("dtime")%></div></td>
                      </tr>
                      <%
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
                    </table>
                      <br>
                      <span class="p1"><strong>特别推荐</strong></span>
<table width="687" border="0" cellpadding="0" cellspacing="0">
                        <%  
						if sd_sex="男" then
						so_sex=" sex='男' "
						else
						so_sex=" sex='女' "
						end if
						
set rs=conn.execute("select userid,username,birthday,prov,sex,school,photo from user_info where tj=1 and "&so_sex&" ")	           
if rs.eof then%>

<table width=300  border=0 cellpadding=0 cellspacing=0 ><TR><TD height="80">暂无推荐</TD></TR></table>

<%
end if
i=0
Do while Not rs.Eof 
i=i+1

%>
<tr>
<td width=131 height="50">
<table width=110 height=165 border=0 cellpadding=2 cellspacing=2 bgcolor=#FFFFFF>
<tr>
<td width=125 height=137 align=center background="images/index_6.gif"><a href=userinfo.asp?user_id=<%=rs("userid")%> target=_blank>
<%if rs("photo")="" or isnull(rs("photo")) then
select case rs("sex")
case "男"
imgphoto="default-1.gif"
case "女"
imgphoto="default-0.gif"
end select
response.Write "<img src=ima/"& imgphoto &" width=88 height=118 border=0>"
else
 response.Write "<img src=""Uppic/photo/"& rs("photo") &""" border=""0"" onload=""javascript:if(this.width>this.height){this.width=88}else{this.height=118}"">"
end if
%>
</a></td>
<tr align=center>
                                  <td class=STYLE8><%=rs("username")%></td>
                          </tr>
                                <tr align=center>
                                  <td class=STYLE4><%=rs("sex")%> ,<%=GetProv(rs("prov"))%></td>
                                </tr>
                                <tr align=center>
                                  <td class=STYLE4><%=ShowXl(rs("school"))%> ,<%= datediff("yyyy",rs("birthday"),now()) %>岁</td>
                                </tr>
                        </table>
               
                      </td>
                          <td width=8></td>
<%

rs.movenext
loop
	
rs.close
set rs=nothing

if i mod 5=0 then response.Write("</tr><tr>")

%>
                    </tr>
                      </table></td>
                </tr>
              </table></td>
            <td width="37">&nbsp;</td>
          </tr>
      </table></td>
  </tr>
</table>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="root.asp"--></td>
  </tr>
</table>
</body>
</html>
<%
conn.close
set conn=nothing
%>
