您的位置:首页技术开发ASP技巧 → 两个不同数据库表的分页显示解决方案

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

时间:2004/11/7 4:12:00来源:本站整理作者:蓝点我要评论(0)

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

 

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

 

客户需求:两部分数据,分别来自不同位置的两个数据库中的两个表,定义为数据库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)%>>上一页&nbsp;<%end>
<% '用for循环来写出页数连接
For i=Pagefrom to Pageto
if i=0 then
i=1
end if

 

if i<>Cint(page) then
strurl=""&i&""

 

else
strurl=""&i&""
end if

 

response.write strurl
response.write " "
next
%>
<%if page_count =1 or (page_count-Cint(page))=0 then
response.Write("")
else
response.Write "下一页"
end if
%>

 

'/*代码结束*/

 

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

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 VB.NET 2005编写定时关 Jquery get/post下乱码解决方法 前台gbk gb如何使用数据绑定控件显示数据ASP脚本循环语句ASP怎么提速

人气排行 轻松解决"Server Application Error"和iis"一起学习DataGridView调整列宽用ASP随机生成文件名的函数Jquery get/post下乱码解决方法 前台gbk gbODBC Drivers错误80004005的解决办法返回UPDATE SQL语句所影响的行数的方法用Javascript隐藏超级链接的真实地址两个不同数据库表的分页显示解决方案