IDC资讯中心
<%@ language=vbscript %>
<html>
<head>
</head>
<body>
<%
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
%>
</body>
</html>
<%定义分页的函数，以totalnumber，maxperpage，filename作为函数的入口。
function showpages()
dim n
if (totalnumber mod maxperpage)=0 then
n= totalput \ maxperpage
else
n= totalput \ maxperpage + 1
end if
if n=1 then
exit sub
end if
dim k
response.write "<p align=left>>> 分页 "
for k=1 to n
if k=currentpage then
response.write "[<b>"+cstr(k)+"</b>] "
else
response.write "[<b>"+"<a href="&filename&"?page="+cstr(k)+">"+cstr(k)+"</a></b>] "
end if
next
response.write "</p>"
end function
%>
