<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #Include file="conn.asp" -->
<%
if session("flag")>0 then
   Response.Write("<br><br><br><center>对不起。你没有权限进入此页面！！！</center>")
   Response.end 
end if
%>
<%
if Request("action")="del" then
id=Trim(Request("id"))
conn.execute("delete from tblsouli where ID in("&id&")")
End if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>摄影预约管理</title>
<%
s_keyword=Trim(Request("s_keyword"))
if isempty(request("type1")) then '开始栏目咯/这是没有nclassid的情况
 type1="1"
Else
 type1=Trim(Request("type1"))
End if
%>
<link rel="stylesheet" href="../style/style.css" type="text/css">
<table width="590" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="600"> 
      <TABLE cellSpacing=0 cellPadding=0 width=553 align=center border=0>
        <TBODY> 
        <TR> 
            
          <TD height="21" bgColor=#cccccc width="1"></TD>
            <TD colSpan=4 rowspan="2" bgcolor="#CCCCCC"><div align="center">预约列表</div></TD>
            
          <TD bgColor=#cccccc width="1"></TD>
          </TR>
          <TR> 
            
          <TD rowspan="2" bgColor=#cccccc width="1"></TD>
            
          <TD rowspan="2" bgColor=#cccccc width="1"></TD>
          </TR>
          <TR>
            <TD colspan="4" bgcolor="#CCCCCC">&nbsp;</TD>
          </TR>
          <TR> 
            
          <TD bgColor=#cccccc width="1"></TD>
            <TD vAlign=top bgColor=#f8f8f8 colSpan=4 height=351> 
            <TABLE cellSpacing=0 cellPadding=0 width=594 border=0>
              <TBODY> 
              <TR> 
                    
                <TD width="594" height="353"> 
                  <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0" height="122">
                    <tr> 
                          <td> 
                            <%
					Set Rs=Server.Createobject("ADODB.Recordset")
		sql="select * from tblsouli order by id desc"
rs.open sql,conn,3,1
rcount=rs.recordcount
if pmcount="" or isempty(pmcount) or pmcount<1 then
        pmcount=10
end if
rs.pagesize=pmcount   	'设置每页数
mpage=rs.pagecount    	'得到总页数
pageno=Request("pageno")
if rcount mod pmcount=0 then
     		n= rcount \ pmcount
else
     		n= rcount \ pmcount+1
end if
if cint(pageno)<1 or cint(pageno)>mpage then
	pageno=1
end if


if rs.bof and rs.eof then
	response.write "<tr><td colspan='5'><div align='center'>没有内容</div></td></tr>"
else

rs.absolutepage=pageno	'将指针移至指定页的第一条记录
loopno=pmcount

do while not rs.eof and loopno>0
%>
                            
                        <table width="98%" border="1" cellpadding="5" cellspacing="0">
                          <tr>
                                
                            <td width="19%"><IMG height=17 
            src="../../lady/images/mt_but02.gif" width=19 align=absMiddle>姓名:<%=RS("name")%> 
                              <a href="yuyue.asp?action=del&id=<%=RS("id")%>"><font color="#FF0000"><b>删</b></font></a> 
                            </td>
                                
                            <td width="11%">性别:<%=RS("xinbei")%></td>
                                
                            <td width="11%">年龄:<%=RS("old")%> </td>
                                
                            <td width="27%">电话:<%=RS("tel")%> </td>
                                <td width="32%">邮箱:<%=RS("email")%></td>
                              </tr>
                              <tr>
                                <td colspan="5"><IMG height=17 
            src="../../lady/images/mt_but02.gif" width=19 align=absMiddle>所在地:<%=RS("address")%></td>
                              </tr>
                              <tr>
                                <td colspan="5"><IMG height=17 
            src="../../lady/images/mt_but02.gif" width=19 align=absMiddle>备注:<%=RS("beizhu")%></td>
                              </tr>
                            </table>                             
                            <%
						rs.movenext
						loopno=loopno-1
						loop
						end if
						rs.close
						set rs=Nothing
						%>
                          </td>
                        </tr>
                      </table>
                      <BR> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr align="right"> 
                          <td height="18"> <div align="center">共 <%=cstr(rcount)%> 
                              条信息 当前第 <%=cstr(pageno)&"/"&cstr(mpage)%> 页 每页 <%=pmcount%> 
                              条 
                              <%
							if cint(pageno)>1 then%>
                              [ <a href='../../ADMIN/eat/admin_class.asp?type1=<%=type1%>&pageno=<%=pageno-1%>&s_keyword=<%=s_keyword%>' class="tt1">上一页</a> 
                              ] 
                              <%
							end if
							if cint(pageno)<cint(mpage) then
							%>
                              [ <a href='../../ADMIN/eat/admin_class.asp?type1=<%=type1%>&pageno=<%=pageno+1%>&s_keyword=<%=s_keyword%>' class="tt1">下一页</a> 
                              ] 
                              <%end if%>
                              &nbsp;&nbsp;</div></td>
                        </tr>
                      </table></TD>
                  </TR>
                </TBODY>
              </TABLE>
              <TABLE cellSpacing=0 cellPadding=0 width=288 border=0>
                <TBODY>
                  <TR> 
                    <TD bgColor=#ffffff height=1></TD>
                  </TR>
                </TBODY>
              </TABLE></TD>
            
          <TD bgColor=#cccccc width="1"></TD>
          </TR>
          <TR> 
            <TD width=1 bgColor=#cccccc></TD>
            <TD bgColor=#cccccc colSpan=4 height=1></TD>
            <TD width=1 bgColor=#cccccc></TD>
          </TR>
        </TBODY>
      </TABLE></td>
  </tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width=500 align=center border=0>
  <TBODY>
    <TR> 
      <TD bgColor=#244b1a height=2></TD>
    </TR>
  </TBODY>
</TABLE>
</BODY></HTML>
