ASP分页问题 帮忙看下

[F77]

Function Paging(rs,maxmessage,currentpage,getstr)
'显示页码-GET(记录集,每页显示记录数,当前页码,传递值)------
dim Str
if currentpage="" then currentpage=1 '当前页码
if getstr<>"" then getstr = getstr & "&" 'GET参数
rs.pagesize=maxmessage '设置每页显示记录数
if not rs.EOF then rs.AbsolutePage=currentpage '设置当前页码
Str = " 共" & rs.recordcount & "条/" & rs.pagecount & "页，每页" & maxmessage & "条"
if rs.pagecount>0 then Str = Str & "，第" & rs.AbsolutePage & "页　"
if rs.pagecount>1 then
if rs.AbsolutePage>1 then
Str = Str & "<a href=?" & getstr & "page="¤tpage-1&"><<上页</a>　"
end if
if rs.AbsolutePage+1<=rs.pagecount then
Str = Str & "<a href=?" & getstr & "page="¤tpage+1&">下页>></a>"
end if
end if
Paging = Str
end function

以上是代码部分 可否帮忙在此功能上 加个首页 末页 还有GO第X页
我是新手 研究了快一个星期了 希望各位大虾帮帮忙 谢谢了

[sy_binbin]

看我BLOG，里面有个分页的代码

[kmiaoer]

<%
Function Paging(rs,maxmessage,currentpage,getstr)
'显示页码-GET(记录集,每页显示记录数,当前页码,传递值)------
dim Str
if currentpage="" then currentpage=1 '当前页码
if getstr <>"" then getstr = getstr & "&" 'GET参数
rs.pagesize=maxmessage '设置每页显示记录数
if not rs.EOF then rs.AbsolutePage=currentpage '设置当前页码
Str = " 共" & rs.recordcount & "条/" & rs.pagecount & "页，每页" & maxmessage & "条"
if rs.pagecount>0 then Str = Str & "，第" & rs.AbsolutePage & "页　"
if rs.pagecount>1 then
if rs.AbsolutePage>1 then
Str = Str & "<a href=?" & getstr & "page=1 >首页</a><a href=?" & getstr & "page="¤tpage-1&"> < <上页 </a>　"
end if
if rs.AbsolutePage+1 <=rs.pagecount then
Str = Str & " <a href=?" & getstr & "page="¤tpage+1&">下页>> </a> <a href=?" & getstr & "page=" & rs.pagecount & ">尾页</a>"
end if
end if
Paging = Str
end function
%>

[F77]

感谢楼上的 能加个GO第X页吗？