一个简单的ASP生成HTML分页程序
发布时间：2009-07-05 18:32:00
<!--#include file="Include/Conn.asp"-->
<％
If(Request.QueryString("Page")="") Then
Page=1
Else
Page=Request.QueryString("Page")
End If
SQL="Select ID,LTitle,LPostTime,LHits From Log_List order By ID DESC"
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open SQL,Conn,1,1
If(Rs.EOF) Then
strList="没有内容"
Else
Rs.pagesize=30
Rs.AbsolutePage=Page
TotalPage=Rs.PageCount
For i=0 To rs.pagesize-1 '显示具体的数据内容了,i+(page*13-13)+1 这个解决分页后显示具体的编号
If Rs.eof Then Exit For
strList = strList & i+(Page*13-13)+1 & ":<A href='"&Rs(0)&".html'>"&Rs(1)&"</a><br>"
Rs.movenext
Next
If(Int(Page)=1) Then
PageFirst="[首页"
Else
PageFirst="[<a href=""Index_1.html"">首页</a>"
End If
If(Int(Page)=1)Then
PageBack=" 上一页 "
Else
PageBack=" <a href=""Index_"&Page-1&".html"">上一页</a> "
End If
If(Int(Page)=TotalPage)Then
PageNext=" 下一页 "
Else
PageNext=" <a href=""Index_"&Page+1&".html"">下一页</a> "
End If
If(Int(Page)=TotalPage)Then
PageLast="尾页]"
Else
PageLast="<a href=""Index_"&TotalPage&".html"">尾页</a>]"
End If
AbsPage="第<select onchange=""window.location='Index_'+this.options[this.selectedIndex].value+'.html'"">"
For j=1 To TotalPage
AbsPage=AbsPage&"<option value="&j
If(Cstr(j)=Cstr(Page))Then
AbsPage=AbsPage&" selected"
End If
AbsPage=AbsPage&">"&j&"</option>"
Next
AbsPage=AbsPage&"</select>页"
PageNav=PageFirst&PageBack&PageNext&PageLast&AbsPage
End If
TempContent=Conn.Execute("Select TempContent From Templet Where TempID=1")(0)
TempContent=replace(TempContent,"$ArticleList$",strList)
TempContent=replace(TempContent,"$PageNav$",PageNav)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Fout = FSO.CreateTextFile(Server.MapPath("Article/Index_"&Page&".html"))
Fout.Write TempContent
Fout.Close
％>
<％If(Int(Page)<Int(TotalPage))Then％>
<html>
<head><title>完成</title>
<meta http-equiv="refresh" content="0;url=CreateHtml_List.asp?Page=<％=Page+1％>">
</head>
<body>
第<font color=red><b><％=Page％></b></font>页生成完毕！
</body>
</html>
<％Else％>
生成文章分类完毕，共生成<font color=red><b><％=TotalPage％></b></font>页
<％End If％>
0
投稿猜你喜欢
今天我和中国著名画家"渔人"谈了一个关于"怎样才能设计好"的问题,他给我说了一句话,得益不浅,那句话- 这篇论坛文章（赛迪网技术社区）根据网友的个人实践扼要的讲解了将MySQL 5.0下的数据导入到MySQL 3.23中的具体方法及步骤，详细内
- 管理SQL Server内在的帐户和密码时，我们很容易认为这一切都相当的安全。但实际上并非如此。在这里，我们列出了一些对于SQL Serve
- 任何一个行业里，当有一头近乎垄断的大象盘踞着的时候，生活在大象身后的蚂蚁们既是悲哀又是幸运的。悲哀的是市场已近乎被大象垄断留给他们的空间已经
- QQ医生在广大用户心中一直以来都是清爽便捷的一款安全工具，随着QQ医生的不断发展，QQ医生团队一直在思考，怎样能够给QQ医生用户带来性能更优
- 1：在终端下：mysql -V。 以下是代码片段：[shengting@login ~]$ mysql -Vmysql Ver 14.7 D
- FileSystemObject、Folder 和 File 对象的一些方法都与通过 TextStream 对象创建、读取或写入文件有关。虽
- 浏览器的出现互联网的出现是人类信息交流方式的一次划时代的革命，在这场革命中有两个技术对互联网的发展起到了决定性的作用：一个技术带来的人类信息
- 如果您刚刚开始接触网页设计，是不是经常发生这样的问题呢？做好的网页在自己机器上可以正常浏览，而把页面传到服务器上就总是出现看不到图片，css
- 本章的前面讨论如何使用SQL向一个表中插入数据。但是，如果你需要向一个表中添加许多条记录，使用SQL语句输入数据是很不方便的。幸运的是，My
- 别人复制你网站的文章时自动加上注释，这个功能你在很多网站应该都有体会过，当我们复制一段内容时，就自动在文章后面加上了网站的一些
- 1.安装时选择的自动安装，忘了用户名和密码导致现在试了几个Oracle默认用户名密码後（表格中附带默认用户名及密码），都提示无效的用户名、密
- 下面是asp代码实现列出sql数据库中存储过程的功能，可自行添加其它功能：< HTML ><
- 阅读Chapter 1 清单Chapter 2 标题总览:不但所有网页都需要有标题,而且如果标记正确的话,他们能为网页设计和易用性
- 经常上网的人一定碰到过找不到页面的情况，此时是否有点让人沮丧呢，本文介绍了一些404页面设计优秀的例子，当我们撞见些好玩可爱的页面时，有时反
- 对于比较长的数字组成的字符串，我们一般会用逗号（,）隔开来格式化数字，从右往左每三个数字用一个逗号分组隔开。为什么要用逗号隔开数字呢？因为当
- 本文主要介绍 SQLServerExpress2008不用第三方工具调试T-SQL语句，经过本文的介绍，用SQLSERVER2008 Man
- 1、开始－＞运行，输入SERVICES.MSC到服务里，停止所有Oracle服务； 2、开始－＞程序－＞Oracle - OraHome81
- <％ Function ReplaceUrl2(HTMLstr) Dim n,st
- 第一章：基本的圆角框第二章：透明圆角化背景图片第三章：圆角化图片 第四章：CSS圆角框组件 V1.0序言：在我的文章《超圆滑圆角框的半完美解
