简单的ASP生成HTML并分页程序
发布时间:2009-07-20 12:32:00
<%
If(Request.QueryString("Page")="") Then
Page=1
Else
Page=Request.QueryString("Page")
End If
title="新闻资讯"
sql="Select id,title From news order by id desc"
set rs = server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
If(rs.eof) Then
strList="没有内容"
Else
Rs.pagesize=2
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 & "<A href='"&Rs(0)&".html'>"&Rs(1)&"</a><br>"
Rs.movenext
Next
If(Int(Page)=1) Then
PageFirst="[首页"
Else
PageFirst="[<a href=""Index.html"">首页</a>"
End If
If(Int(Page)=1)Then
PageBack=" 上一页 "
Else
if (Int(Page)-1)=1 then
PageBack=" <a href=""Index.html"">上一页</a> "
else
PageBack=" <a href=""Index_"&Page-1&".html"">上一页</a> "
end if
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=2 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="<html><title>$newtitle$</title><head></head><body><table border=0 width=700 align=center><tr><td width=100>$newtitle$</td><td>$newlist$<div align=center>$newpage$</div></td></tr></table>"
'TempContent=Conn.Execute("Select TempContent From Templet Where TempID=1")(0)
TempContent=replace(TempContent,"$newtitle$",title)
TempContent=replace(TempContent,"$newlist$",strList)
TempContent=replace(TempContent,"$newpage$",PageNav)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
if Page=1 then
Set Fout = FSO.CreateTextFile(Server.MapPath("../html/news/Index.html"))
else
Set Fout = FSO.CreateTextFile(Server.MapPath("../html/news/Index_"&Page&".html"))
end if
Fout.Write TempContent
Fout.Close
%>
<%If(Int(Page)<Int(TotalPage))Then%>
<html>
<head><title>完成</title>
<meta http-equiv="refresh" content="0;url=crefile.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%>
猜你喜欢
- 这篇文章主要介绍下如何创建并调用函数。print():是打印放入对象的函数 len():是返回对象长度的函数 input():是让用户输入对
- 如何在php中判断一个网页请求是ajax请求还是普通请求?你可以通过传递参数的方法来实现,例如使用如下网址请求:/path/to/pkphp
- 这个我早就改好了一直没有放上来.现在发给大家用用注意这几个变量它们影响到提示框的效果代码:var rT=true;//允许图像过渡
- 0x01 OpenCV安装 通过命令pip install opencv-python 安装pip install opencv-
- Pygame的mixer 模块可以依据命令播放一个或多个声音,并且也可以将这些声音混合在一起。而获得声音需要四个步骤:一、启动mixer进程
- 这篇文章主要介绍了python实现简单日志记录库glog的使用,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,
- 平方根,又叫二次方根,表示为〔√ ̄〕,如:数学语言为:√ ̄16=4。语言描述为:根号下16=4。以下实例为通过用户输入一个数字,并计算这个数
- 解决办法1. 卸载重装,不设root密码,因为MySql默认密码为空。 解决办法2. 保持现在的密码,打开“MySQL Command Li
- 前言: 收到疯狂的慢查询及请求超时报警,通过metrics分析出来自mysql请求的异常,c
- 先给大家说下我的项目需求:用户扫一扫二维码会产生一个链接,该链接会向后端发送个请求,返回一个 apk 的下载地址,用户点击下载按钮可以下载此
- 地图这期文章我们一起来看看地图是如何绘制的,如何在地图里面添加数据进行多维度的展示,下面我们一起来感受一下地图的魅力吧!&ldquo
- 使用sqlplus连接Oracle首先以下操作均需要在oracle用户下执行,注意短横线 (su - oracle)推荐方式1.sqlplu
- 1.爬虫是什么所谓爬虫,就是按照一定的规则,自动的从网络中抓取信息的程序或者脚本。万维网就像一个巨大的蜘蛛网,我们的爬虫就是上面的一个蜘蛛,
- 一、协程设计-GMP模型线程是操作系统调度到CPU中执行的基本单位,多线程总是交替式地抢占CPU的时间片,线程在上下文的切换过程中需要经过操
- 说明define function,calculate the input parameters and return the result
- 微软在12月22日早上发布新的安全通告证实,一处远程执行代码漏洞影响到了整个SQL Server产品线。该漏洞的入侵代码在两周前已经被公布在
- 参考其他比较专业的博客系统,都在代码块上有一个复制代码的按钮。用来快速复制整个代码块的代码。于是我也想给我的博客增加一个这个功能。注:chr
- 提叻一个代码段,要人帮助解释一下。 代码段如下: declare type t_indexby is table of number ind
- Request Payload 和 Form Data 请求头上的参数差别在于:Content-TypeForm DataPost表单请求代
- 与Channel区别Channel能够很好的帮助我们控制并发,但是在开发习惯上与显示的表达不太相同,所以在Go语言中可以利用sync包中的W