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

2016-01-29 17:34 5 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%


 

来源:https://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" <...
标签: PHP
  1、前言 分页显示是一种非常常见的浏览和显示大量数据的方法,属于web编程中最常处理的事件之一。对于web编程的老手来说,编写这种代码实在是和呼吸一样自然,但是对于初学者来说,常常对这个问题摸不着头绪,因此特地撰写此文对这个问题进行详细的讲解,力求让看完这篇文章的朋友在看完以后对于分页显示的原理和实现方法有...
标签: autocad教程
在cad中 只Tulaoshi.Com要输入命令z 在输入1,1就是比例值1:1(但这个值不是视屏比例值) 可用尺量出视屏值,在用所画尺寸除以量出尺寸值, (命令:Z在输入所算出的值)就等于1:1 不信用尺量量视屏, 其实这是在工作的时候很有用的,因为有直观的效果. 把视屏放大,不信用尺量量这个图(试)

经验教程

911

收藏

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