两数据库在同一页面的无缝输出

实例说明：
公司有新旧两部分产品分别以不同形式存在两个数据库中，由于两数据表的结构上有较大差异，不便于两数据库（表）的合并。
本例在不改动数据库（表）的情况下，实现在同一页面的无缝输出。
代码如下，没做太多的注释
file name simple.asp
<%
dim Page
dim NeedPage '存放需求页码数
dim NeedRecord '存放需求记录数
dim NextPage '翻页标志变量
dim PageSize
NextPage=False
PageSize=15
%>

<%
page=request.querystring("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
%>

<%
Call GetData(Page)
Call FillData(NeedPage,NeedRecord)
%>



<%
Function GetData(Page)
Dim LPRCount '存放数据集分页后最后一页的记录数
Dim i '循环记数器
'从MAD.mdb中获取数据集
Set conn1=Server.CreateObject("adodb.connection")
Set rs1=Server.CreateObject("adodb.recordset")
conn1.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("DData1.mdb")
sql1="select * from DTable1"
rs1.open sql1,conn1,1,1
If rs1.EOF or rs1.BOF Then
NeedPage=1
NeedRecord=PageSize
Else
rs1.PageSize=PageSize
'记录集页码数大于需求页码
If rs1.PageCount>Page Then
rs1.AbsolutePage=Page
i=0
Do While Not rs1.EOF And (i Call DataOutput("Detail1",rs1("id"),rs1("Field1"),rs1("Field2"),rs1("Field3"))

相关文章

• 王者荣耀侦探能力大测试攻略 王者荣耀侦探能力大测试怎么过 11-22
• 无期迷途主线前瞻兑换码是什么 11-22
• 原神欧洛伦怎么培养 11-22
• 炉石传说网易云音乐联动怎么玩 11-22
• 永劫无间手游确幸转盘怎么样 11-22
• 无期迷途主线前瞻兑换码是什么 无期迷途主线前瞻直播兑换码介绍 11-22