<!--#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

set zq=conn.execute("select * from fw where fwid=2 and uid="&userid&" ")
if zq.eof then
response.Write("<script language='javascript'>alert('你没有使用本服务的权限，请开通');window.location.reload('fuwu.asp')</script>")
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">
<style type="text/css">
<!--
body {
	background-image: url();
}
.STYLE31 {color: #666666; font-size: 12px;}
.STYLE89 {color: #993300}
-->
</style>
</head>
<body>
<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">
  <tr>
    <td width="204" height="328" valign="top"><!--#include file="memberleft.asp"--></td>
    <td width="583" valign="top"><table width="565" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td><TABLE width="100%" border=0 
            cellPadding=0 cellSpacing=0 bgColor=white class="STYLE4" >
              <TBODY>
                <TR>
                  <TD width="2%" align=left background="image/tiao_4.gif"><img src="image/tiao_3.gif" width="10" height="31"></TD>
                  <TD height="31" align=center background="image/tiao_4.gif"><TABLE width=530 height="27" border=0 cellPadding=0 cellSpacing=0>
                      <TBODY>
                        <TR>
                          <TD height="27" align=left class="pgd">追求信息</TD>
                        </TR>
                      </TBODY>
                  </TABLE></TD>
                  <TD width="2%" align="right" background="image/tiao_4.gif"><img src="image/tiao_2.gif" width="10" height="31"></TD>
                </TR>
              </TBODY>
          </TABLE></td>
        </tr>
        <tr>
          <td height="438" valign="top" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid"><div align="center"><br>
              <table width="526" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="15" height="29"><img src="images/jiao_1.gif" width="15" height="29"></td>
                    <td width="90" background="images/jiao_3.gif"><a href="virtualmarry.asp"><img src="images/aniu25.gif" width="90" height="29" border="0"></a></td>
                    <td width="103" valign="top" background="images/jiao_3.gif"><div align="center"><a href="virtualmarry.asp" class="b1"></a>
                            <table width="99" border="0" cellspacing="0" cellpadding="00">
                              <tr>
                                <td height="19" valign="bottom"><div align="center"><a href="virmarry.asp" class="b1"><span style="font-size:14px;color:#0B5596;font-weight:bold">我追求的人</span></a></div></td>
                              </tr>
                            </table>
                    </div></td>
                    <td width="303" background="images/jiao_3.gif">&nbsp;</td>
                    <td width="15"><img src="images/jiao_2.gif" width="15" height="29"></td>
                  </tr>
                </table>
                <table width="520" border="0" cellpadding="0" cellspacing="0" style="border-left:#A2BCC9 1px solid;border-right:#A2BCC9 1px solid;border-bottom:#A2BCC9 1px solid">
                  <tr>
                    <td>&nbsp;</td>
                  </tr>
                  <tr>
                    <td height="140" align="center" valign="top"><table width="520" border="0" cellpadding="0" cellspacing="2" class="STYLE4">
                        <tr>
                          <td height="27" class="style895"><table width="520" border="0" cellpadding="0" cellspacing="5" class="STYLE4">
                              <%
 set rs=server.CreateObject("adodb.recordset")							  
 sql="select a.*,b.username from sd_hunyin as a inner join user_info as b on a.applyid=b.userid where a.marryid="&userid&""
  rs.open sql,conn,1
  if rs.eof and rs.bof then
     response.Write "<tr><td><p class='style4'><br>没有追求您的会员信息！<br><br></p></td></tr>"
  else
   rs.pagesize=15
			   msg_per_page=rs.pagesize
			   page=request("page")
			   if page<1 or page="" then page=1
			   if clng(page)>clng(rs.pagecount) then page=clng(rs.pagecount)
			   page=clng(page)
			   rs.absolutepage=page
			   rowcount=rs.pagesize
			   pcount=clng(rs.pagecount)	
			   precordcount=rs.recordcount
  
%>
                              <tr class="STYLE88">
                                <td height="27" background="image/dw.jpg" class="STYLE88"><div align="center">会员帐号</div></td>
                                <td colspan="2" background="image/dw.jpg" class="STYLE88"><div align="center">时间</div></td>
                                <td background="image/dw.jpg" class="STYLE88"><div align="center">操作</div></td>
                              </tr>
                              <%do while not rs.eof and rowcount>0%>
                              <tr>
                                <td width="104" height="27" background="image/dw.jpg" class="STYLE1"><div align="center"><a href="userinfo.asp?user_id=<%=rs("applyid")%>" class="a4" target="_blank"><%=rs("username")%></a></div></td>
                                <td colspan="2" background="image/dw.jpg" class="STYLE1"><div align="center"><%=rs("dtime")%></div></td>
                                <td width="141" background="image/dw.jpg" class="STYLE1"><div align="center">
                                   <a href="send_mail.asp?person=<%=rs("username")%>" class="a1">给他留言</a> | <a href="addfriend.asp?action=save&fid=<%=rs("applyid")%>" class="a1">加为好友</a>
                                </div></td>
                              </tr>                             
                              <%
rs.movenext
rowcount=rowcount-1
loop
end if
rs.close
set rs=nothing
%>
 <tr>
                                <td height="27" colspan="4" background="image/dw.jpg" class="STYLE1"><div align="right">
                    <%
if pcount>1 then				
response.Write "<TABLE align='center' class='STYLE4'>"
response.Write "<TBODY><TR><TD>"
if page>1 then
    response.Write "<a href='virtualmarry.asp?page=1' class='b2'>首页</a>&nbsp;"
	response.Write "<a href='virtualmarry.asp?page="& page-1 &"' class='b2'>上一页</a>&nbsp;"
else
    response.Write "首页&nbsp;上一页&nbsp;"
end if			 
if page<pcount then
    response.Write "<a href='virtualmarry.asp?page="& page+1 &"' class='b2'>下一页</a>&nbsp;"
	response.Write "<a href='virtualmarry.asp?page="& pcount &"' class='b2'>尾页</a>&nbsp;"
else
    response.Write "下一页&nbsp;尾页&nbsp;"
end if	

response.Write "页次:<STRONG><font color='#FF0000'>"&page&"</font>/"&pcount&"</STRONG>页&nbsp; <strong>"&rs.pagesize&"</strong>条/页&nbsp;共<strong>"& precordcount &"</strong>条&nbsp;"
response.Write "</TD></TR></TBODY></TABLE>"
end if
			%>
                </div></td>
                            </tr>
                          </table></td>
                        </tr>
                    </table></td>
                  </tr>
                  <tr>
                    <td>&nbsp;</td>
                  </tr>
              </table>
          </div></td>
        </tr>
    </table></td>
    <td width="163" valign="top"><!--#include file="fenlei.asp"--></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
%>
