<%@ 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(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber maxperpage
else
n= totalnumber maxperpage+1
end if
response.write "<form method=Post action="&filename&">"
response.write "<p align="center">记录分页 "
if CurrentPage<2 then
response.write "<font color="999966">首页 上一页</font> "
else
response.write "<a href="&filename&"?page=1>首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&">上一页</a> "
end if
if n-currentpage<1 then
response.write "<font color="999966">下一页 尾页</font>"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1) 数据挖掘研究院
response.write ">下一页</a> <a href="&filename&"?page="&n&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
response.write " 转到：<input type="text" name="page" size=4 maxlength=10 class=smallInput
value="¤tpage&">"
response.write "<input class=buttonface type="submit" value=" Goto " name="cndok"></span></p></form>"
end function
%>
