ASP网页每6页分页代码

下面这个分类是每6页,分一小页,这样就不会1,2,3,4……一直分下去了!这个是生成HTML的

效果如下

<%
page = Request("page")'取得当前页
if isnull(page) or page="" then page=1' 取不到,或空就到页码1
page = clng(page)'转成整数型


set rs = server.CreateObject("adodb.recordset")
sql = "select * from Article order by ArticleID desc" '打开数据库
rs.open sql,conn,1,1
if not rs.eof then
 pagesizes=12 '每页显示12条记录
 rs.pagesize=pagesizes '每页12条记录
 ArticleNum = rs.Pagecount '返回总页数
 total = rs.recordcount '总记录数
 rs.absolutepage=page '设置当前显示第几页
 if page=1 then
  fileName = "Index.html"
 else
  fileName = "Index"&page&".html"
 end if
 i=0
 do while not rs.eof
 i=i+1
  ArticleID =rs("ArticleID")
  '******这里取数据略*********
  
  PageList = ""
  PageList = PageList & "<div class=""PageUpDown"">"
  if page = 1 then
   PageList = PageList & "上一页"
  elseif page = 2 then
   PageList = PageList & "<a href=""index.html"" title=""上一页"">上一页</a>"
  elseif page <> 1 and page <> 2 then
   PageList = PageList & "<a href=""index"&(page-1)&".html"" title=""上一页"">上一页</a>"
  end if
  PageList = PageList &"</div><span>"
  startpage= int(page/6) '确定开始页,每6小页分页
  if startpage=0 then
   startpage=1 '不到6小分页,就取当页1页
  else
   startpage=startpage*6 '否则每开始页为6的倍数
  end if
  for p = startpage to startpage+5
  if p>ArticleNum then exit for '如果超过总页数就退出
   if p = page then
    PageList = PageList & "<b>"&p&"</b>" '如果是选中页,当前页就加粗显示
   else
    if p = 1 then
     PageList = PageList & "<a href=""index.html"" title=""第"&p&"页"">"&p&"</a>"
    else
     PageList = PageList & "<a href=""index"&p&".html"" title=""第"&p&"页"">"&p&"</a>"
    end if
   end if
  next
  PageList = PageList & "</span><div class=""PageUpDown"">"
  if page <> ArticleNum then
   PageList = PageList & "<a href=""index"&(page+1)&".html"" title=""下一页"">下一页</a>"
  else
   PageList = PageList & "下一页" '当前页等于总页数,就没得选择,已经最后了
  end if
  PageList = PageList &"</div>"
  
  if i>=pagesizes then exit do
 rs.movenext
 loop
 rs.close
 set rs = nothing

 NewFile = replace(NewFile,"$ArticleList$",ArticleList)
 NewFile = replace(NewFile,"$PageList$",PageList)
   '******这里取数据略*********

 Folder = "../"
 
 '下页的代码是生成,html页的,创建文件目录
 Set fso = Server.CreateObject("Scripting.FileSystemObject")
 If Not fso.FolderExists(Server.MapPath(Folder)) Then fso.CreateFolder(Server.MapPath(Folder))
 Set fso = Nothing
 '结束
 file2 = Folder&fileName
 call Write2File(server.Mappath(file2),NewFile,"utf-8")'生成html文件
 if page<articleNum then
  Response.Write("生成第类第"&page&"页结束")
  Response.Write("<script>location.href='?page="&page+1&"';</script>")
 else
  Response.Write("生成结束")
 end if
end if
%>

原载: www.auuo.com/article/2008/200812212031226449.htm
版权说明:原创文章欢迎转载,但转载请务必以超链接标明文章原始出处、作者信息和本声明。否则必追究法律责任。

[网站建设] ASP网页分页代码

联系我们

QQ:51193930(Ahoo)
MSN:auuocx@hotmail.com
网址:http://www.auuo.com
地址:慈溪天九商务中心525室
电话:189-0662-0882

我们的优势
拥有优秀的网站设计师与程序工程师,精通各种一流的图形设计软件,如Photoshop、Freehand CorlDraw、Flash、Dreamweaver、Fireworks等等制作网页和平面设计图。以及使用C语言、C#、ASP.NET框架、asp、php等语言为您开发项目,我们为您准备了最专业的技术服务。为您开发的网站精致实用,代码清晰,保证您的网站安全可靠修改方便,最重要的是符合市场需求,并随时为客户解决各种技术问题。

我们正在努力开拓...

baidu

互联网 本网站