ASP编程常用的分页代码
作者:fdd10669 发布时间:2007-09-11 13:57:00
标签:分页,asp
<%MaxPerPage=8 ’定义页面最大的记录数为8<br>
if not isempty(request("page")) then <br>
currentPage=cint(request("page")) ’currentpage我们作为当前页面的变量,获得当前页的数值<br>
else<br>
currentPage=1 ’如果为空就设为1<br>
end if<br>
sql="select * from article order by id desc" ’sql语句,查询article表中的所有数据<br>
Set rs= Server.CreateObject("ADODB.Recordset") <br>
rs.open sql,conn,1,1 ’执行sql语句<br>
if rs.eof and rs.bof then <br>
response.write "<p align=’center’> 还 没 有 任 何 文 章</p>" <br>
else <br>
totalPut=rs.recordcount ’把查询到文章总数的值付给totalput变量(设置第一页)<br>
if currentpage<1 then ’如果小于1<br>
currentpage=1 <br>
end if <br>
if (currentpage-1)*MaxPerPage>totalput then ’设置最后一页,如果有溢出,计算页值<br>
if (totalPut mod MaxPerPage)=0 then <br>
currentpage= totalPut \ MaxPerPage <br>
else <br>
currentpage= totalPut \ MaxPerPage + 1 <br>
end if <br>
end if<br>
if currentPage=1 then ’如果是第一页<br>
showpage totalput,MaxPerPage,"index.asp" ’执行showpage函数,显示分页<br>
showContent ’执行showContent函数,显示内容<br>
showpage totalput,MaxPerPage,"index.asp" ’执行showpage函数,显示分页<br>
else ’如果不是<br>
if (currentPage-1)*MaxPerPage<totalPut then ’当前页*页面最大的记录数是否大于实际总记录数<br>
rs.move (currentPage-1)*MaxPerPage ’把记录指针移到当前页的开头<br>
dim bookmark <br>
bookmark=rs.bookmark <br>
showpage totalput,MaxPerPage,"index.asp" <br>
showContent <br>
showpage totalput,MaxPerPage,"index.asp" <br>
else <br>
currentPage=1 <br>
showpage totalput,MaxPerPage,"index.asp" <br>
showContent <br>
showpage totalput,MaxPerPage,"index.asp" <br>
end if <br>
end if <br>
rs.close <br>
end if <br>
set rs=nothing <br>
%></p>
<p><%function showpage(totalnumber,maxperpage,filename) <br>
<br>
dim n <br>
if totalnumber mod maxperpage=0 then <br>
n= totalnumber \ maxperpage <br>
else <br>
n= totalnumber \ maxperpage+1 <br>
end if <br>
response.write "<form method=Post action="&filename&"?typeid="&typeid&">" <br>
response.write "<p align=’center’>>>分页 " <br>
if CurrentPage<2 then <br>
response.write "<font color=’999966’>首页 上一页</font> " <br>
else <br>
response.write "<a href="&filename&"?typeid="&typeid&"&page=1&>首页</a> " <br>
response.write "<a
href="&filename&"?typeid="&typeid&"&page="&CurrentPage-1&">上一页</a> " <br>
end if <br>
if n-currentpage<1 then <br>
response.write "<font color=’999966’>下一页 尾页</font>" <br>
else <br>
response.write "<a href="&filename&"?typeid="&typeid&"&page="&(CurrentPage+1)
<br>
response.write ">下一页</a> <a
href="&filename&"?typeid="&typeid&"&page="&n&">尾页</a>" <br>
end if <br>
response.write " 页次:<strong><font
color=red>"&CurrentPage&"</font>/"&n&"</strong>页 " <br>
response.write " 共<b>"&totalnumber&"</b>个flash<b>"&maxperpage&"</b>个软件/页 "
<br>
response.write " 转到:<input type=’text’ name=’page’ size=4 maxlength=10
class=smallInput value="¤tpage&">" <br>
response.write "<input class=buttonface type=’submit’ value=’ 确定 ’
name=’cndok’></span></p></form>" <br>
end function %></p>
0
投稿
猜你喜欢
- 1:mysql是我们使用最多的数据库,如果在日常中正确的对mysql数据进行备份,下面我们就来做这事,通过脚本来实现############
- 图片缩放会失真是真理,在浏览器里也一样,貌似使用传说中的双三次插值可以让失真看起来比较不明显,但是真的想不通IE7已经实现了,却不默认打开,
- [前言:]ASP.NET是微软提供的最新的开发基于Web的应用程序的技术。它提供了大量的比传统ASP脚本技术的好处,包括:1)通过把UI表现
- 1.游标方式 代码如下:DECLARE @Data NVARCHAR(max) SET @Data='1,tanw,2,
- 利用XMLHTTP无刷新自动实时更新数据,2秒自动刷新一次,2秒取得一次数据.demo.htm 前台显示<script la
- BrowserPlus 到底是什么,又能做什么?BrowserPlus 是 Yahoo! 最近刚发布一个 Web 扩展的平台:终端用户需安装
- 1.用CSS实现布局让我们一起来做一个页面,首先,我们需要一个布局。请使用CSS控制3个div,实现如下图的布局。考察应试者的基本布局知识—
- 如何做一个密码“生成器”?randompassword.asp<% Dim i, intNum,&nbs
- 一般我们是利用Session对象来防止通过“刷新”增加计数器的访问量的,看看下面的做法;<%If IsEmpty(Sessi
- 全局变量是魔鬼。在YUI中,我们仅用两个全局变量:YAHOO和YAHOO_config。YUI的一切都是使用YAHOO对象级的成员或这个成员
- insert into(列名) select 列名 from 表名 where 条件 --不创建表,只复制表数据 select 列名 int
- 欣赏上一篇:用画为5.12地震受灾同胞们祈福 今年我们的祖国多灾多难 雪灾的阴影还没散去又发生了地震。中国插画 * 举办5.12地震祈幅绘画活
- 在按钮旁边加文字1.打开editor/js/ 两个js文件fckeditorcode_gecko.js fckeditorcode_ie.j
- 要实现的SQL查询很原始:要求从第一个表进行查询得到第二个表格式的数据,上网查询之后竟然能写出下面的SQL:代码如下:select * fr
- 很早之前就在PJ的blog上看到可以用VS2005调试ASP程序,但是没有写出具体的步骤,后来一次偶尔也让我找到了方法,但是一直没把它写出来
- CSS 和 JavaScript 的压缩已经很成熟,各大网站都在使用。HTML 的压缩(特指去除空白字符和注释),除了 Google 等搜索
- ASP访问数据库的方式有哪些?在ASP中可以通过三种方式访问数据库:1、IDC(Internet Database Connec
- PJBLOG3的相关日志,现在网上好像还没有谁有相关的修改说明吧,反正升级之后,正好有必要,也就写了个,在这里也给大家共享共享。当前相关日志
- 这篇论坛文章(赛迪网技术社区)根据网友的个人实践扼要的讲解了将MySQL 5.0下的数据导入到MySQL 3.23中的具体方法及步骤,详细内
- (1)OracleServiceSID 数据库服务,这个服务会自动地启动和停止数据库。如果安装了一个数据库,它的缺省启动类型为自动。服务进程