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
版权说明:原创文章欢迎转载,但转载请务必以超链接标明文章原始出处、作者信息和本声明。否则必追究法律责任。
联系我们
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等语言为您开发项目,我们为您准备了最专业的技术服务。为您开发的网站精致实用,代码清晰,保证您的网站安全可靠修改方便,最重要的是符合市场需求,并随时为客户解决各种技术问题。
我们正在努力开拓...