一种很好的分页方法，删除数据的方式（带确实和取消窗口），搜索关键字（含空格）的处理

<!-- #include file="connect.asp" -->
          <%
            Keyword=request("Keyword")
            Keyword=replace(Keyword," ","")
           
            page = Request.QueryString("page")
            
            sql="select * from 试卷信息 where 试卷名称 like '%"&keyword&"%'"
            rs.open sql,conn,1,1
           
            dim page,maxPerPage
            maxPerPage=2 '每页显示的记录数
            rs.pagesize=MaxPerPage
            if (page="" or isempty(page)) then page=1
            thisUrl="2.asp?Keyword="&Keyword
            session("adminOldUrl")=thisUrl&"&page="&page
           %>

<script language="JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);

function jumpTo(i){
if(i==1){
 this.document.location="<%=thisUrl%>";}
if(i==2){
 this.document.location="<%=thisUrl%>&page=<%=page-1%>";}
if(i==3){
 this.document.location="<%=thisUrl%>&page=<%=page+1%>";}
if(i==4){
 this.document.location="<%=thisUrl%>&page=<%=rs.pageCount%>";}
}
// -->
</script>

<form method="post" action="2.asp">
        <input type="text" name="keyword" size=57 value="" maxlength="50" style="width: 390; height: 20">&nbsp;&nbsp;
        <input type="submit" name="Sub" value=" 查 询 "></td></form>
       
 <%
         if not (rs.eof or err) then rs.move (page-1)*maxPerPage
         do while i < maxPerPage And not rs.eof %>
        
         <% =rs("试卷名称")%>   <a href="2.asp?mode=del&page=<% =page%>">删 除</a><br>
        
           <%  n=n+1
           if n>=maxPerPage then exit do
           rs.movenext
           loop
        %>  
        
         <div align="right"><font color=#FFFFFF>共<b><%=rs.recordCount%></b>项　第<b><%=page%>/<%=rs.pageCount%></b>页　</font>
              <%if page>1 then%>
              <input type="button" name="Submit3" value="首页" onClick="Javascript:jumpTo(1)">
              <input type="submit" name="Submit4" value="上页" onClick="Javascript:jumpTo(2)">
<%else%>
              <input type="button" name="Submit3" value="首页" disabled>
              <input type="submit" name="Submit4" value="上页" disabled>
<%end if
if rs.recordCount>page*maxPerPage then%>
              <input type="submit" name="Submit5" value="下页" onClick="Javascript:jumpTo(3)">
              <input type="submit" name="Submit6" value="末页" onClick="Javascript:jumpTo(4)">
<%else%>
              <input type="submit" name="Submit5" value="下页" disabled>
              <input type="submit" name="Submit6" value="末页" disabled>
<%end if%>
            </div>
           
      <%
      if request("mode")="del" then
      id=request("id")
      page=request("page")
      %>
      <script language="javascript">
      <!--
        temp=window.confirm("不能恢复！您确实要删除此记录？");
         if (temp)
      {
      window.location.href="del.asp?page=<% =page%>&Date=<% =date()%>"
       }
       else
      {
       history.back();
      }
        //-->
       </SCRIPT>
       <%end if%>

本文地址：http://com.8s8s.com/it/it7843.htm