1栏分页显示(附显示的形式[1][2])

2016-01-29 17:34 10 1 收藏

1栏分页显示(附显示的形式[1][2]),1栏分页显示(附显示的形式[1][2])

【 tulaoshi.com - ASP 】

  显示形式:
ID NAME
1 JULIET
2 SPIRIT
3 GIRL
4 BOY
[1] [2] [3] [4] 页数:1/4 页 4条/页 总记录数:13条
代码:
<!--page4.asp--
<!--#include file="conn.asp"--
<html
<body bgcolor="#FFFFFF" text="#000000"
<table width="60%" border="1" align="center"
<%
dim rs
dim sql
msg_per_page = 4 '定义每页显示记录条数
set rs = server.createobject("adodb.recordset")
sql = "select * from page order by id" '改成你自己的SQL语句
rs.cursorlocation = 3 '使用客户端游标,可以使效率提高

rs.pagesize = msg_per_page '定义分页记录集每页显示记录数
rs.open sql,conn,0,1

if err.number<0 then '错误处理
response.write "数据库操作失败:" & err.description
err.clear
else
if not (rs.eof and rs.bof) then '检测记录集是否为空
totalrec = RS.RecordCount 'totalrec:总记录条数
if rs.recordcount mod msg_per_page = 0 then '计算总页数,recordcount:数据的总记录数
n = rs.recordcountmsg_per_page 'n:总页数
else
n = rs.recordcountmsg_per_page+1
end if

currentpage = request("page") 'currentpage:当前页
If currentpage < "" then
currentpage = cint(currentpage)
if currentpage < 1 then
currentpage = 1
end if
if err.number < 0 then
err.clear
currentpage = 1
end if
else
currentpage = 1
End if
if currentpage*msg_per_page totalrec and not((currentpage-1)*msg_per_page < totalrec)then
currentPage=1
end if
rs.absolutepage = currentpage 'absolutepage:设置指针指向某页开头
rowcount = rs.pagesize 'pagesize:设置每一页的数据记录数

dim i
dim k
%
<tr align="center" valign="middle"
<td width="50%"ID</td
<td width="50%"name</td
</tr
<%do while not rs.eof and rowcount 0%
<tr align="center" valign="middle"
<td width="25%"<%=rs("id")%</td
<td width="25%"<%=rs("testname")%</td
</tr
<%
rowcount=rowcount-1
rs.MoveNext
loop
end if
end if
rs.close
set rs=nothing
%

</table
<table border="0" align="center"
<tr
<td align="center" valign="middle"
<%call listPages()%
</td
</tr
</table
</body
</html
<%
sub listPages()
if n <= 1 then exit sub
for i=0 to nmsg_per_page-1
for j=1 to msg_per_page
%
<font size="2" color="#006600"
<a href="<%=request.ServerVariables("script_name")%?page=<%=i*msg_per_page+j %"[<% =i*msg_per_page+j %]</a</font
<%
next
next
EndPage = n mod msg_per_page
for j=1 to EndPage
%
<font size="2" color="#006600"
<a href="<%=request.ServerVariables("script_name")%?page=<% =i*msg_per_page+j %"[<% =i*msg_per_page+j %]</a</font
<%next%
<font color=black face="arial"
  Page:<%=currentpage%/<%=n%pages  <%=msg_per_page%notes/page   Total:<%=totalrec%notes</font
<%end sub%


 

来源:http://www.tulaoshi.com/n/20160129/1501977.html

延伸阅读
标签: PHP
  <html<body<table border=1 <? $id=@mssql_connect("ddy","sa"," ") or die("连接不上"); $db=mssql_select_db("ddy",$id); $query="select * from lr00 order by lr0012 desc"; $result=mssql_query($query); if($result): if($tt==""){ $...
标签: PHP
  1、前言 分页显示是一种非常常见的浏览和显示大量数据的方法,属于web编程中最常处理的事件之一。对于web编程的老手来说,编写这种代码实在是和呼吸一样自然,但是对于初学者来说,常常对这个问题摸不着头绪,因此特地撰写此文对这个问题进行详细的讲解,力求让看完这篇文章的朋友在看完以后对于分页显示的原理和实现方法有所了解。本...
标签: ASP
  显示页面show.asp--基于web的QQ程序1(only asp) <html <head <title基于web的QQ程序1</title <meta http-equiv="refresh" content="5"//每五秒取得一次信息(前面已经完成了有关登录之类的工作) <meta http-equiv="Content-Type" content="text/html; charset=gb2312" <...
之所以用VB计算1 1=2,是为把一个从没接触过VB的人带入VB的有趣世界。初步认识一下VB。 不管你能不能看懂这是什么意思,请先照下面说的去做吧(当然是对初学者来说),等学习了后面的教程你就会明白的! 第一步:运行VB(这里以VB5.0中文版为例,下同)。 第二步:新建一个标准EXE工程。运行VB时直接建立或使用“文件”菜单中的“新建工程”。...
标签: PHP
  一个可以文本显示的公告栏,可以在多处使用,绝对不可错过! 脚本说明: 第一步:把如下代码加入<head区域中 <script language="JavaScript" <!-- Activate Cloaking Device var i = 0; // used to cycle thru messages var TextNumber = -1; // array of messages var TextInput = new Object(); // us...

经验教程

679

收藏

97
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部