page=request("page")
if page<>"" then
p_absolutepage=cint(page)
else
p_absolutepage=1
end if
sql="select * from [date]"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
p_pagesize=2
rs.pagesize=p_pagesize
rs.absolutepage=p_absolutepage
p_pagecount=rs.pagecount
if p_pagecount=0 then p_pagecount=1
p_recordcount=rs.recordcount
<div align="right">
<%if p_absolutepage<2 then%>
<span class="page" title="第一页">第一页</span>
<span class="page" title="上一页">上一页</span>
<%else%>
<a href="<%=filename%>?page=1"><span class="page" title="第一页">第一页</span></a>
<a href="<%=filename%>?page=<%=p_absolutepage-1%>"><span class="page" title="上一页">上一页</span></a>
<%end if%>
<%if p_pagecount-p_absolutepage<1 then%>
<span class="page" title="下一页">下一页</span> <span class="page" title="最后一页">最后一页</span>
<%else%>
<a href="<%=filename%>?page=<%=p_absolutepage+1%>">
<span class="page" title="下一页">下一页</span></a>
<a href="<%=filename%>?page=<%=p_pagecount%>">
<span class="page" title="最后一页">最后一页</span></a>
<%end if%>
页次:<%=p_absolutepage%>/<%=p_pagecount%>页][共<%=p_recordcount%>条][<%=p_pagesize%>条/页]
</div>
asp中实用分页程序代码
时间: 2024-12-02 12:59:05
asp中实用分页程序代码的相关文章
ASP中实用的广告交替组件
广告 ASP中实用的广告交替组件2000-06-14· wodeail·CPCW 你是不是经常在网上看到一些公司的广告,并且他们能不停的变换各种广告内容,这就是运用ASP中的广告交替组件,使用广告交替组件交替广告图标可以更好的发布你的广告和服务的推广,更容易使别人接受你的广告,并能简单地实现交替显示图象. (一).广告交替组件的使用方法和具体属性: 1).GetAdvertisement方法 在这里Server.CreateObject方法用于广告交替的例子:Set ad=Server.Crea
asp万用分页程序代码_应用技巧
这只是个asp小技巧类的东西,它虽然适合在每个不同文件名里调用这个函数,但是也是有前提的,下面让我们来仔细看看其中的原委. 下面这段是基本的分页代码: <% sql = "select--------省略了sql语句 Set rs=Server.Createobject("ADODB.RECORDSET") rs.Open sql, conn, 1, 1 if not rs.eof then pages = 30 '定义每页显示的记录数 rs.pageSize = pa
asp万用分页程序代码
这只是个asp小技巧类的东西,它虽然适合在每个不同文件名里调用这个函数,但是也是有前提的,下面让我们来仔细看看其中的原委. 下面这段是基本的分页代码: <% sql = "select--------省略了sql语句 Set rs=Server.Createobject("ADODB.RECORDSET") rs.Open sql, conn, 1, 1 if not rs.eof then pages = 30 '定义每页显示的记录数 rs.pageSize = pa
ASP.NET自定义分页程序代码
一.自定义分页类 PagerHelper 代码如下 复制代码 public class PagerHelper { private int _pageSize = 10; /// <summary> /// 每页默认10条数 /// </summary> public int pageSize { get { if (_pageSize < 1) _pageSize = 1; return _pageSize; } set
ASP中各种数据库连接代码
数据|数据库|数据库连接 各种数据库连接代码 今天呆着没事干,把各种数据库的连接总结了一下,现拿出来与大家分享: MS Access数据库连接 用DSN连接并且没有用户名和密码: <%set conn = Server.CreateObject("ADODB.Connection")conn.open "YourDSNName"%> 用DSN连接并且有用户名和密码: <%set conn = Server.CreateObject("AD
如何在ASP中实现PING (To Tracy)
如何在ASP中实现PING 使用WSH调用系统的Ping命令,将Ping的结果重定向到一个文本文件中去,再把文本文件显示到网页中 具体做法如下:首先, 建一个.BAT文件(例如:myPing.BAT:),这个文件要在ASP中调用,文件代码如下:ping -a %1 > d:\INetPub\cgi-bin\%2.txt (%1)是将来要ping的地址, (%2)是存储ping结果的文件. 以下是ASP的代码: <%Set FileSys = Server.CreateObject("
如何在ASP中实现PING
如何在ASP中实现PING 使用WSH调用系统的Ping命令,将Ping的结果重定向到一个文本文件中去,再把文本文件显示到网页中 具体做法如下: 首先, 建一个.BAT文件(例如:myPing.BAT:),这个文件要在ASP中调用,文件代码如下: ping -a %1 > d:\INetPub\cgi-bin\%2.txt (%1)是将来要ping的地址, (%2)是存储ping结果的文件. 以下是ASP的代码: < % Set FileSys = Server.CreateObject(&q
解决asp中uft8和gb2312转换乱码问题
ASP程序在同一个站点中,如果有UTF-8编码的程序,又有GB2312编码的程序时,在浏览UTF-8编码的页面后,再浏览当前网站GB2312的页面,GB2312编码的页面就会出现乱码 - 出现这样的问题是当你浏览UTF-8编码的时候,服务器默认用UTF-8的引擎来输出html,当你用再浏览GB2312的页面时,它还是用UTF-8来输出本应是GB2312编码的页面所以会乱码. 为了这个问题烦了我一个早上,终于的蓝色理想上得到解决. 首先让我们来了解一下Session对象提供了四个属性. 1.Cod
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法 页面编码声明_应用技巧
出现这样的问题是当你浏览UTF-8编码的时候,服务器默认用UTF-8的引擎来输出html,当你用再浏览GB2312的页面时,它还是用UTF-8来输出本应是GB2312编码的页面所以会乱码. 为了这个问题烦了我一个早上,终于的蓝色理想上得到解决. 首先让我们来了解一下Session对象提供了四个属性. 1.CodePage 读/写.整型. 定义用于在浏览器中显示页内容的代码页(Code Page).代码页是字符集的数字值,不同的语言和场所可能使用不同的代码页.例如,ANSI代码页 1252用于美国