asp分页程序的设计问题？

我自己常用的，分享给你了吧，你可以在修改一下，就更好了。
是定义的一个过程，只要再合适的地方调用就可以了：
call pageC(page,rs.pagecount,Request.ServerVariables("SCRIPT_NAME"))
page是当前页的page值，rs.pagecount就是共有多少页，你在用的时候上面的调用不用改了！

[首页][上一页] 1 [2] [3] [4] [5][下一页][尾页]
代码如下：
<%
sub pageC(page,pagecount_,url_)
if pagecount_ = 1 then
page = 1
uppage = 1
downpage = 1
else
if page >= pagecount_ then
page = pagecount_
uppage = page -1
downpage = page
elseif page <= 1 then
page = 1
uppage = 1
downpage = 2
else
uppage = page -1
downpage = page +1
end if
end if
response.write "[<a href=" & url_ & "?page=1&" & dotype & "=" & queryStr_ & "&dotype="& dotype &">首页</a>]"
response.write "    [<a href=" & url_ & "?page=" & u