浏览ORACLE数据库并分页显示

gao 2000-07-25 10:39:00
浏览ORACLE数据库并分页显示
我可以浏览MS SQLSERVER数据库并分页显示，但无法对ORACLE实现该功能，
请提供原代码，多谢！
...全文
241 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
gao 2000-07-26
  • 打赏
  • 举报
 回复
这个问题hblinux和Firing_Sky 讲的很好，
请大家到ASP已解决的问题->：浏览ORACLE数据库并分页显示 ->200分！！！！

华南虎哥 2000-07-26
  • 打赏
  • 举报
 回复
你可以把util.asp文件内容作以下修正：
__________________________________________________
<%
Function OpenOrGet_Database( SessionName )

Dim conn

If Not IsObject(Session(SessionName)) Then
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=msdaora;Data Source=AJGL;User Id=case;Password=why;"
Set Session(SessionName) = conn
End If
Set OpenOrGet_Database = Session(SessionName)
End Function

Function OpenOrGet_RsAndPageSize( conn, sql, SessionName, PageSize )
Dim rs

If Not IsObject(Session(SessionName)) Then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, adOpenStatic
Set Session(SessionName) = rs
rs.PageSize = PageSize
End If
Set OpenOrGet_RsAndPageSize = Session(SessionName)
End Function

Function Open_RsAndPageSize( conn, sql, SessionName, PageSize )
Dim rs

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, adOpenStatic
Set Session(SessionName) = rs
rs.PageSize = PageSize
Set Open_RsAndPageSize = Session(SessionName)
End Function
%>
------------------------------------------------------
至于下面一段HTML代码就删除不要,onepage.asp里除你编的ASP代码要之外，其他也删掉，试试，不行再EMAIL：hblinux@163.net
gao 2000-07-25
  • 打赏
  • 举报
 回复
我的代码？没有成功，请大家指点错在那里
pagebrow.asp
<!--#include file="adovbs.inc" -->
<!--#include file="OnePage.asp" -->
<!--#include file="Util.asp" -->
<%
Set conn = OpenOrGet_Database( session("test_conn"))
If Request("Page") = "" Then
Set rs = Open_RsAndPageSize( conn, "select * from CASE_XS_1", session("test_rs"), 10 )
Else
Set rs = OpenOrGet_RsAndPageSize( conn, "select * from CASE_XS_1", session("test_rs"), 10 )
End If

Page = CLng(Request("Page")) ' CLng 不可省略
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>分段浏览数据库的技巧</title>
</head>

<body>

<h2 align="center">PageBrow.asp - 分段浏览数据库的技巧</h2>

<hr align="center">
<%
ShowOnePage rs, Page
%>

<hr align="center">

<form action="PageBrow.asp" method="GET">
<%
If Page <> 1 Then
Response.Write "<A HREF=PageBrow.asp?Page=1>第一页</A>"
Response.Write "<A HREF=PageBrow.asp?Page=" & (Page-1) & ">上一页</A>"
End If
If Page <> rs.PageCount Then
Response.Write "<A HREF=PageBrow.asp?Page=" & (Page+1) & ">下一页</A>"
Response.Write "<A HREF=PageBrow.asp?Page=" & rs.PageCount & ">最后一页</A>"
End If
%>
</form>

<p>输入页数:<input type="text" size="3" name="Page"> 页数：<font color="#FF0000"><%=Page%>/<%=rs.PageCount%></font>
</p>

<p>　</p>
</body>
</html>



onepage.asp

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title></title>
</head>

<body>
<%

Sub ShowOnePage( rs, Page )

Response.Write "<CENTER><TABLE BORDER=1>"
Response.Write "<TR BGCOLOR=#00FFFF>"
Response.WRITE "<TD>bh</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

%>
</body>
</html>





util.asp
<%
Function OpenOrGet_Database( SessionName )

Dim conn

If Not IsObject(Session(SessionName)) Then
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "AJGL","case","why"
Set Session(SessionName) = conn
End If
Set OpenOrGet_Database = Session(SessionName)
End Function

Function OpenOrGet_RsAndPageSize( conn, sql, SessionName, PageSize )
Dim rs

If Not IsObject(Session(SessionName)) Then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, adOpenStatic
Set Session(SessionName) = rs
rs.PageSize = PageSize
End If
Set OpenOrGet_RsAndPageSize = Session(SessionName)
End Function

Function Open_RsAndPageSize( conn, sql, SessionName, PageSize )
Dim rs

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, adOpenStatic
Set Session(SessionName) = rs
rs.PageSize = PageSize
Set Open_RsAndPageSize = Session(SessionName)
End Function
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title></title>
</head>

<body>
</body>
</html>


