asp分页加编辑

最新推荐文章于 2013-11-01 17:17:31 发布
最新推荐文章于 2013-11-01 17:17:31 发布
阅读量151 收藏
点赞数
分类专栏： ASP功能实现 文章标签： asp javascript function 数据库 oracle border
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/hanxcloveyou/article/details/1639064
版权

<%''本程序文件名为：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 οnchange=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("< lect>页/共"&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>
<%
''===程序在Win2000Server+IIS5.0+Oracle8.05下测试通过===
''===作者：夏春涛 E-mail:bluesky_521@yeah.net===
%>

 

hanxcloveyou
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
asp 分页代码
孤剑之家
12-17 2319
使用asp作东西已经比较多了，但是一直没有注意这个东西，今天就花了一点时间写了一些，方便以后使用。 Dim rsTotal,rsPageSize,rsPageCount If NOT ISObject(objRs) Then Exit Sub:End If If NOT IsNumeric(rsPageSize) Then Exit Sub:End IF If objRs.Eof And objR
ASP.NET MVC分页控件
01-01
1、下载MvcPager.dll文件并引用到MVC项目中 2、在控制器中引用命名空间using Webdiyer.WebControls.Mvc; 3、获取数据集合,数据的总记录数(数据集合有多少条数据),设置每页记录数多少(每页显示多少条数据),获取当前...
asp分页显示的源代码
11-30
从书上看到的程序，自己整理了一番，供大家分享！
ASP分页技术源码
Bluesky Blog
11-27 2104
 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")  
asp分页显示源代码
热门推荐
===小虫===
05-23 1万+
分页显示 <% sql="select * from SbaseInfo" rs.Open sql, conn, 1 page=1 设置变量page=1 rs.PageSize = 3 每页显示3个记录 if Not IsEmpty(Request("Page")) then 如果请求相应页数据
ASP分页技术源码 (转)
csd3176的博客
12-12 155
ASP分页技术源码 (转)[@more@]程序文件名为：Pages.ASP%><!--#Include File="adovbs.inc"--&gt数据库连接，这里是ORACLE8.05数据库Set con...
asp中kindeditor实现文章分页代码
10-14
asp中kindeditor实现文章分页代码,针对新手asp不知道如果调用，编辑器修改已经打包，附赠:前端调用文章详细也分页源码
asp.net中gridview的查询、分页、编辑更新、删除的实例代码
10-27
asp.net中gridview的查询、分页、编辑更新、删除的实例代码，需要的朋友可以参考一下
asp.net使用FCK编辑器中的分页符实现长文章分页功能
01-21
本文实例讲述了asp.net使用FCK编辑器中的分页符实现长文章分页功能。分享给大家供大家参考，具体如下： <%@ Page Language=C# AutoEventWireup=true CodeFile=SplitContent.aspx.cs Inherits=SplitContent %...
asp.net下Repeater使用 AspNetPager分页控件
01-21
一、AspNetPager分页控件 分页是Web应用程序中最常用到的功能之一，在ASP.NET中，虽然自带了一个可以分页的DataGrid（asp.net 1.1）和GridView（asp.net 2.0）控件，但其分页功能并不尽如人意，如可定制性差、无法...
很好用的asp分页源代码
12-30
如果你对asp分页还有什么不明白，或是不会用的话，请下载这个东西试一下，保证你会马上实现并学会asp分页的。
经典的asp分页代码
12-15
asp access 分页代码，代码已经进行封装，简单易调用！
js实现ASP分页函数 HTML分页函数
12-07
代码如下:<!– //ASP分页函数 function ShowListPage(page,Pcount,TopicNum,maxperpage,strLink,ListName){     var alertcolor = ‘#FF0000’;     maxperpage=Math.floor(maxperpage);     TopicNum=Math.floor(TopicNum);     page=Math.floor(page);     var n,p;     if ((page-1)==0) {         p=(page-1) /10     }else{   
ASP漂亮分页
08-20
ASP分页方法.简单易用
asp 分页显示代码第一种
05-15
我已经在网站上使用。其中的数据库代码，你得重新改一下，还有路径也得修改。
最简单的ASP分页代码
我在哈佛念过佛、我在牛津放过牛、我在剑桥建过桥、我在麻省理工理过发。- 程序员之家
12-21 1339
原帖及讨论：http://bbs.bc-cn.net/dispbbs.asp?BoardID=10&ID=90981set conn=server.createobject("adodb.connection")conn.open("DRIVER=Driver do Microsoft ACCESS (*.mdb);UID=admin;pwd=;dbq="&server.mappath("1.
asp分页代码
jahn的专栏
09-24 562
page=request.querystring("page")  page值为接受值 rs.PageSize = 20 每页显示记录数if Not IsEmpty(trim(Request("Page"))) then 如果PAGE已经初始化... Page = CInt(Request("Page")) 接收PAGE并化为数字型赋给PAGE变量        if Page > rs.
asp 简单分页代码
void_1987的专栏
11-01 551
<% set rs=server.createobject("adodb.recordset") exce="sql" 'sql 查询语句 rs.open exce,conn,1,1 %> 然后是分页属性的设置 <% rs.PageSize=3 ‘设置页码 pagecount=rs.PageCount '获取总页码 page=int(request("page")) '接收页码
asp)创建ASP. NET程序，使用SqlDataSource控件连接到数据库，使用GridView控件显示某张表中的数据记录，要求提供排序、分页、编辑和删除功能，并且在删除时要有确认提示。
最新发布
06-01
好的，我会尽力回答你的问题。...这样，您就可以创建一个带有排序、分页、编辑和删除功能的ASP.NET程序，使用SqlDataSource控件连接到数据库，使用GridView控件显示表中的数据记录。希望这可以回答您的问题！

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值