pagination.asp

1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /WIN2000 WITH IIS 4.0 OR LATER /WIN9X+PWS 2. 数 据 库：Access2000

<%Sub showonepage(rs,page)
	if page="" Then Page=1
	if Page < 1 Then Page=1
	if int(Page) > rs.pagecount then Page=rs.pagecount
	rs.absolutepage = page
	For ipage=1 to rs.pagesize
	OnePage(Rs)
	rs.MoveNext
	if rs.EOF Then Exit For
	Next
end sub

Sub Npage(page,Allpage,link)

if page="" Then Page=1
a=page-5
b=page+5
if page > 6 Then Response.write "<a href=?"&link&"&page=1>1</a> ...&nbsp;"
	For a=a to b
	if a > 0 and a <= Allpage  Then 
	Response.write "<a href=?"&link&"&page="&a&">"&a&"</a>&nbsp;"
	End if
	Next
if Page < Allpage - 5 Then Response.write "... <a href=?"&link&"&page="&Allpage&">"&Allpage&"</a>&nbsp;"
End Sub
%>