<form action="bk_del.asp" method="post">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#A3BFE8">
  <tr>
    <td height="20" colspan="4" align="center" bgcolor="#E9F1F8">留言信息</td>
  </tr>
  <tr>
    <td height="20" colspan="4" align="center" bgcolor="#E9F1F8">&nbsp;</td>
  </tr>
  <tr>
    <td width="4%" align="center" bgcolor="#FFFFFF">&nbsp;</td>
  <td width="4%" height="20" align="center" bgcolor="#FFFFFF">ID</td>
    <td height="20" align="center" bgcolor="#FFFFFF">留言姓名[点击查看]</td>
    <td width="25%" align="center" bgcolor="#FFFFFF">&nbsp;时间</td>
  </tr>
  <%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from book order by b_time desc"
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then 
  %>
     <%
	rs.pagesize=18
	page=clng(REQUEST.QueryString("page"))

	if page<1 then
		page=1
	end if
	if page>rs.pagecount then
		page=rs.pagecount
	end if

	rs.absolutepage=page
	i=1
	do while not rs.eof and i<=rs.pagesize
	%>
  <tr>
    <td width="4%" align="center" bgcolor="#E9F1F8"><label>
      <input name="cpid" type="checkbox" id="cpid" value="<%=rs("b_id")%>">
    </label></td>
    <td width="4%" align="center" bgcolor="#E9F1F8"><%=i%></td>
    <td width="60%" height="20" align="left" bgcolor="#E9F1F8"><a href='vbscript:openWin("bk_show.asp?id=<%=rs("b_id")%>" )'><%=rs("b_name")%></a></td>
    <td align="center" bgcolor="#E9F1F8"><%=rs("b_time")%></td>
  </tr>
  <%
	rs.movenext
    	i=i+1
	loop
%>
<%else
response.Write("没有信息")
end if%>
  <tr>
    <td height="20" colspan="4" align="left" bgcolor="#E9F1F8"><label>
      <input type="submit" name="Submit" value="删除选定" />
    </label></td>
  </tr>
  <tr>
    <td height="20" colspan="4" align="center" bgcolor="#E9F1F8"><div align="center">
        <% 
  if page=1 then 
  response.Write("第一页")
  else
  response.write("&nbsp;&nbsp;<a href=main.asp?adminjob=adminbk&page=1>第一页</a>")
  end if
  
  if page=1 then 
   response.Write("&nbsp;&nbsp;上一页")
   else 
   response.Write("&nbsp;&nbsp;<a href=main.asp?adminjob=adminbk&page="& page-1 & ">上一页</a>")
   end if
   
   if page=rs.pagecount then 
   response.Write("&nbsp;&nbsp;下一页")
   else 
   response.Write("&nbsp;&nbsp;<a href=main.asp?adminjob=adminbk&page="& page+1 & ">下一页</a>")
   end if
   
   if page=rs.pagecount then 
   response.Write("&nbsp;&nbsp;最后一页")
   else 
   response.Write("&nbsp;&nbsp;<a href=main.asp?adminjob=admincontent&page="& rs.pagecount & ">最后一页</a>")
   end if
   %>
&nbsp;<span class="hb">&nbsp;&nbsp;当前第
<% =page %>
页&nbsp;&nbsp;&nbsp;&nbsp;共
<% =rs.pagecount %>
页</span></div></td>
  </tr>
  <tr>
    <td height="20" colspan="4" align="center" bgcolor="#E9F1F8">&nbsp;</td>
  </tr>
</table>
</form>
<!--#include file="opennew.asp"-->