本站首页 - 分类目录 - 本类文章
asp分页显示

在需要显示页码的页面:

page=cint(request("page")) 'page是url中页码的参数
querys="..."  '定义url的其他参数

rs.PageSize=30 '每页条数,自己设定
dim pagecount=rs.PageCount
rs.AbsolutePage=pageno

if pagecount>1 then
response.write("分页: ")
outpages pagecount,page ''''''此处'显示页码,函数见后
response.write "<br><br>"
end if


dim showcount=0
do while (not rs.eof and showcount<rs.PageSize )
   显示每条内容
   showcount=showcount+1
rs.movenext
loop

 

'以下为显示页码的函数,可单独放在一个文件中:

sub outpages(pagecount,curpage)

 yyy=int((curpage-1)/10)
 startno=yyy*10+1
 endno=startno+10-1


 if startno<1 then startno=1
 if endno>pagecount then endno=pagecount

 response.write "<b>"

 if startno>1 then
  response.write "&nbsp;&nbsp;<a target=_top  href=?"&querys&"&page="&(startno-10)&"><<</a>&nbsp;&nbsp;"
 end if


 for j=startno to endno
  if j=page then
   response.write " "&j&"&nbsp;&nbsp;"
  else
   response.write " <a target=_top href='"
   response.write "?"&querys&"&page="&j
   response.write "'>["&j&"]</a>&nbsp;&nbsp;"
  end if
 next


 if pagecount>endno then
  response.write "&nbsp;&nbsp;<a target=_top href=?"&querys&"&page="&(endno+1)&">>></a>"
 end if

 response.write "</b>"


end sub



上一篇:ASP时间函数
下一篇:asp和js的类型转换函数