两个不同数据库表的分页显示解决方案

程序实现功能:两个数据表的数据分页显示

最近我遇到一个比较少见的需求,不知大家是否也有遇到过,说出来与大家分享.

客户需求:两部分数据,分别来自不同位置的两个数据库中的两个表,定义为数据库DB1和DB2,表Table1和Tabel2,要将这两个表数据分别在页面的上半部分和下半部分显示,并且用同一个分页码,如第一部分数据不够,将用第二部分数据填补

'/*代码*/

<%

Set objConn1=Server.CreateObject("ADODB.Recordset")
Set objConn2=Server.CreateObject("ADODB.Recordset")
objConn1.Open "PROVIDER=SQLOLEDB;DATA SOURCE=localhost;UID=sa;PWD=123;DATABASE=DB1"
objConn2.Open "PROVIDER=SQLOLEDB;DATA SOURCE=localhost;UID=sa;PWD=123;DATABASE=DB2"

Page=CLng(Request.QueryString("Page"))
if page="" then
page=1
end if
StrSQL1="select * from Table1 order by ID desc"
StrSQL2="select * from Table2 order by ID desc"

record_count1=Clng(objConn1.execute(StrSQL1)(0)) '得到第一个表的记录数
record_count2=Clng(objConn2.execute(StrSQL2)(0))'得到第二个表的记录数
record_count=record_count1+record_count2 '得到两个表的记录数和

If record_count>0 Then

page_size1=5 '默认第一个表部分数据的每页显示数
page_size2=5 '默认第二个表部分数据的每页显示数

page_count1=CInt(record_count1/page_size1)
If (record_count1 Mod page_size1)<(page_size1/2) Then page_count1=page_count1+1 '得到第一部分数据的页数
page_count2=CInt(record_count2/page_size2)
If (record_count2 Mod page_size2)<(page_size2/2) Then page_count2=page_count2+1'得到第二部分数据的页数

if Cint(page_count2)=cint(page) then '假设第二部分数据一定少,这里断定是否当前页是少的那分数据的最后一页

thepageRecordcount=record_count2-(page-1)*5 '第二部分数据的最后一页的数据显示条数
page_size1=10-cint(thepageRecordcount) '第一部分数据在第二部分最后页的显示条数 '
page_size1=cint(thepageRecordcount) '得到第一部分在本页的显示条数
elseif cint(page)>cint(page_count2) then '这之后将全是第一部分数据

page_size1=10
page_size2=0

end if