zigzag 2000-07-25
  • 打赏
  • 举报
 回复
对于分页显示，那种数据库都是一样的方式，不知道你是不是连不上数据库。
用ADO连接，注意连接串的书写。你可以用ODBC方式，先建立你ORACLE数据库的ODBC，然后ADO连接串这样写：
"DSN=yourODBCname;UID=yourUserID;PWD=yourpassword;"
如果直接用Microsoft OLE DB Provider for Oracle,可以这样写：
"Provider=MSDAORA;Data Source=yourDataSource;User Id=yourUserID;PASSWORD=;DATABASE=yourDatabase".

请贴出你的代码！
netsong 2000-07-25
  • 打赏
  • 举报
 回复
原则上，用odbc可连任何数据库（只需该数据库型的引擎，但效率会减低），原程序模式不用改变。
你用什么方法实现分页？
liuliushuang 2000-07-25
  • 打赏
  • 举报
 回复
你的代码 ？
使用Oracle数据库时的Web分页方法
在WEB应用中，我们经常遇到需要从数据库搜索出满足某个特征的数据记录，再显示给特定用户。常常这些满足条件的记录如此之多，一方面在同一个页面显示显得异常臃肿而不切实际，另一方面用户通常也不会对他们都感兴趣，他们似乎更关心按一定规则排序出现在某些开始位置的若干记录。这就要求我们对满足条件的数据进行分页，将用户更关心的记录放在首页，同时给予是否继续浏览（或跳跃式阅读）到指定页甚至最后一页的自由。本文将和大家讨论一下使用ORACLE数据库时的WEB分页方法。
avaWeb servlet通过jdbc对oracle数据库的增删改查，日历控件分页查询，登陆MD5实现加密处理
1:本系统为servlet，jdbc，oracle实现的数据库增删改查处理； 功能包含有分页查询，jquery日历控件； 简单的登陆处理页面； 数据库存数据时，密码采用MD5 32位小写加密保存 注：ie浏览器下能够正常显示样式，其他浏览器有问题 登陆用户名：100100076 密码：888888 readme文件内含建表语句和插入数据。适合web开发人员查看哦。
oracle数据库技术教程
Oracle Database，又名Oracle RDBMS，或简称Oracle。是甲骨文公司的一款关系数据库管理系统。它是在数据库领域一直处于领先地位的产品。可以说Oracle数据库系统是目前世界上流行的关系数据库管理系统，系统可移植性好、使用方便、功能强，适用于各类大、中、小、微机环境。它是一种高效率、可靠性好的 适应高吞吐量的数据库解决方案。 在本课程讲解之中会提供有相应的练习习题以及综合案例分析，帮助读者迅速掌握Oracle数据库的核心开发技能。
.NET 通用分页控件
AspNetPager7.2分页控件及Demo源码 分页是Web应用程序中最常用到的功能之一，在ASP.NET中，虽然自带了一个可以分页的DataGrid（asp.net 1.1）和GridView（asp.net 2.0）控件，但其分页功能并不尽如人意，如可定制性差、无法通过Url实现分页功能等，而且有时候我们需要对DataList和Repeater甚至自定义数据绑定控件进行分页，手工编写分页代码不但技术难度大、任务繁琐而且代码重用率极低，因此分页已成为许多ASP.NET程序员最头疼的问题之一。 AspNetPager针对ASP.NET分页控件的不足，提出了与众不同的解决asp.net中分页问题的方案，即将分页导航功能与数据显示功能完全独立开来，由用户自己控制数据的获取及显示方式，因此可以被灵活地应用于任何需要实现分页导航功能的地方，如为GridView、DataList以及Repeater等数据绑定控件实现分页、呈现自定义的分页数据以及制作图片浏览程序等，因为AspNetPager控件和数据是独立的，因此要分页的数据可以来自任何数据源，如SQL Server、Oracle、Access、mysql、DB2等数据库以及XML文件、内存数据或缓存中的数据、文件系统等等。
漂亮好用的分页控件源码
支持长文章分页/Access/Sql2000/Oracle/MySql/DB2/存储过程/支持不产生ViewState/图片分页/URL重写/Xml 样式自己用CSS定,可以随意改!对于Web2.0 页面构架师来说,追求代码完美,也许这是你最好的选择~,本控件支持不产生ViewState 对于SEO优化来说AJAX分页及局部刷新分页,在百度,Google等搜索引擎收录来说十分不利,因为搜索引擎都是靠URL来记录的。 1、在工具栏选择项然后浏览控件DevPage Vs2005 Release 1.0 控件目录 2、修改WebConfig里的Sql2000 数据库连接帐号密码
ASP

28,390

社区成员

357,068

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章