谁提供一个asp 分页代码

function isPageShow(paget,linkstr,fontc)
''//pz:分页多少页linkstr:分页连接符号classname:连接的CSS样式
Sum=PageCounts
''//总的页面个数.
Pagetimes=Round(Sum/paget-0.5)
''//分页的次数显示.
PageMod= Sum mod paget
''//如果不等于第一页则显示 首页 和 上一页
if page < 0 or page = 0 then page = 1 End if
if page > PageCounts then page = PageCounts End if
if page <> 1 and page <> 0 then
Response.Write "<a href=?"&linkstr&"&page=1 class="&fontc&" title=首页>[首页]</a> "
Response.Write "<a href=?"&linkstr&"&page="&(page-1)&" class="&fontc&" title=上页>[上页]</a>  "
else
Response.Write "首页 上页 "
End if
''//判断当前页面的占再第几次循环中
pagenowtime=Round(page/paget-0.5)
''//如果页面没有分页大小则循环显示所有页面
if Pagetimes=0 then
for i=1 to Sum
Response.Write"<a href=?"&link