<!--#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"><!--
		<script language=javascript src="/js/chkRegister.js"></script>
		//-->
      &nbsp;</TD>
                        <TD width="32%" align="center" background="image/tiao_4.gif"><input name="Submit" type="button" class="STYLE4" value="发起新的二人约会" onClick="javascript:window.location='adddate.asp'"></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="745" border="1" cellpadding="0" cellspacing="0" bordercolor="#9DCCF6" bordercolordark="#FFFFFF">
                    <tr>
                      <td><table width="100%" height="25" border="0" cellpadding="0" cellspacing="0" class="STYLE1">
                          <tr>
                            <td height="25" colspan="5" align="center"><table width="100%" height="28" border="0" cellpadding="0" cellspacing="0" class="style30">
                                <form name="form2" method="post" action="tryst.asp">
                                  <tr>
                                    <td width="6%" height="25" align="center" valign="middle"><img src="image/small_hongxin.gif" width="16" height="16"></td>
                                    <td width="23%" height="25" valign="middle">按地区查询约会信息：</td>
                                    <td width="59%" height="25" valign="middle"><select name="sheng" class="STYLE88" 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="STYLE88" name="shi">
                                          <option value="0" selected>不限</option>
                                        </select>
&nbsp;约会性质
                                <select name="mudi" class="STYLE88" id="mudi">
                                  <option value="">不限</option>
                                  <%
					set rs2=server.CreateObject("adodb.recordset")
					sql1="select * from friendaim order by id"
					rs2.open sql1,conn,1
					do while not rs2.eof
					  response.Write "<option value='"& rs2("faim") &"'>"& rs2("faim") &"</option>"
					  rs2.movenext
					loop
					rs2.close
					set rs2=nothing
					%>
                              </select></td>
                                    <td width="12%" height="25" valign="middle"><input type="submit" name="Submit2" value="搜索"></td>
                                  </tr>
                                  <tr>
                                    <td height="1" colspan="4" align="center" bgcolor="#9DCCF6"></td>
                                  </tr>
                                </form>
                            </table></td>
                          </tr>
                          <tr>
                            <td width="15%" height="25" align="center" bgcolor="#EDF8FE">活动时间</td>
                            <td width="28%" height="25" align="center">活动主题</td>
                            <td width="14%" height="25" align="center" bgcolor="#EDF8FE">地点</td>
                            <td width="23%" height="25" align="center">发起人</td>
                            <td width="20%" align="center" bgcolor="#EDF8FE">应征人</td>
                          </tr>
                      </table></td>
                    </tr>
                </table></td>
              </tr>
              <%
set rs=server.CreateObject("adodb.recordset")
sql="select * from sd_yuehui where 1=1"
if prov<>0 then
   sql=sql+" and prov="&prov&""
   if city<>0 then
    sql=sql+" and city="&city&""
   end if
end if
if mudi<>"" then
  sql=sql+" and faim='"&mudi&"'"
end if
sql=sql+" order by id desc"
rs.open sql,conn,1
if rs.eof and rs.bof then
   response.Write "<p class='style4'><br>暂无同城约会信息！<br><br></p>"
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><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="9DCCF6" bordercolordark="#FFFFFF" bgcolor="#EDF8FE" class="style30">
                    <tr>
                      <td width="15%" height="49" align="center"><strong ><font color="#4193DD"><%=rs("yhtime")%></font></strong></td>
                      <td width="28%" align="center" valign="top" bgcolor="#FFFFFF"><table width="96%" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td height="28" align="center" class="pgd"><a href="show_tryst.asp?t_id=<%=rs("id")%>" target="_blank" class="a1"><%=rs("yhname")%></a></td>
                          </tr>
                          <tr>
                            <td class="style30">&nbsp;
                                <%if len(rs("miaoshu"))>50 then
						   response.write left(rs("miaoshu"),50)&"..."
						  else
						   response.write rs("miaoshu")
						  end if%></td>
                          </tr>
                      </table></td>
                      <td width="14%" align="center"><span class="pgd"><%=GetProv(rs("prov"))&"&nbsp;"&GetCity(rs("city"))%></span></td>
                      <td width="23%" align="center" valign="top" bgcolor="#FFFFFF"><%
					set res=server.createobject("adodb.recordset")
					sql1="select sex,photo from user_info where userid="& rs("userid")
					res.open sql1,conn,1
					if not res.eof then
					%>
                          <table width="96%" border="0" cellspacing="0" cellpadding="0">
                            <tr>
                              <td height="21" align="center">[<%=res("sex")%>]<span class="STYLE88"> <a href="userinfo.asp?user_id=<%=rs("userid")%>" class="a1" target="_blank"><%=rs("username")%></a></span></td>
                            </tr>
                          </table><%end if%>
                      </td>
                      <td width="20%" align="center" valign="top" bgcolor="#FFFFFF"><%
					  if rs("yzren")<>"" and not isnull(rs("yzren")) then
					  stra=split(rs("yzren"),",")
					  for n=0 to ubound(stra)
					    dim strb:strb=split(stra(n),"|")
						response.Write "<a href=""userinfo.asp?user_id="& strb(0) &""" target=""_blank"" class=""a1"">"& strb(1) &"</a><br>"
					  next
					  end if					  
					  %><a href="show_tryst.asp?t_id=<%=rs("id")%>" target="_blank" class="a2">我要应征</a>
					  </td>
                    </tr>
                </table></td>
              </tr>
              <tr>
                <td><hr size="1" class="STYLE1"></td>
              </tr>
              <%
rs.movenext
rowcount=rowcount-1
loop
end if
%>
            </table>
              <%if pcount>1 then%>
              <table width="745" 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='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>
              </table>
              <%end if
 rs.close
 set rs=nothing
 %>
          </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
%>
