我这里有一个分页函数，你看看能不能用上！

function showpage(rcount,rsize,page,url)
cnt=int(rcount/rsize)
cont=rcount mod rsize
if cont<>0 then
cnt=cnt+1
else
cnt=cnt
end if
showpage= "&nbsp;&nbsp;共有"&rcount&"条记录&nbsp;每页"&rsize&"条记录&nbsp;"&vbcrlf
if page=1 then
showpage=showpage& "[首页][上页]"
else
showpage=showpage& "[<a href="&url&"page=1>首页</a>][<a href="&url&"page="&page-1&">上页</a>]"&vbcrlf
end if
if page=cnt then
showpage=showpage& "[下页][尾页]"
else
showpage=showpage& "[<a href="&url&"page="&page+1&">下页</a>][<a href="&url&"page="&cnt&">尾页</a>]"&vbcrlf
end if
showpage=showpage& "&nbsp;&nbsp;&nbsp;<select onchange=""location.href='"&url&"page='+this.value"">"&vblf
for i=1 to cnt
if i<10 then
a=0&i
else
a=i
end if
showpage=showpage& "<option value='"&i&"'"
if i=page then showpage=showpage& "selected"
showpage=showpage& ">"&a&"</option>"&vbcrlf
next
showpage=showpage& "</select>"&vbcrlf
end function

注如果后没别的参数可以这样使用
showpage(rs.recordcount,rs.pagesize,page,"index.asp?")
如果带参数则
showpage(rs.recordcount,rs.pagesize,page,"index.asp?action=look&")