asp的翻页页码函数

效果：

代码：

url 提交的链接地址
do_rsCount 数据库记录
do_PageSize 每页显示记录
do_CurPage 当前页码
do_Pages 页码显示数
sub  getpages(url,do_rsCount, do_PageSize, do_CurPage, do_Pages)
maxPage = fix ((do_rsCount - 1 ) / do_PageSize) + 1
writePages = " <div class='ipages'><nobr> "
prevBtn = do_CurPage - fix (do_Pages / 2 )
nextBtn = do_CurPage + fix (do_Pages / 2 )
if  prevBtn <= 0   then
prevBtn = 1
nextBtn = do_Pages
end   if
if  nextBtn > maxPage  then
nextBtn = maxPage
prevBtn = maxPage - do_Pages
end   if
if  prevBtn <= 0   then  prevBtn = 1

if  maxPage = 1   then
writePages = writePages & "  <a href='javascript:void(0);' class=now>1</a>  "
else
if  prevBtn > 1   then  writePages = writePages & "  <a href= " & url & " pgno=1>首页</a>  "
if  do_CurPage > 1   then  writePages = writePages & "  <a href= " &  url & " pgno= "   &  (do_CurPage - 1 )  & " >上一页</a>  "
if  prevBtn  > 1   and  maxPage > 1   then  writePages = writePages & "  ......  "
for  i = prevBtn  to  nextBtn
if  do_CurPage = i  then
writePages = writePages & "  <a href='javascript:void(0);' class=now> "   &  i  &   " </a>  "
else  
if  i <= maxPage  then
writePages = writePages & "  <a href= "   & url & " pgno= "   &  i  &   " > "   &  i  &   " </a>  "
end   if
end   if
next
end   if
if  i <> maxPage + 1   and  maxPage > 1   then
writePages = writePages & "  ......  "
end   if
if  do_CurPage < maxPage  then  writePages = writePages & "  <a href= "   & url & " pgno= "   & (do_CurPage + 1 )  &   " >下一页</a>  "
if  nextBtn < maxPage  then  writePages = writePages & "  <a href= "   & url & " pgno= "   &  maxPage  & " >末页</a>  "
writePages = writePages & " </nobr></div> "
response.write writePages
end sub