<!--#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;
}
.style91 {color: #60A7E5}
-->
</style>
</head>
<script language="javascript" src="js/tbv.js"></script>
<body>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="top.asp"--></td>
  </tr>
</table>
<table width="937" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="207" height="168" align="center" valign="top"><div align="left"><!--#include file="memberleft.asp"-->
    </div></td>
    <td width="730" align="center" valign="top"><div align="left">
      </div>
  <%
  dim memclass

memclass=request.cookies(Forum_sdjy)("Userclass")
  
if memberclass<>"VIP会员" then
  response.Write "<p align=""center"" class=""STYLE30""><br><br> 对不起！只有VIP会员才能查看特别交友信息。<br>如果您想升级为VIP会员，请点击<a href=""userupdate.asp"" target=""_blank""><font color=#FF0000>这里</font></a>升级为VIP会员。<br> <br> </p>"
else   
  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
%>      
	<%
					  set rst=server.CreateObject("adodb.recordset")
					  sql2="select id,pic from tbjiaoyou where userid="& rs("userid")
					  rst.open sql2,conn,1
					  vid=rst("id")
					  tbpic=rst("pic")
					  rst.close
					  set rst=nothing
					  %>
	<SCRIPT language="javascript">
var vid = "<%=vid%>";
</SCRIPT>				  	
		<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="26" height="202">&nbsp;</td>
            <td width="680" valign="top"><br>
              <table width="675" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="F9FCFE" style="border-left:#CCCCCC 1px solid;border-right:#CCCCCC 1px solid;border-bottom:#CCCCCC 1px solid;border-top:#CCCCCC 1px solid  ">
                <tr>
                  <td height="5" colspan="2"></td>
                </tr>
                <tr>
                  <td height="20" colspan="2" align="center"> </td>
                </tr>
                <tr>
                  <td width="307" height="160" align="center" valign="top"><table width="264" border="0" cellspacing="0" cellpadding="00">
                    <tr>
                      <td bgcolor="#EDF8FE"><div align="center"><img src="uppic/<%=tbpic%>" width="160" height="187"></div></td>
                    </tr>
                  </table>                  
                    <table width="300" border="0" cellspacing="0" cellpadding="00">
                      <tr>
                        <td width="73" height="25"><div align="right"><span class="STYLE1"><strong>基本资料</strong></span></div></td>
                        <td colspan="3"><div align="center">&nbsp;&nbsp;&nbsp;</div></td>
                      </tr>
                      <tr>
                        <td height="22"><div align="right"><span class="style91">昵称</span></div></td>
                        <td width="94">&nbsp;<%=rs("username")%></td>
                        <td width="33"><div align="right"><span class="style91">性别</span></div></td>
                        <td width="100">&nbsp;<%=rs("sex")%></td>
                      </tr>
                      <tr>
                        <td height="22"><div align="right"><span class="style91">职业</span></div></td>
                        <td>&nbsp;<%=rs("vocation")%></td>
                        <td><div align="right"><span class="style91">年龄</span></div></td>
                        <td>&nbsp;<%=datediff("yyyy",rs("birthday"),now())%></td>
                      </tr>
                      <tr>
                        <td height="22"><div align="right"><span class="style91">学历</span></div></td>
                        <td>&nbsp;<%=ShowXl(rs("school"))%></td>
                        <td><div align="right"><FONT color=#ff0099><span class="style91">地区</span></FONT></div></td>
                        <td>&nbsp;
                            <%
							  if trim(GetProv(rs("Prov"))) = trim(GetCity(rs("City"))) then
							  response.Write GetProv(rs("Prov"))
							  else
							  response.Write GetProv(rs("Prov")) & GetCity(rs("City"))
							  end if
							  %></td>
                      </tr>
                      <tr>
                        <td height="22"><div align="right"><span class="style91">身高</span></div></td>
                        <td>&nbsp;
                            <%response.Write rs("height")&"cm"%></td>
                        <td><div align="right"><span class="style91">体重</span></div></td>
                        <td>&nbsp;
                            <%response.Write rs("weight")&"Kg"%></td>
                      </tr>
                    </table>
                    <table width="277" height="51" border="0" cellpadding="0" cellspacing="0">
                      <tr>
                        <td height="13">&nbsp;</td>
                      </tr>
                      <tr>
                        <td height="38"><div align="center"><a href="userxxqk.asp?user_id=<%=rs("userid")%>" target="f1"><img src="images/aniu18.gif" width="81" height="28" border="0"></a>&nbsp;&nbsp;&nbsp;<a href="buchong.asp?user_id=<%=rs("userid")%>" target="f1"><img src="images/aniu20.gif" width="81" height="28" border="0"></a></div></td>
                      </tr>
                    </table></td>
                  <td width="366" align="center" valign="top"><table width="344" height="262" border="0" cellpadding="00" cellspacing="0">
                    <tr bgcolor="#EDF8FE">
                      <td width="326" height="37" colspan="2"><table width="344" border="0" cellpadding="00" cellspacing="0">
                          <tr>
                            <td width="11">&nbsp;</td>
                            <td width="80" height="29"><a href="userzq.asp?user_id=<%=rs("userid")%>" target="f1"><img src="images/aniu21.gif" width="61" height="20" border="0"></a></td>
                            <td width="73"><a href="addmarrylog.asp?userid=<%=rs("userid")%>" target="f1"><img src="images/aniu14.gif" width="61" height="20" border="0"></a></td>
                            <td width="74"><a href="toupiao.asp?userid=<%=rs("userid")%>" target="f1"><img src="images/aniu15.gif" width="61" height="20" border="0"></a></td>
                            <td width="88"><a href="userinfo_lx.asp?user_id=<%=rs("userid")%>" target="f1"><img src="images/aniu17.gif" width="61" height="20" border="0"></a></td>
                          </tr>
                      </table></td>
                    </tr>
                    <tr>
                      <td height="208" colspan="2" valign="top"><iframe id="f1" align="middle" frameborder="0" name="f1" src="userzq.asp?user_id=<%=rs("userid")%>" scrolling="no" width="344" height="320"></iframe></td>
                    </tr>
                  </table>
                    <table width="344" border="0" cellpadding="00" cellspacing="0" bgcolor="EDF8FE">
                      <tr>
                        <td width="13">&nbsp;</td>
                        <td width="72" height="33"><div align="left"><a href="sendmail.asp?person=<%=rs("username")%>" target="f1"><img src="images/aniu11.gif" width="61" height="20" border="0"></a></div></td>
                        <td width="71"><div align="left"><a href="addfriend1.asp?fid=<%=personid%>" target="f1"><img src="images/aniu12.gif" width="61" height="20" border="0"></a></div></td>
                        <td width="86"><div align="left"><%'on error resume next
				if memclass<>"VIP会员" then
				  response.Write "<script language='javascript'>alert('对不起！你无权访问该页，请升级到VIP会员。');window.location='userupdate.asp';</script>"
				else								 
												 if rs("qq")<>"" and not isnull(rs("qq")) and isnumeric(rs("qq")) then%>
												  <a target=blank href=tencent://message/?uin=<%=rs("qq")%>&Site=shiping.hosao.com&Menu=yes><img src="images/aniu13.gif" width="77" height="20" border="0" alt="点击这里给我发消息"></a>
<%else%>
<img src="images/aniu13.gif" width="77" height="20" border="0" alt="对方没有留下QQ号码！">								  
<%end if
end if%></div></td>
                        <td width="84"><div align="left"><a href="myvideo.asp?user_id=<%=rs("userid")%>" target="f1"><img src="images/aniu19.gif" width="77" height="20" border="0"></a></div></td>
                      </tr>
                  </table></td>
                </tr>
                
                <tr>
                  <td height="13" colspan="2">&nbsp;</td>
                </tr>
              </table>
              <br>
			  <%set rs1=server.createobject("adodb.recordset")
sql1="select count(id) from tbjypl where tbid="&vid&""
rs1.open sql1,conn,1
reviewcount=rs1(0)
rs1.close
set rs1=nothing%>
              <table width="642" border="0" align="center" cellpadding="00" cellspacing="0" bgcolor="F9FCFE" style="border-left:#B2B2B2 1px solid;border-right:#B2B2B2 1px solid;border-bottom:#B2B2B2 1px solid;border-top:#B2B2B2 1px solid">
                <tr>
                  <td width="421" height="24" bgcolor="#FFFFFF" style="border-bottom:#B2B2B2 1px solid">&nbsp;<img src="images/arow2.gif" width="10" height="9"> <span class="pgd">热门评论</span></td>
                  <td width="219" bgcolor="#FFFFFF" style="border-bottom:#B2B2B2 1px solid"><DIV class=lh20 align=right><SPAN><A 
      href="javascript:tooglecomment(fbpl);" class="ll">发表评论</A></SPAN>　　<SPAN 
      id="xl_show_all_reviews" style="DISPLAY: <%if reviewcount<=10 then 
	   response.Write "none"
	  end if%>"><A href="javascript: showallreviews(<%=vid%>);" class="ll">显示全部评论&raquo;</A></SPAN></DIV></td>
                </tr>
                <tr>
                  <td height="23" colspan="2">
				  <DIV id=h1c 
      style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px"><BR 
      style="LINE-HEIGHT: 1px" clear=all>                  
                  <BR 
      style="LINE-HEIGHT: 1px" clear=all>
                  <DIV id=allreviews>
                    <%
set rs2=server.createobject("adodb.recordset")
sql2="select top 10 * from tbjypl where tbid="& vid &" order by id desc"
rs2.open sql2,conn,1
do while not rs2.eof
%>
                    <table width="100%" border="0" cellspacing="0" cellpadding="00">
                      <tr>
                        <td height="5" colspan="3"></td>
                      </tr>
                      <tr>
                        <td width="16">&nbsp;</td>
                        <td width="458" height="28"><a href="userinfo.asp?user_id=<%=rs2("userid")%>" class="ll"><%=rs2("username")%></a> IP：<SPAN 
id=ip><%arrayip=split(rs2("ip"),".")
			response.write arrayip(0)&"."&arrayip(1)&"."&arrayip(2)&".*"%></SPAN></td>
                        <td width="166"><%=rs2("dtime")%> 发表</td>
                      </tr>
                      <tr>
                        <td height="32">&nbsp;</td>
                        <td height="32" colspan="2"><%=rs2("content")%></td>
                      </tr>                      
                      <tr>
                        <td height="5" colspan="3"></td>
                      </tr>
                      <tr>
                        <td height="1" colspan="3" background="images/line2.gif"></td>
                      </tr>
                      <tr>
                        <td height="6" colspan="3" ></td>
                      </tr>
                    </table>
                    <%
rs2.movenext
loop
rs2.close
set rs2=nothing
%>
                  </DIV>
            </DIV>				  </td>
                </tr>
              </table>
              <br>
              <DIV id=fbpl 
      style="BORDER-RIGHT: #e5eef2 1px solid; PADDING-RIGHT: 0px; BORDER-TOP: 0px; DISPLAY: none; PADDING-LEFT: 20px; PADDING-BOTTOM: 15px; BORDER-LEFT: #e5eef2 1px solid; PADDING-TOP: 3px; BORDER-BOTTOM: #e5eef2 1px solid" 
      align=left>
			  <table width="642" border="0" align="center" cellpadding="2" cellspacing="0" style="border-left:#CCCCCC 1px solid;border-right:#CCCCCC 1px solid;border-bottom:#CCCCCC 1px solid;border-top:#CCCCCC 1px solid  ">
                <form name=f_comment onSubmit="javascript:return comment_submit(this, '<%=vid%>');" action="playtbcomment.asp">
                  <tr>
                    <td width="505" height="41" valign="bottom"><img src="images/end_p1.gif" width="85" height="34"></td>
                    <td width="135">&nbsp;</td>
                  </tr>
                  <tr>
                    <td height="21" colspan="2">我来评两句</td>
                  </tr>
                  <tr>
                    <td height="78" colspan="2"><textarea class=w100 onkeydown=zsxz(this,syzs,300) onkeyup=zsxz(this,syzs,300) name=comment cols="70" rows="4"></textarea>&nbsp;<FONT class="lh15 c9">可输入<INPUT class=zs id=syzs readOnly size=3 value=300>个汉字</FONT></td>
                  </tr>
                  <tr>
                    <td height="29"><div align="center">
                        <input type="submit" name="Submit" value="发表">
                    </div></td>
                    <td height="29">&nbsp;</td>
                  </tr>
				  <INPUT 
        type=hidden value="<%=vid%>" name="vid">
                </form>
              </table>
			  </DIV>
            </td>
            <td width="22">&nbsp;</td>
          </tr>
      </table>
<%end if
rs.close
set rs=nothing
end if
%>	  
	  </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
%>
