设为首页
加入收藏
发送稿件
分页显示实例


                                              一个简单的分页程序
<!--#include file="conn.asp"-->
<br><br>
<p ALIGN="CENTER"><font COLOR="red" FACE="华文新魏" SIZE="+3">简单的分页程序</font></p>
<% 
sql="select * from tab1 order by id desc"
rs.Open sql, conn, 1,1

page=1           ' 设置变量PAGE=1
rs.PageSize = 3  '每页显示记录数

if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...
  Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
  if Page > rs.PageCount then '如果接收的页数大于总页数
     rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
     else
     rs.AbsolutePage = Page '显示当前页等于接收的页数
  end if
  else
  Page = 1 '如果page未被初始化则设为1
End if
rs.AbsolutePage=page
%>

<%
i=0
do while not rs.eof
%>
 <table width="600" border="1" ALIGN="CENTER">
 <tr>
    <td><%=rs("id")%></td>
    <td><%=rs("name")%></td>
    <td><%=rs("riqi")%></td>
 </tr>
 <tr>
    <td COLSPAN="3" align="center"><%=rs("content")%></td>
</tr>
</table>
<%
'当显示记录大于maxperpage时结束这页
i=i+1
IF i>=rs.PageSize then exit do
rs.movenext
loop
%> 

<p ALIGN="CENTER">
<%if page>1 then%>
  <a Href="page.asp?Page=<%=1%>">首页</a> <a Href="page.asp?Page=<%=page-1%>">上一页</a>
<%end if %>
<%if page<>rs.pagecount then %>
  <a Href="page.asp?Page=<%=page+1%>">下一页</a> <a Href="page.asp?Page=<% = rs.PageCount%>">尾页</a>
<% end if %>
</p>

 <%
 '最后.关闭记录集释放资源
 rs.close
 Set rs = Nothing
 conn.close
 set conn=nothing
 %>
<p>
<p ALIGN="CENTER"><INPUT onclick=javascript:window.close() type=button value=关闭窗口 name=button></p>

 



oooooooooo家园提示:人自为谱,家自为说,正误自辨,取舍自酌。引用注明作者和出处。 来源:原创
阅读:3701
日期:2004/7/14

查看评论 】 【 收藏 】 【 打印 】 【 关闭 】 【字体: 】 
上一篇:已经没有了。
下一篇:ASP常用函数
  >> 相关文章
 
发表评论


        站长提示:这里不是互动留言处!
点  评: 字数0
用户名:  密码:

  • 尊重网上道德,遵守中华人民共和国的各项有关法律法规
  • 承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • 本站管理人员有权保留或删除其管辖留言中的任意内容
  • 本站有权在网站内转载或引用您的评论
  • 参与本评论即表明您已经阅读并接受上述条款
Copyright (c) 2010-2015 . All Rights Reserved .
家园地址:http://www.luos.org  粤ICP备13039246号-2
家园值班:罗良富   技术支持:罗擎宇罗振寰   法律顾问:罗劲松
地址:重庆市永川区萱花路282号(永红小区17-4-1)  邮编:402160  电话:023-49872234