ASP分页函数

const MaxPerPage=18

dim page

if not request("page")="" then

Page=cint(request("page"))

else

Page=1

end if

dim i

i=0

rs.move (Page-1)*MaxPerPage

分页

do while

' 中间是循环段

i=i+1

if i>=MaxPerPage then exit do

rs.movenext

loop

===========================

totalnumber = 记录总数

maxperpage = 每页记录数

filename = 分页的文件名

<%

function showpage(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'><font color='#000080'>&gt;&gt;分页</font>&nbsp;"

if page<2 then

response.write "<font color='#000080'>首页 上一页</font>&nbsp;"

else

response.write "<a href="&filename&"?page=1&>首页</a>&nbsp;"

response.write "<a href="&filename&"?page="&page-1&">上一页</a>&nbsp;"

end if

if n-page<1 then

response.write "<font color='#000080'>下一页 尾页</font>"

else

response.write "<a href="&filename&"?page="&(page+1)

response.write ">下一页</a> <a href="&filename&"?page="&n&">尾页</a>"

end if

response.write "<font color='#000080'>&nbsp;页次：</font><strong><font color=red>"&page&"</font><font color='#000080'>/"&n&"</strong>页</font> "

response.write "<font color='#000080'>&nbsp;共<b>"&totalnumber&"</b>条记录 <b>"&maxperpage&"</b>条记录/页</font> "

response.write " <font color='#000080'>转到：</font><input type='text' name='page' size=4 value="&page&">"

response.write "<input type=submit name=Submit value=go> </span></p>"

end function

%>