<%@ Language=VBScript %>
<%
dim currentpage '定义当前页
dim filename '文件名
Const MaxPerPage=20 '每页显示的记录个数
dim totalnumber '记录总数
filename="showpages.asp"
totalnumber=200 '设置记录总数为200
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
showpages totalnumber,MaxPerPage,filename
%>
<%'定义分页的函数,以TOTALNUMBER,MAXPERPAGE,FILENAME作为函数的入口。< p>
http://m.hzclsc.cn/anzhuo/1574.html
推荐访问:分页查询怎么实现 分页功能怎么实现