asp中的分页程序

写了一个分页的东西,循环时不用rx.movenext尽早关闭rs. 数据只取需要显示的,减少数据查询的数量.

 

sub showpage (fileurl,pgSize,totalCount,page)':::::::::::::fileurl:分页页面名称，pgsize:每页有几条：totalcount:一共有多少条数据，page：当前有多少条数据
  if instr(fileurl,"?")=0  and len(fileurl)>1 then
   fileurl=fileurl+"?"
  elseif len(fileurl)>1 then
   fileurl=fileurl+"&" 
  end if
 if request("page")<>"" then
  page=cint(request("page"))
 else
  page=1
 end if
  md = totalCount mod pgSize
  if md=0 then
  
   totalPage=cint(totalCount/pgSize)
  else
  
   if (totalCount/pgSize)>=1 then
    totalPage=fix(totalCount/pgSize)+1
   else
    totalPage= 1
   end if
  end if
  
  
               if page=1 then
                    response.write("首页")
                else
                    response.Write("<a href='"&fileurl&"page=1'>首页</a>")
                end if
                response.Write("&nbsp;&nbsp;")
                if page>1 then
                    response.Write("<a href='"&fileurl&"page="&page-1&"'>上一页</a>")
                else
                    response.Write("上一页")
                end if
                response.Write("&nbsp;&nbsp;")
                if totalPage>1 and page<totalPage then
                    response.Write("<a href='"&fileurl&"page="&page+1&"'>下一页</a>")
                else
                    response.Write("下一页")
                end if
                response.Write("&nbsp;&nbsp;")
                if  page<>totalPage then
                    response.Write("<a href='"&fileurl&"page="&totalPage&"'>尾页</a>")
                else
                    response.Write("尾页")
                end if
                response.Write("&nbsp;&nbsp;")
                response.Write("页次:"&page&"/"&totalPage&"页&nbsp;&nbsp;"&pgSize&"篇/每页&nbsp;&nbsp;" )
 end sub

 

其实主要就是那个sql语句,然后注意分页就可以了,也挺简单的,其实早就想用这个办法了,只是原来一直很懒就没有试验用这种方法.