<!--#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">
<style type="text/css">
<!--
body {
	background-image: url();
}
.STYLE8 {
	color: #CC0099;
	font-size: 12px;
	font-weight: bold;
}
.STYLE31 {color: #666666; font-size: 12px;}
.STYLE81 {	color: #60A7E5;
	font-size: 12px;
	font-weight: bold;
}
-->
</style>
 <script language="javascript" src="js/area1.js"></script>
</head>
<body>
<%
dim sheng,shi,ntxt
sheng=trim(replacebadchar(request("sheng")))
shi=trim(replacebadchar(request("shi")))
ntxt=trim(replacebadchar(request("ntxt")))
if sheng="" then sheng=0
if shi="" then shi=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 width="787" align="center" valign="top" bgcolor="#FFFFFF"><div align="left">
        <table width="778" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="200" height="597" align="center" valign="top"><div align="left">
                <table width="190" border="0" cellpadding="0" cellspacing="0" >
                  <tr>
                    <td height="31" background="image/tiao_1.gif">&nbsp;&nbsp;<span style="font-weight: bold">会员登录</span></td>
                  </tr>
                  <tr>
                    <td height="112" align="center" valign="middle" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid"><table width="150" border="0" cellpadding="0" cellspacing="0" class="style30">
                        <form name="frmlog" method="post" action="chklogin.asp" onSubmit="return chklog();">
                          <tr>
                            <td width="51" height="30" align="center">用户名</td>
                            <td width="99" height="30"><input name="userid" type="text" id="userid" style="height:20px; width:90px;"></td>
                          </tr>
                          <tr>
                            <td height="30" align="center">密&nbsp; 码</td>
                            <td height="30"><input name="userpass" type="password" id="userpass" style="height:20px; width:90px;"></td>
                          </tr>
                          <tr>
                            <td height="30" colspan="2" align="center"><input type="image" name="imageField" src="image/login2.gif">
                                <a href="newsreg.asp"><img src="image/reg2.gif" width="48" height="20" border="0"></a></td>
                          </tr>
                        </form>
                    </table></td>
                  </tr>
                  <tr>
                    <td height="31" background="image/tiao_1.gif">&nbsp;&nbsp;<span style="font-weight: bold">交友搜索</span></td>
                  </tr>
                  <tr>
                    <td height="174" align="center"  style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid"><table width="154" border="0" cellpadding="0" cellspacing="0" class="STYLE1">
                        <form name="form21" method="post" action="sim_search.asp">
                          <tr>
                            <td height="28" align="center" class="STYLE1">年龄：<span class="white1">
                              <select name="age1" id="age1" style="height:20px;">
                                <%for j=18 to 70
    response.Write "<option value="""& j &""""
	if j=18 then response.Write " selected"
	response.Write ">"& j &"</option>"
	next
  %>
                              </select>
                              -
                              <select name="age2" id="age2" style="height:20px;">
                                <%for j=18 to 70
    response.Write "<option value="""& j &""""
	if j=40 then response.Write " selected"
	response.Write ">"& j &"</option>"
	next
  %>
                              </select>
                            </span></td>
                          </tr>
             
                          <tr>
                            <td height="28" align="center"><INPUT 
      id=photo type=checkbox value=1 name=photo>
                                <font color="#FF0000">有照片</font></td>
                          </tr>
                          <tr>
                            <td height="28" align="center"><input type="radio" name="sex" value="1">
                                <img src="image/man.gif" width="8" height="12"> &nbsp;
                                <input type="radio" name="sex" value="2">
                                <img src="image/women.gif" width="8" height="12"></td>
                          </tr>
                          <tr>
                            <td height="35" align="center"><input type="image" name="imageField3" src="image/s2.gif"></td>
                          </tr>
                        </form>
                    </table></td>
                  </tr>
                  <tr>
                    <td height="238" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid">&nbsp;</td>
                  </tr>
                  <tr>
                    <td height="11"><img src="images/lg_5.gif" width="190" height="11"></td>
                  </tr>
                </table>
            </div></td>
            <td align="center" valign="top" ><table width="578" 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%" background="image/tiao_4.gif"><img src="image/tiao_3.gif" width="10" height="31"></TD>
                          <TD height="20" align=center background="image/tiao_4.gif"><table width="95%" border="0" cellpadding="0" cellspacing="3" class="STYLE4">
                              <tr>
                                <td class="pgd">地区婚介</td>
                                <td width="80" align="right">&nbsp;</td>
                              </tr>
                          </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="567" valign="top" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid"><br>
                    <table width="520" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
                      <tr>
                        <td align="center">&nbsp;</td>
                      </tr>
                      <tr>
                        <td height="15" align="center"><table width="90%" border="0" cellpadding="0" cellspacing="0" class="STYLE4">
                            <form name="form2" method="post" action="areahj.asp">
                              <tr>
                                <td width="74%" align="center"><span class="white1"> 所在地
                                      <select name="sheng" class="STYLE1" onChange="setField(sheng,shi);">
                                        <option value="0" selected>不限</option>
                                        <%
					set rs=server.CreateObject("adodb.recordset")
					sql="select id,sheng from sheng order by id"					
					rs.open sql,conn,1
					do while not rs.eof
					  response.Write "<option value="""& rs("id") &""">"& rs("sheng")&"</option>"
					  rs.movenext
					loop
					rs.close
					set rs=nothing
					%>
                                      </select>
                                      <select class="STYLE1" name="shi">
                                        <option value="0" selected>不限</option>
                                      </select>
&nbsp;婚介名称
              <input name="ntxt" type="text" id="ntxt" size="20">
                                </span></td>
                                <td width="13%" height="30"><input type="image" name="imageField2" src="image/so.gif"></td>
                                <td width="13%"><a href="arealogin.asp" class="blue"><img src="ima/soo.gif" width="71" height="22" border="0"></a></td>
                              </tr>
                            </form>
                        </table></td>
                      </tr>
                      <tr>
                        <td align="center"><table width="520" border="0" cellpadding="0" cellspacing="0" >
                            <tr>
                              <td width="572" align="center"><table width="520" border="0" cellspacing="0" cellpadding="0">
                                  <tr>
                                    <td height="8"></td>
                                  </tr>
                                  <tr>
                                    <td height="1" bgcolor="#C8E3FA"></td>
                                  </tr>
                                  <tr>
                                    <td height="10" align="center" bgcolor="#FFFFFF" class="style895">&nbsp;</td>
                                  </tr>
                                  <tr>
                                    <td height="327" align="center" valign="top" bgcolor="#FFFFFF" class="STYLE31"><%
set rs=server.CreateObject("adodb.recordset")
sql="select * from sd_hj where 1=1"
if sheng<>0 then
 sql=sql+" and prov="&sheng&""
end if
if shi<>0 then
 sql=sql+" and city="&shi&""
end if
if ntxt<>"" then
 sql=sql+" and hjname like '%%"&ntxt&"%%'"
end if
sql=sql+"order by id"
rs.open sql,conn,1
if rs.eof and rs.bof then
  response.Write "<p>&nbsp;</p><div align='center'>暂无婚介所信息</div><br>"
else
               rs.pagesize=10
			   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
%>
                                        <table width="95%" border="1" cellpadding="2" cellspacing="2" bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="STYLE1">
                                          <tbody>
                                            <tr>
                                              <td width="27%" height="25" bordercolorlight="#C8E3FA" bordercolordark="#C8E3FA">
                                                <div align="left" style="font-weight: bold"><font color="#4193DD">区域</font></div>
                                              </td>
                                              <td width="44%" height="25" bordercolorlight="#C8E3FA" bordercolordark="#C8E3FA"><div align="left"><strong><font color="#4193DD">婚介所名称</font></strong></div></td>
                                              <td width="29%" height="25" bordercolorlight="#C8E3FA" bordercolordark="#C8E3FA"><div align="center"><strong><font color="#4193DD">婚介所会员</font></strong></div></td>
                                            </tr>
                                            <% do while not rs.eof and rowcount>0%>
                                            <tr>
                                              <td height="25" bordercolorlight="#C8E3FA" bordercolordark="#C8E3FA" ><font color="#4193DD"><%response.Write GetProv(rs("prov"))&"&nbsp;"&GetCity(rs("city"))%></font></td>
                                              <td height="25" bordercolorlight="#C8E3FA" bordercolordark="#C8E3FA" ><font color="#4193DD"><%=rs("hjname")%></font></td>
                                              <td height="25" bordercolorlight="#C8E3FA" bordercolordark="#C8E3FA"><div align="center">
                                                  <%
				  set res=server.CreateObject("adodb.recordset")
				  sql1="select count(userid) from user_info where addmodel=1 and adduser="&rs("id")&""
				  res.open sql1,conn,1
				  if not isnull(res(0)) and res(0)<>0 then 
				   %>
                                                  <a href="areauser.asp?hj=<%=rs("id")%>" target="_blank" class="a1">查看会员</a> (<%=res(0)%>)</div>
                                                  <%
				   else
				     response.Write "暂无"
				   end if
				   %>
                                              </td>
                                            </tr>
                                            <%
  rs.movenext
  rowcount=rowcount-1
loop
				%>
                                          </tbody>
                                        </table>
                                        <%end if%>
                                    </td>
                                  </tr>
                                  <tr>
                                    <td height="8"></td>
                                  </tr>
                              </table></td>
                            </tr>
                          </table>
                            <%if pcount>1 then%>
                            <table width="520" border="0" cellpadding="0" cellspacing="0" bgcolor="E8E6E7">
                              <tr>
                                <td height="25"><%
  response.Write "<TABLE align='center' class='STYLE4'>"
response.Write "<form name='form1' method='post' action='areahj.asp'>"
response.Write "<input type='hidden' name='sheng' value='"&sheng&"'>"
response.Write "<input type='hidden' name='shi' value='"&shi&"'>"
response.Write "<input type='hidden' name='ntxt' value='"&ntxt&"'>"
response.Write "<TBODY><TR><TD>"
if page>1 then
    response.Write "<a href='areahj.asp?page=1&sheng="&sheng&"&shi="&shi&"&ntxt="&ntxt&"' class='b2'>首页</a>&nbsp;"
	response.Write "<a href='areahj.asp?page="& page-1 &"&sheng="&sheng&"&shi="&shi&"&ntxt="&ntxt&"' class='b2'>上一页</a>&nbsp;"
else
    response.Write "首页&nbsp;上一页&nbsp;"
end if			 
if page<pcount then
    response.Write "<a href='areahj.asp?page="& page+1 &"&sheng="&sheng&"&shi="&shi&"&ntxt="&ntxt&"' class='b2'>下一页</a>&nbsp;"
	response.Write "<a href='areahj.asp?page="& pcount &"&sheng="&sheng&"&shi="&shi&"&ntxt="&ntxt&"' 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>
                          </table>
                            <%end if
 rs.close
 set rs=nothing
 %>
                        </td>
                      </tr>
                      <tr>
                        <td align="center">&nbsp;</td>
                      </tr>
                    </table>
                  </td>
                </tr>
            </table></td>
          </tr>
        </table>
    </div></td>
    <td width="163" align="center" valign="top" bgcolor="#FFFFFF"><!--#include file="fenlei.asp"--></td>
  </tr>
  <tr>
    <td height="1" valign="top"></td>
    <td 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
%>
