asp 实现分页

我单独建了一个asp  在里面写了一个分页函数

分页函数
'格式为：共有 13 条记录  第1/2页 首 页 上一页  下一页 末 页 跳转至※※页 【跳转】
function page_split_front(pagesize,currentpage,filename,rss,svar)
 'response.write "apge"
 dim splitStr
 if currentpage<>"" then
  currentpage=cint(currentpage)
 else
  currentpage=1
 end if
 rss.pagesize=pagesize
 rss.AbsolutePage=currentpage 
 
 splitStr=splitStr& "<form name=form_page method=post action="&fileName&"?prepage="&currentpage&svar&">"
 splitStr=splitStr& "共有 "&rss.recordcount&" 条记录&nbsp"

 if rss.recordcount Mod pagesize = 0 then
  pagecountnum = rss.recordcount\pagesize
 else
  pagecountnum = rss.recordcount\pagesize+1
 end if

 splitStr=splitStr& "&nbsp第"& currentpage & "/" & pagecountnum & "页&nbsp"
 splitStr=splitStr& "<a href="&fileName&"?page=1"&svar&">首 页</a>&nbsp"

 if currentpage>1 and currentpage<=rss.pagecount then
  splitStr=splitStr& "<a href="&fileName&"?page="&(currentpage-1)&svar&">上一页</a>&nbsp"
 else
  splitStr=splitStr& "上一页&nbsp"
 end if
 
 if currentpage>0 and currentpage<rss.pagecount then
  splitStr=splitStr& "&nbsp<a href="&fileName&"?page="&(currentpage+1)&svar&">下一页</a>&nbsp"
 else
  splitStr=splitStr& "&nbsp下一页&nbsp"
 end if

 splitStr=splitStr& "<a href="&fileName&"?page="&pagecountnum&svar&">末 页</a>&nbsp" 
 splitStr=splitStr& "跳转至<input type=text name=page size=3 maxlength=3>页&nbsp"
 splitStr=splitStr& "<input type=submit value='跳转'>"
 splitStr=splitStr& "</form>"
 page_split_front=splitStr 
end function

用的时候 直接复制就行  

 

 

 

在需要用到分页点页面  引用 刚才建的文件

<!--#include file="pub/func.asp" -->   文件路径 名字改一下

<%

 
 set rs=server.createobject("adodb.recordset")
 page=receive("page",0)
 sql="select * from users" 
 rs.open sql,conn,1,1
    pagesize=10
 if (rs.eof=false) then        
  splitStr = page_split_front(pagesize,page,"info.asp",rs,addStr)
    end if 

%>

<table width="795" height="97" border="1">
  <tr>
    <td width="55" height="25">id</td>
    <td width="103">姓名</td>
    <td width="69">年龄</td>
    <td width="304">地址</td>
    <td width="230">&nbsp;</td>
  </tr>

  <%                  num=0
                if not rs.eof then
    do while not rs.eof and num<pagesize
%>
  <tr>
    <td><%=rs("id")%></td>
    <td><%=rs("name")%></td>
    <td><%=rs("age")%></td>
    <td><%=rs("adress")%></td>
    <td><a href="add.asp">新增</a> <a href="update.asp?id=<%=rs("id")%>">修改</a> <a href="delete.asp?id=<%=rs("id")%>">删除</a></td>
  </tr>
 <%
      num=num+1
      rs.movenext
     loop
     rs.close
     set rs=nothing 
                else
     %>
  <tr>
     <%end If
              %>         
    <td colspan="5">
 
<%=splitStr%>
       </td>
  </tr>
</table>