<%@ 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作为函数的入口。

function showpages(totalnumber,maxperpage,filename)

dim n

if totalnumber mod maxperpage=0 then

n= totalnumber \ maxperpage

else

n= totalnumber \ maxperpage+1

end if

response.write "

end function

%>