ITPub博客

首页 > 应用开发 > IT综合 > ASP分页技术源码 (转)

ASP分页技术源码 (转)

原创 IT综合 作者:worldblog 时间:2007-12-12 13:00:57 0 删除 编辑
ASP分页技术源码 (转)[@more@]<%''本程序文件名为:Pages.ASP%>
<%''包含ADO常量表文件adovbs.inc,可从"Program FilesCommon FilesSystemADO"目录下拷贝%>
<!--#Include File="adovbs.inc"-->
<%''*建立数据库连接,这里是ORACLE8.05数据库
 Set conn=Server.Createobject("ADOdb.Connection")  
 conn.Open "Provider=msdaora.1;Data source=YourSrcName;User ID=YourUserID;Password=YourPassword;"  

 Set rs=Server.CreateObject("ADODB.Recordset")   ''创建Recordset对象
 rs.CursorLocation=adUseClient                   ''设定记录集指针属性
 ''*设定一页内的记录总数,可根据需要进行调整
 rs.PageSize=10                                    
 
 ''*设置查询语句    
 Strsql="select ID,姓名,住址,电话 from 通讯录 Order By ID"        
 rs.Open StrSQL,conn,adOpenStatic,adLockReadOnly,adCmdText
%>


分页示例



 
<%IF rs.Eof THEN
   Response.Write("[数据库中没有记录!]")
 ELSE  
   ''指定当前页码
   If Request("CurrentPage")="" Then
     rs.AbsolutePage=1
   Else
     rs.AbsolutePage=CLng(Request("CurrentPage"))
   End If  
   
   ''创建表单MyForm,方法为Get
   Response.Write("RM method=Get name=MyForm>")  
   Response.Write("

")
   ''设置翻页超链接
   if rs.PageCount=1 then  
     Response.Write("[第一页] [上一页] [下一页] [最后一页] ")
   else
       if rs.AbsolutePage=1 then
         Response.Write("[第一页] [上一页] ")
         Response.Write("[Javascript:PageNext()>下一页] ")
         Response.Write("[最后一页] ")
       else
           if rs.AbsolutePage=rs.PageCount then
             Response.Write("[第一页] ")
             Response.Write("[上一页] ")
             Response.Write("[下一页] [最后一页] ")
           else
               Response.Write("[第一页] ")
               Response.Write("[上一页] ")
               Response.Write("[下一页] ")
               Response.Write("[最后一页] ")
           end if
       end if
   end if
   
   ''创建下拉列表框,用于选择浏览页码
   Response.Write("第页/共"&rs.PageCount&"页 共"&rs.RecordCount&"条记录

")
   Response.Write("")
   
   ''创建表格,用于显示
   Response.Write("

   Response.Write(" bordercolor=#99CCFF bordercolordark=#b0e0e6 bordercolorlight=#000066>")
   
   Response.Write("")
     
   Set Columns=rs.Fields
   
   ''显示表头
   For i=0 to Columns.Count-1
     Response.Write("")  
   Next
   Response.Write("")
   ''显示内容
   For i=1 to rs.PageSize
     Response.Write("")
     For j=0 to Columns.Count-1
       Response.Write("")
     Next
     Response.Write("")
     
     rs.movenext
     if rs.EOF then exit for
   Next
   
   Response.Write("
")
     Response.Write(""&Columns(i).name&"
"&Columns(j)&"
")

 END IF
%>


<%
 ''===程序在win2000Server+IIS5.0+Oracle8.05下测试通过===
 ''===作者:夏春涛        E-Mail:bluesky_521@yeah.NET===
%>

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-991987/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2410525