page_count=CInt(record_count/(page_size1+page_size2) '全部两类一起的分页数
If (record_count Mod (page_size1+page_size2))<((page_size1+page_size2)/2) Then page_count=page_count+1

If Page < 1 Then
Page = 1
End If
If Page > page_count Then
Page = page_count
End If

Dim Pagefrom,Pageto
Pagefrom=page-10
Pageto=page+10

if Pagefrom<1 then
Pagefrom=1
end if
if Pageto>record_count then
Pageto=page_count
end if

End If

If Page<=1 Then '第一页显示查询
StrSQL1="Select Top "&page_size1&" * From Table1 "
StrSQL1=StrSQL1&" Order By ID desc"
StrSQl2="Select Top "&page_size1&" * From Table2 "
StrSQL2=StrSQL2&" order by id desc"

Else '第N页显示查询
StrSQL1="Select Top "&(Page-1)*page_size1&" ID From Table1 "
StrSQL1=StrSQL1&" Order By id Desc"
StrSQL1="SELECT Top 1 ID From ("&StrSQL1&") DERIVEDTBL Order By id "
'Response.Write(SQL)
id =Trim(objConn1.execute(StrSQL1)(0))
StrSQL1="Select Top "&page_size1&" * From Table1"
StrSQL1=StrSQL1&" where id<'"&id&"'"
StrSQL1=StrSQL1&" Order By id Desc"

StrSQL2="Select Top "&(Page-1)*page_size2&" id From Table2 "
StrSQL2=StrSQL2&" Order By id Desc"
StrSQL2="SELECT Top 1 id From ("&StrSQL2&") DERIVEDTBL Order By id "
id =Trim(objconn2.execute(StrSQL2)(0))

StrSQL2="Select Top "&page_size2&" * From Table2 "
StrSQL2=StrSQL2&" where id<'"&id &"'"
StrSQL2=StrSQL2&" Order By id Desc"

End If

%>

<%
If record_count>0 Then

%>
<%
Set Rs1=Server.CreateObject("Adodb.Recordset")
rs1.open StrSQL1,objconn1
For n = 1 To page_size1
If rs1.Eof Then Exit For
%>
<!--显示的第一部分内容循环-->
<%
rs1.MoveNext
If rs1.EOF Then Exit For
Next
rs1.close
set rs1=nothing
%>
<%
Set Rs2=Server.CreateObject("Adodb.Recordset")
rs2.open StrSQL2,objconn2
For n = 1 To page_size2
If rs2.Eof Then Exit For
%>
<!--显示的第二部分内容循环-->
<%
rs2.MoveNext
If rs2.EOF Then Exit For
Next
rs2.close
set rs2=nothing
%>

<!--结果页码-->
<%if page<>"1" then%><a href=?page=<%=Cint(page-1)%>>上一页</a> <%end if%>
<% '用for循环来写出页数连接
For i=Pagefrom to Pageto
if i=0 then
i=1
end if

if i<>Cint(page) then
strurl="<a href=?page="&i&"><font color=#000000>"&i&"</font></a>"

else
strurl="<b><font color=#ce0031>"&i&"</font></b>"
end if

response.write strurl
response.write " "
next
%>
<%if page_count =1 or (page_count-Cint(page))=0 then
response.Write("")
else
response.Write "<a href=?page="&Cint(page+1)&">下一页</a>"
end if
%>
<!--结果页码-->

'/*代码结束*/

本人水平有限,程序粗糙,可能有不足之处~望批评指正~

时间: 2024-09-12 06:12:26

两个不同数据库表的分页显示解决方案的相关文章

ADO 存取数据库时如何分页显示

ado|分页|数据|数据库|显示     什么是 ADO 存取数据库时的分页显示?如果你使用过目前众多网站上的电子公告板程序的话,那你应该会知道电子公告板程序为了提高页面的读取速度,一般不会将所有的帖子全部在一页中罗列出来,而是将其分成多页显示,每页显示一定数目的帖子数,譬如 20 条.想不想了解如何实现分页显示?请看本文!     <动态网站设计十八般武艺 --ASP 篇>一文从第一期至今已和朋友们一起度过了大半个年头,相信通过在这一段时间中的学习.实践到再学习.再实践,大家已经能够熟练运用

ASP教程:ADO存取数据库时如何分页显示

ado|分页|教程|数据|数据库|显示      什么是 ADO 存取数据库时的分页显示?如果你使用过目前众多网站上的电子公告板程序的话,那你应该会知道电子公告板程序为了提高页面的读取速度,一般不会将所有的帖子全部在一页中罗列出来,而是将其分成多页显示,每页显示一定数目的帖子数,譬如 20 条.这就是数据库查询的分页显示,如果你还不明白,去看看 yahoo 等搜索引擎的查询结果就会明白了.       那么究竟如何才能做到将数据库的查询结果分页显示呢?其实方法有很多,但主要有两种: 一.将数据库

第十七篇 ADO存取数据库时如何分页显示

什么是 ADO 存取数据库时的分页显示?如果你使用过目前众多网站上的电子公告板程序的话,那你应该会知道电子公告板程序为了提高页面的读取速度,一般不会将所有的帖子全部在一页中罗列出来,而是将其分成多页显示,每页显示一定数目的帖子数,譬如 20 条.想不想了解如何实现分页显示?请看本文! <动态网站设计十八般武艺 --ASP 篇>一文从第一期至今已和朋友们一起度过了大半个年头,相信通过在这一段时间中的学习.实践到再学习.再实践,大家已经能够熟练运用 ASP 的内建对象. ActiveX 组件去编写

第十七课:ADO 存取数据库时如何分页显示

什么是 ADO 存取数据库时的分页显示?如果你使用过目前众多网站上的电子公告板程序的话,那你应该会知道电子公告板程序为了提高页面的读取速度,一般不会将所有的帖子全部在一页中罗列出来,而是将其分成多页显示,每页显示一定数目的帖子数,譬如 20 条.想不想了解如何实现分页显示?请看本文! <动态网站设计十八般武艺 --ASP 篇>一文从第一期至今已和朋友们一起度过了大半个年头,相信通过在这一段时间中的学习.实践到再学习.再实践,大家已经能够熟练运用 ASP 的内建对象. ActiveX 组件去编写

ASP教程:第十七篇 ADO 存取数据库时如何分页显示

什么是 ADO 存取数据库时的分页显示?如果你使用过目前众多网站上的电子公告板程序的话,那你应该会知道电子公告板程序为了提高页面的读取速度,一般不会将所有的帖子全部在一页中罗列出来,而是将其分成多页显示,每页显示一定数目的帖子数,譬如 20 条.想不想了解如何实现分页显示?请看本文! <动态网站设计十八般武艺 --ASP 篇>一文从第一期至今已和朋友们一起度过了大半个年头,相信通过在这一段时间中的学习.实践到再学习.再实践,大家已经能够熟练运用 ASP 的内建对象. ActiveX 组件去编写

ADO 存取数据库时的分页显示详

ado|分页|数据|数据库|显示 什么是 ADO 存取数据库时的分页显示?如果你使用过目前众多网站上的电 子公告板程序的话,那你应该会知道电子公告板程序为了提高页面的读取速度, 一般不会将所有的帖子全部在一页中罗列出来,而是将其分成多页显示,每页 显示一定数目的帖子数,譬如 20 条.想不想了解如何实现分页显示?请看 本文! 那么究竟如何才能做到将数据库的查询结果分页显示呢?其实方法有很多, 但主要有两种: 一.将数据库中所有符合查询条件的记录一次性的都读入 recordset 中, 存放在内存

ADO存取数据库时如何分页显示

<动态网站设计十八般武艺 --ASP 篇>一文从第一期至今已和朋友们一起度过了大半个年头,相信通过在这一段时间中的学习.实践到再学习.再实践,大家已经能够熟练运用 ASP 的内建对象. ActiveX 组件去编写一些基本的 ASP 应用程序.从我收到的朋友们的来信中可以明显的感觉到,大家的 ASP 功力正不断地提升.最近很多朋友来信希望我写一些 ASP 在现实运用中的实例.因此,从本期开始我决定将<动态网站设计十八般武艺 --ASP 篇>的定位从介绍和学习 ASP 基础知识转向到

java-名称值对的数据库表的分页该如何实现?

问题描述 名称值对的数据库表的分页该如何实现? 各位看官好,小弟我最近做了一个项目,因为项目的特殊性(类似于saas)其中某些表的数据结构允许用户自己修改新增,比如一个工资表,某些用户他要自定义一个社保金的字段,而有的用户可能要自定义一个公积金的字段,这样的话数据库表的字段就必须是开放性的,目前有两种方式实现,一种是预留字段的方式,也就是给预留一定数量的字段,用户自己定义那些字段对于自己的含义.另外一种就是名称值对的方式,类似图1 我觉得名称值对的方式比较好,那样灵活性高,而且节省空间不会浪费,

ADO存取数据库时如何分页显示_应用技巧

究竟如何才能做到将数据库的查询结果分页显示呢?其实方法有很多,但主要有两种: 一.将数据库中所有符合查询条件的记录一次性的都读入 recordset 中,存放在内存中,然后通过 ADO Recordset 对象所提供的几个专门支持分页处理的属性: PageSize( 页大小 ). PageCount( 页数目 ) 以及 AbsolutePage( 绝对页 ) 来管理分页处理. 二.根据客户的指示,每次分别从符合查询条件的记录中将规定数目的记录数读取出来并显示. 两者的主要差别在于前者是一次性将所