在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>技术论坛>ASP>F0007704 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入

论坛首页
|--web开发
   |--ASP
   |--JSP
   |--ASP.net
   |--DHTML
   |--RUBY
|--软件开发
   |--C++
      |--Code here
   |--JAVA
   |--VB
   |--Delphi
   |--XML
|--.net技术
   |--C#
   |--VB.net
|--Yup开发组
|--站务&投诉
   |--站长专区
|--硬件&网络
|--休息室
|--数据库技术
 进入精华区 我要发言



 发起“绝活献论坛,大家共进步,少走弯路”活动——分页经典back to ASP forum  
作者:flyfish,5级分数:0
日期:2002/7/9 15:55:00类别:ASP, 技术问题
回复:6次浏览:1425次
状态:无分贴

<%
分页子程序,只要传入已打开的记录集,指定当前页
Sub ShowOnePage( rs, Page )
  Response.Write "<CENTER><TABLE BORDER=1>"
  Response.Write "<TR BGCOLOR=#00FFFF>"
  Response.WRITE "<TD>序号</TD>"
  For i=0 to rs.Fields.Count-1
    Response.WRITE "<TD>" & rs.Fields(i).Name & "</TD>"
  Next
  Response.Write "</TR>"

  rs.AbsolutePage = Page
  For iPage = 1 To rs.PageSize
    Response.Write "<TR>"
    RecNo = (Page - 1) * rs.PageSize + iPage
    Response.Write "<TD>" & RecNo & "</TD>"
    For i=0 to rs.Fields.Count-1
        Response.WRITE "<TD>" & rs.Fields(i).Value & "</TD>"
    Next
    Response.Write "</TR>"
    rs.MoveNext
    If rs.EOF Then Exit For
  Next
  Response.Write "</TABLE></CENTER>" 
End Sub
%>
<%
Myself = Request.ServerVariables("PATH_INFO")
'打开本页记录集
  Set rs = .....
%>

<HTML>
<BODY bgcolor="#FFFFFF">
<H2 ALIGN=CENTER>分页浏览<HR></H2>

<%
  rs.PageSize = 10  '每页10行,也可在页面中加入一个text文本框,由用户输入rs.PageSize=Request("域名")
  Page = CLng(Request("Page"))
  If Page < 1 Then Page = 1
  If Page > rs.PageCount Then Page = rs.PageCount
  ShowOnePage rs, Page
%>

<DIV ALIGN=right><P><HR>
<FORM Action=<%=Myself%> Method=GET>

<%If Page <> 1 Then ' 如果不是位于第一页%>
    <A HREF=<%=Myself%>?Page=1>第一页</A>
    <A HREF=<%=Myself%>?Page=<%=(Page-1)%>>上一页</A>
<%End If
  If Page <> rs.PageCount Then ' 如果不是位于最后一页
%>
  <A HREF=<%=Myself%>?Page=<%=(Page+1)%>>下一页</A>
  <A HREF=<%=Myself%>?Page=<%=rs.PageCount%>>最后一页</A>
<%End If%>

输入页次:<INPUT TYPE=TEXT Name=Page SIZE=3>
页次:<FONT COLOR="Red"><%=Page%>/<%=rs.PageCount%></FONT>
</FORM>
</P></DIV>
</BODY>
</HTML>

reply[F0007704]
 



 
 re [1] 发起“绝活献论坛,大家共进步,少走弯路”活动——分页经典ASP forum  
- [gst_xyz]02-07-09 16:03  

让我们都行动起来吧!
板主,还不奖励奖励flyfish。
拿点行动吧,把你们的菜单源码(不要拖泥带水)献出来

reply[F0007706]
 



 
 re [2] 发起“绝活献论坛,大家共进步,少走弯路”活动——分页经典ASP forum  
- [gst_guest]02-07-09 16:07  

太好了,有此好事,我以后经常来,Thanks,My Dear flyfish!

reply[F0007708]
 



 
 re [2] 发起“绝活献论坛,大家共进步,少走弯路”活动——分页经典ASP forum  
- miles02-07-10 00:36  

什么叫“菜单源码”?上面的js?用IE另存就有了,注释很详细哦。

reply[F0007745]
 



 
 re [2] 发起“绝活献论坛,大家共进步,少走弯路”活动——分页经典ASP forum  
- miles02-07-10 00:42  

对了,是在http://www.dynamicdrive.com下的。

reply[F0007748]
 



 
 re [2] 发起“绝活献论坛,大家共进步,少走弯路”活动——分页经典ASP forum  
- miles02-07-10 00:42  

对了,是在http://www.dynamicdrive.com下的。

reply[F0007749]
 



 
 re [1] 发起“绝活献论坛,大家共进步,少走弯路”活动——分页经典ASP forum  
- miles02-07-10 00:37  

不错哦!放到精华区先。。。

reply[F0007746]
 



您的位置
  (c)2000-2019 Yup Studio, all rights reserved.  
474.6094