<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/const.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<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();
}
.STYLE91 {	font-size: 14px;
	color: #0066CC;
	font-weight: bold;
}
-->
</style>
 <script language="javascript" src="js/area1.js"></script>
 <script language="javascript">
 function chklog(){
if(document.frmlog.userid.value.length==0){
 alert("请填写您的登陆帐号！");
 document.frmlog.userid.focus();
 return false;
}
if(document.frmlog.userpass.value.length==0){
 alert("请填写您的登陆密码！");
 document.frmlog.userpass.focus();
 return false;
}
return true;
}
 </script>
</head>
<body>
<%
dim prov,city,mudi
prov=replacebadchar(request("sheng"))
city=replacebadchar(request("shi"))
mudi=replacebadchar(request("mudi"))
if prov="" then prov=0
if city="" then city=0
%>
<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 align="center" valign="top" bgcolor="#FFFFFF"><div align="left">
      <table width="950" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="200" align="center" valign="top"><div align="left"><!--#include file="sousuo2.asp"-->
              </div></td>
          <td width="750" align="center" valign="top" bgcolor="FAFAFA" style="border-right:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid"><table width="745" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td align="center" valign="top"><TABLE width="100%" border=0 
            cellPadding=0 cellSpacing=0 bgColor=white class="STYLE4" >
                    <TBODY>
                      <TR>
                        <TD align=center width="1%"><img src="image/tiao_3.gif" width="10" height="31"></TD>
                        <TD width="13%" align=center background="image/tiao_4.gif"><table width="69" height="25" border="0" cellpadding="0" cellspacing="0">
                          <tr>
                            <td align="center" class="pgd">征婚中心</td>
                          </tr>
                        </table></TD>
                        <TD width="53%" height="20" align="center" background="image/tiao_4.gif"></TD>
                        <TD width="32%" align="center" background="image/tiao_4.gif"></TD>
                        <TD width="1%" align="center"><img src="image/tiao_2.gif" width="10" height="31"></TD>
                      </TR>
                    </TBODY>
                </TABLE></td>
              </tr>
              <tr>
                <td height="7"></td>
              </tr>

              <tr>
                <td><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="9DCCF6" bordercolordark="#FFFFFF" bgcolor="#EDF8FE" class="style30">
                    <tr>
                      <td width="11%" height="28" align="center">姓名</td>
                      <td width="6%" align="center" bgcolor="#FFFFFF">性别</td>
                      <td width="5%" align="center">年龄</td>
                      <td width="10%" align="center" bgcolor="#FFFFFF">婚姻状况</td>
                      <td width="9%" align="center">身高</td>
                      <td width="30%" align="center" bgcolor="#FFFFFF">收入情况</td>
                      <td width="22%" align="center">住房情况</td>
                      <td width="7%" align="center" bgcolor="#FFFFFF">详情</td>
                    </tr>
            
		         
              <%
set rs=server.CreateObject("adodb.recordset")
sql="select * from zh where sd=1 order by sj desc"

rs.open sql,conn,1
if rs.eof and rs.bof then
%>
 <tr>
			          <td height="28" colspan="8" align="center">暂无征婚信息！</td>
			          </tr> 
<%else
               rs.pagesize=9
			   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
%>
              <%	do while not rs.eof and rowcount>0%>	
			
			        
			        <tr>
			          <td height="28" align="center"><div align="center"><%=rs("xm")%></div></td>
			          <td align="center" bgcolor="#FFFFFF"><div align="center"><%=rs("xb")%></div></td>
			          <td align="center"><div align="center"><%'=DateDiff("y",rs("csny"),now())%><%=year(now())-year(rs("csny"))%></div></td>
			          <td align="center" bgcolor="#FFFFFF"><div align="center"><%=rs("hy")%></div></td>
			          <td align="center"><div align="center"><%=rs("sg")%>&nbsp;CM</div></td>
			          <td align="center" bgcolor="#FFFFFF"><div align="center"><%=rs("sr")%></div></td>
			          <td align="center"><div align="center"><%=rs("zf")%></div></td>
			          <td align="center" bgcolor="#FFFFFF"><div align="center"><a href="tbjiaoyou.asp?user_id=<%=rs("uid")%>">详情</a></div></td>
			          </tr>
			      
				         <%
rs.movenext
rowcount=rowcount-1
loop
end if
%>			  
				   <%if pcount>1 then%>  
				    <tr>
                      <td height="28" colspan="8" align="center">
					  
					  
			<%
  response.Write "<TABLE align='center' class='STYLE4'>"
response.Write "<form name='form1' method='post' action='tryst.asp'>"
response.Write "<input type='hidden' name='sheng' value='"&prov&"'>"
response.Write "<input type='hidden' name='shi' value='"&city&"'>"
response.Write "<input type='hidden' name='mudi' value='"&mudi&"'>"
response.Write "<TBODY><TR><TD>"
if page>1 then
    response.Write "<a href='tryst.asp?page=1&sheng="&prov&"&shi="&city&"' class='b2'>首页</a>&nbsp;"
	response.Write "<a href='tryst.asp?page="& page-1 &"&sheng="&prov&"&shi="&city&"&mudi="&mudi&"' class='b2'>上一页</a>&nbsp;"
else
    response.Write "首页&nbsp;上一页&nbsp;"
end if			 
if page<pcount then
    response.Write "<a href='tryst.asp?page="& page+1 &"&sheng="&prov&"&shi="&city&"&mudi="&mudi&"' class='b2'>下一页</a>&nbsp;"
	response.Write "<a href='tryst.asp?page="& pcount &"&sheng="&prov&"&shi="&city&"&mudi="&mudi&"' 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 "<input name='page' type='text' id='page' size='2' style='height:18px;' maxlength='5' value='"&page&"'>"
response.Write "<input name='submit' type='submit' style='height:20px;' id='submit' value='GO'>"
response.Write "</TD></TR></TBODY></form></TABLE>"
			%>					  </td>
                      </tr>
					
					
		
			       <%end if
 rs.close
 set rs=nothing
 %>		
					
					
					
                </table></td>
              </tr>

            </table>
           

       
          </td>
        </tr>
      </table>
    </div></td>
  </tr>
  <tr>
    <td height="1" valign="top"></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
%>
