不晓的这么一个简单的程序到网上找就那么费劲，真是五花八门。现在网上的垃圾还真多，而且都是重复的垃圾，随便一篇不怎么样的程序代码文章都会被转的满天飞，而且不署名。

下面是最简单也是最标准的ASP分页程序代码，记在这里以备不时之需。（假设数据库已经连接并打开。书名号换成尖括号）

《%
if not isempty(request.QueryString(“page”)) then
page=cint(request.QueryString(“page”))
else
page=1
end if
rs.pagesize=20
if page》rs.pagecount or page《=0 then
page=1
end if
rs.AbsolutePage=page
%》
《table》《tr》《td》id《/td》《/tr》
《% do while not rs.eof %》
《tr》《td》《%=rs(“id”)%》《/td》《/tr》
《% i=i+1
rs.movenext
if i》=rs.PageSize then exit do
loop
%》
《/table》
《form action=”index.asp” method=”get” name=”page”》
《%
if page=1 then
response.write “首页 上一页 ”
else
response.write “《a xhref=index.asp?page=1》首页《/a》 ”
response.write “《a xhref=index.asp?page=”&cstr(page-1)&”》上一页《/a》 ”
end if
if rs.pagecount-page《1 then
response.write “下一页 尾页 ”
else
response.write “《a xhref=index.asp?page=”&cstr(page+1)&”》下一页《/a》 ”
response.write “《a xhref=index.asp?page=”&cstr(rs.pagecount)&”》尾页《/a》 ”
end if
%》
《%=page%》/《%=rs.pagecount%》页
《input name=”page” size=”2″ value=”《%=page%》” /》
《input name=”submit” type=”submit” value=”GO” method=”submit” /》
《/form》