asp又一个分页的代码例子

一个分页代码例子

<%''本程序文件名为:Pages.asp%>

<%''包含ADO常量表文件adovbs.inc,可从"\Program Files\Common Files\System\ADO"目录下拷贝%>

<!--#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

%>

<HTML>

<HEAD>

<title>分页示例</title>

<script language=javascript>

//点击"[第一页]"时响应:

function PageFirst()



document.MyForm.CurrentPage.selectedIndex=0;

document.MyForm.CurrentPage.onchange();

}

//点击"[上一页]"时响应:

function PagePrior()



document.MyForm.CurrentPage.selectedIndex--;

document.MyForm.CurrentPage.onchange();

}

//点击"[下一页]"时响应:

function PageNext()



document.MyForm.CurrentPage.selectedIndex++;

document.MyForm.CurrentPage.onchange(); 

}

//点击"[最后一页]"时响应:

function PageLast()



document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1;

document.MyForm.CurrentPage.onchange();

}

//选择"第?页"时响应:

function PageCurrent()

{ //Pages.asp是本程序的文件名

document.MyForm.action='Pages.asp?Page='+(document.MyForm.CurrentPage.selectedIndex+1)

document.MyForm.submit();



</Script>

</HEAD>

<BODY bgcolor="#ffffcc" link="#008000" vlink="#008000" alink="#FF0000"">

<%IF rs.Eof THEN

Response.Write("<font size=2 color=#000080>[数据库中没有记录!]</font>")

ELSE 

''指定当前页码

If Request("CurrentPage")="" Then

rs.AbsolutePage=1

Else

rs.AbsolutePage=CLng(Request("CurrentPage"))

End If

''创建表单MyForm,方法为Get

Response.Write("<form method=Get name=MyForm>") 

Response.Write("<p align=center><font size=2 color=#008000>")

''设置翻页超链接

if rs.PageCount=1 then 

Response.Write("[第一页] [上一页] [下一页] [最后一页] ")

else 

if rs.AbsolutePage=1 then

Response.Write("[第一页] [上一页] ")

Response.Write("[<a href=javascript:PageNext()>下一页</a>] ") 

Response.Write("[<a href=javascript:PageLast()>最后一页</a>] ") 

else 

if rs.AbsolutePage=rs.PageCount then

Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ") 

Response.Write("[<a href=javascript:PagePrior()>上一页</a>] ") 

Response.Write("[下一页] [最后一页] ")

else

Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ") 

Response.Write("[<a href=javascript:PagePrior()>上一页</a>] ") 

Response.Write("[<a href=javascript:PageNext()>下一页</a>] ") 

Response.Write("[<a href=javascript:PageLast()>最后一页</a>] ") 

end if

end if

end if

''创建下拉列表框,用于选择浏览页码

Response.Write("第<select size=1 name=CurrentPage onchange=PageCurrent()>") 

For i=1 to rs.PageCount 

if rs.AbsolutePage=i then

Response.Write("<option selected>"&i&"</option>") ''当前页码

else

Response.Write("<option>"&i&"</option>")

end if 

Next 

Response.Write("</select>页/共"&rs.PageCount&"页 共"&rs.RecordCount&"条记录</font><p>") 

Response.Write("</form>")

''创建表格,用于显示

Response.Write("<table align=center cellspacing=1 cellpadding=1 border=1") 

Response.Write(" bordercolor=#99CCFF bordercolordark=#b0e0e6 bordercolorlight=#000066>")

Response.Write("<tr bgcolor=#ccccff bordercolor=#000066>")

Set Columns=rs.Fields

''显示表头

For i=0 to Columns.Count-1

Response.Write("<td align=center width=200 height=13>")

Response.Write("<font size=2><b>"&Columns(i).name&"</b></font></td>") 

Next

Response.Write("</tr>")

''显示内容

For i=1 to rs.PageSize 

Response.Write("<tr bgcolor=#99ccff bordercolor=#000066>") 

For j=0 to Columns.Count-1 

Response.Write("<td><font size=2>"&Columns(j)&"</font></td>") 

Next

Response.Write("</tr>")

rs.movenext 

if rs.EOF then exit for 

Next

Response.Write("</table>")

END IF

%>

</BODY>

</HTML>

时间: 2024-10-28 03:51:37

asp又一个分页的代码例子的相关文章

asp又一个分页的代码例子_应用技巧

一个分页代码例子 <%''本程序文件名为:Pages.asp%> <%''包含ADO常量表文件adovbs.inc,可从"\Program Files\Common Files\System\ADO"目录下拷贝%> <!--#Include File="adovbs.inc"--> <%''*建立数据库连接,这里是Oracle8.05数据库 Set conn=Server.CreateObject("ADODB.C

一款asp.net GridView 分页实例代码

一款asp教程.net gridview 分页实例代码 本款gridview 分页实例,他从数据库教程到分页sql全部有,只要你按照本实例来做,完全可以实例asp.net教程 gridview 分页功能.*/ create procedure [dbo].[sp_systemquotationrevisionpaging] ( @clientid nvarchar(255), @clientmodel nvarchar(255),  @collection nvarchar(255), @sta

asp.net url分页类代码_实用技巧

复制代码 代码如下: using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.HtmlControls; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; usi

一个分页存储过程代码_MsSql

复制代码 代码如下: ------------------------------------ --用途:分页存储过程(对有主键的表效率极高) --说明: ------------------------------------ ALTER PROCEDURE [UP_GetRecordByPage] @tblName varchar(255), -- 表名 @fldName varchar(255), -- 主键字段名 @PageSize int = 10, -- 页尺寸 @PageIndex

一个分页存储过程代码

复制代码 代码如下:------------------------------------ --用途:分页存储过程(对有主键的表效率极高) --说明: ------------------------------------ ALTER PROCEDURE [UP_GetRecordByPage] @tblName varchar(255), -- 表名 @fldName varchar(255), -- 主键字段名 @PageSize int = 10, -- 页尺寸 @PageIndex

ASP应用范例-分页_代码部分

<% dim Conn,RS,sqlStr,PageSize,RowCount,TotalPages,PageNo,Position,PageBegin,PageEnd set Conn= Server.CreateObject("ADODB.Connection") set RS = Server.CreateObject("ADODB.RecordSet") Conn.open "provider=sqloledb;data source=127

asp.net PagedDataSource分页实现代码

   private void databind(ilist<loginlog> datasource,int count)     {         pageddatasource pds = new pageddatasource();         pds.datasource = datasource;         pds.allowpaging = true;         pds.pagesize = 10;         pds.currentpageindex =

asp.net中使用自定义控件的方式实现一个分页控件的代码_实用技巧

一.概述 在web开发中,常常需要显示一些数据,而为了方便排版及浏览,我们只需要显示所有记录中的一部分.一般情况下,我们采用分页来实现这个需求.实现分页的方法多种多样,在本文中,我们采用了一个分页空间来记录记录总数.当前页.总页数及页面大小等.为了有一个直观上的印象,先展示该控件运行后的效果,效果如下图所示: 二.实现方案 为了实现该效果图,在asp.net中,可以使用Custom Controls and User Controls两种方式,User Controls的实现方式及其简单,而且使

jquery插件-jquery.bootgrid插件如何实现数据的分页显示,求一个简单地小例子~~

问题描述 jquery.bootgrid插件如何实现数据的分页显示,求一个简单地小例子~~ 感觉它是一个非常不错的数据分页显示框架,希望能够学会,可是在网上没有查到类似的资料,大家有用过的吗? 解决方案 http://www.jquery-bootgrid.com/Examples 解决方案二: 这个我看过了,但是代码不全,有部分不知道怎么写