<!--#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">
<style type="text/css">
<!--
body {
	background-image: url();
}
.STYLE31 {color: #666666; font-size: 12px;}
-->
</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="20" align=center background="image/tiao_4.gif"><table width="97%" border="0" cellpadding="0" cellspacing="3" class="STYLE4">
                    <tr>
                      <td><span class="pgd"><%=membername%>发布的同城约会</span></td>
                      <td width="80" align="right"><a href="adddate.asp" class="style895">发布信息</a> </td>
                      <td width="80" align="right"><a href="deldate.asp?s=all" class="style895" onClick="javascript:return confirm('你确认要删除所有同城约会信息吗？')">清空</a> </td>
                    </tr>
                  </table></TD>
                  <TD width="2%" align="center" background="image/tiao_4.gif"><img src="image/tiao_2.gif" width="10" height="31"></TD>
                </TR>
              </TBODY>
          </TABLE></td>
        </tr>
        <tr>
          <td height="439" 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">
                <tr>
                  <td height="184" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="STYLE4">
                      <tr>
                        <td height="1" background="images/hline.gif"></td>
                      </tr>
                      <tr>
                        <td align=center valign="top">
                            <%
set rs=server.CreateObject("adodb.recordset")
sql="select * from sd_yuehui where userid="& userid &" order by id desc"	
rs.open sql,conn,1,1
rcount=rs.recordcount
pmcount=10
rs.pagesize=pmcount   	'设置每页数
mpage=rs.pagecount    	'得到总页数
pageno=clng(request("pageno"))
	
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
	pageno=1
end if

if rs.bof and rs.eof then
	response.write "<div align='center' style='style4'>你还没有发布同城约会信息！<br><br></div>"
else
	rs.absolutepage=pageno	'将指针移至指定页的第一条记录
	loopno=pmcount	
%>
                            <table width="520" border="1" cellpadding="2" bgcolor="#FFFFFF" cellspacing="2" bordercolor="#FFFFFF">
                              <tr>
                                <td bordercolorlight="#FF99cc" bordercolordark="#FF99cc"><table width="100%" border="0" cellpadding="0" cellspacing="3" class="STYLE4">
                                    <tr>
                                      <td class="style30"><div align="center" class="STYLE1" style="font-weight: bold">所在地</div></td>
                                      <td class="style30"><div align="center" class="STYLE1" style="font-weight: bold">约会主题</div></td>
                                      <td class="style30"><div align="center" class="STYLE1" style="font-weight: bold">对象要求</div></td>
                                      <td class="style30"><div align="center" class="STYLE1" style="font-weight: bold">约会时间</div></td>
                                      <td class="style30"><div align="center" class="STYLE1" style="font-weight: bold">操作</div></td>
                                    </tr>
                                    <%	do while not rs.eof and loopno>0%>
                                    <tr bgcolor="#FFECEC">
                                      <td height="1" colspan="5"></td>
                                    </tr>
                                    <tr>
                                      <td width="20%" height="25"><div align="center"><%=GetProv(rs("prov"))&"&nbsp;"&GetCity(rs("city"))%></div></td>
                                      <td width="27%"><div align="center"><%=rs("yhname")%></div></td>
                                      <td width="22%"><%=rs("yaoqiu")%></td>
                                      <td width="20%" align="center"><%=rs("yhtime")%></td>
                                      <td width="11%" align="right"><div align="center"><a href="deldate.asp?s=one&f_id=<%=rs("id")%>" class="a4" onClick="javascript:return confirm('你确认要删除这条约会信息吗？')">删除</a></div></td>
                                    </tr>
                                    <%
rs.movenext
loopno=loopno-1
loop
%>
                                </table></td>
                              </tr>
                          </table>
                            <br>
                            <table width="100%" height="25" border="0" cellpadding="0" cellspacing="0" bgcolor="E8E6E7" class="STYLE4">
                              <tr>
                                <td width="62%"> 共有个 <font color=red><b><%=rcount%></b></font> 信息&nbsp;&nbsp;页次: <font color=red><b><%=pageno%></b></font> / <b><%=mpage%></b> 页 </td>
                                <td width="38%" align="right"><%if pageno<=1 then
			response.Write "首页 上一页 "
			else
			  response.Write "<a href='mydate.asp?pageno="& pageno &"' class='a5'>首页 </a>"
			  response.Write "<a href='mydate.asp?pageno="& pageno-1 &"' class='a5'>上一页 </a>"
			end if
			if clng(pageno)<clng(mpage) then
			  response.Write "<a href='mydate.asp?pageno="& pageno+1 &"' class='a5'>下一页 </a>"
			  response.Write "<a href='mydate.asp?pageno="& mpage &"' class='a5'>末页 </a>"
			else
			  response.Write "下一页 末页 "
			end if
			%></td>
                              </tr>
                          </table>
                            <%
end if
%>
                        </td>
                      </tr>
                      <tr>
                        <td height="1" background="images/hline.gif"></td>
                      </tr>
                    </table>
                      <%
rs.close
 set rs=nothing
 conn.close
 set conn=nothing
%>
                  </td>
                </tr>
              </table>
</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>
