zizhong.wang
/
xuanjuAsp


			
				
					
						
						
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115
							<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>BdeCMS管理员登陆</title>
<link rel="stylesheet" type="text/css" href="../bdcommx/css.css">
</head>
<!--#include file="../bdcommx/connxyz.asp"-->
<%call log_chk()
call passChk()%>
<body>
<table width="100%" height="42" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="4%" height="42" align="center" background="../images/top_bg2.jpg"><img src="../images/dian.gif" width="10" height="10" /></td>
        <td width="96%" background="../images/top_bg2.jpg" class="hui12">后台管理：&gt;&gt; 预订管理</td>
      </tr>
</table>
      <br />
      <table width="94%" border="0" align="center" cellpadding="0" cellspacing="1" class="tab_bdr"><tr>
          <td align="center" class="tb_bg" colspan="5">预订管理</td>
        </tr>
        <tr>
          <td width="20%" height="26" align="center" class="NcB_bg">姓名</td>
          <td width="20%" align="center" class="NcB_bg">电话</td>
		  <td width="20%" align="center" class="NcB_bg">手机</td>
          <td width="20%" align="center" class="NcB_bg">时间</td>
          <td width="20%" align="center" class="NcB_bg">操作</td>
        </tr><%
dim theact
theact=request("theact")
dim CurrentPage  '当前页
dim TotalPages   '总页数
MaxPerPage=20
Set rs1= Server.CreateObject ("ADODB.RecordSet")
sql="select * from wsbm  order by bm_id desc"
rs1.open sql,conn,1,3
if rs1.eof then
response.Write("")
else
rs1.pagesize=MaxPerPage
If trim(Request("Page"))<>"" then
CurrentPage= CLng(request("Page"))
If CurrentPage> rs1.PageCount then
CurrentPage = rs1.PageCount
End If
Else
CurrentPage= 1
End If
totalPut=rs1.recordcount 'totalput=总记录数
if CurrentPage<>1 then
if (currentPage-1)*MaxPerPage < totalPut then
rs1.move(currentPage-1)*MaxPerPage
end if
end if
do while not rs1.eof and c<20
%>
<form id="form1" name="form1" method="post" action="ZPaddsave.asp">
        <tr>
          <td height="26" align="left" class="NcB_bg">　<%=left(rs1("bm_name"),12)%></td>
          <td height="26" align="center" class="NcB_bg"><%=rs1("bm_tel")%></td>
		   <td height="26" align="center" class="NcB_bg"><%=rs1("bm_sj")%></td>
          <td height="26" align="center" class="NcB_bg"><a href="bmmag.asp"><%=formatdatetime(rs1("bm_time"),2)%></a></td>
          <td height="26" align="center" class="NcB_bg"><a href="bmsee.asp?thex=<%=rs1("bm_id")%>">查看</a>  <a href="bmdel.asp?thex=<%=rs1("bm_id")%>&theid=<%=request("thex")%>">删除</a></td>
    </tr></form>
<%
c=c+1
rs1.movenext 
loop 
rs1.close 
set rs1=nothing 
%>
</table>
      <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
        <form id="form1" name="form1" method="post" action="">
          <tr>
            <td height="50" align="center"><%
'------------------------------------------------------页面跳转
dim n,k
if (totalPut mod MaxPerPage)=0 then  'n表示总页数
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
k=currentPage
k=currentPage
if k<>1 then
response.write "["+"<a href=?page=1>第一页</a></b>] "
response.write "["+"<a href=?page="+cstr(k-1)+">上一页</a>] "
else
Response.Write "[第一页] [上一页]"
end if
if k<>n then
response.write "["+"<a href=?page="+cstr(k+1)+">下一页</a>] "
response.write "["+"<a href=?page="+cstr(n)+">最后一页</a>] "
else
Response.Write "[下一页] [最后一页]"
end if
'------------------------------------------------------页面跳转msmsms有点小毛病！就是转页没有连带搜索和类别
response.Write("<font color='red'> | </font>共"&n&"页 / "&totalPut&"条信息 / ")
response.Write("当前第"&k&"页")
response.Write(" <select name='page'>")
for myi=1 to n
response.Write("<option value='"&myi&"'>"&myi&"</option>")
next
response.Write("</select>")
response.Write("<input type=submit name=Submit3 value=Go→ />")
end if%></td>
          </tr>
        </form>
      </table>
</body>
</html>