怎么用ASP实现分页（一）

　　<%@ 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>