<%
'分页过程
sub pagination(fn)
response.write("<div class='page'>页码："&page&"/"&rs.pagecount&"页　总计："&rs.recordcount&"条　每页："&rs.pagesize&"条")
if page<=1 then
response.write("　<span style='color:#888;'>首　页 | 上一页</span>")
else
response.write("　<a href='"&fn&"?page=1"&url&"'>首　页</a> | <a href='"&fn&"?page="&page-1&url&"'>上一页</a>")
end if
if page>=rs.pagecount then
response.write(" | <span style='color:#888;'>下一页 | 尾　页</span>")
else
response.write(" | <a href='"&fn&"?page="&page+1&url&"'>下一页</a> | <a href='"&fn&"?page="&rs.pagecount&url&"'>尾　页</a>")
end if
response.write("　转到: <select size='1' name='page' onChange=""javascript:document.location.href='"&fn&"?page='+this.options[this.selectedIndex].value+'"&url&"';"">")
for i=1 to rs.pagecount step 1
if i=page then
response.write("<option value='"&i&"' selected='selected'>-"&i&"-</option>")
else
response.write("<option value='"&i&"'>-"&i&"-</option>")
end if
next
response.write("</select></div>")
end sub
%>

-----------------------------------------------------过程结束，调用方法开始-----------------

call pagination("news.html")
注：这里传输的参数一般是指程序文件名，主要用于伪静态更改了当前程序文件名的情况下，如：news.asp 新闻传送了一个分类，则此文件名更改为 news_s2.html，并且程序文件都是news.asp 此时可通过文件名肃清参数传递。

call pagination("")
注：无需参数传递可写成这样，转为是以本页文件接收数据。