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

实例说明：
公司有新旧两部分产品分别以不同形式存在两个数据库中，由于两数据表的结构上有较大差异，不便于两数据库（表）的合并。
本例在不改动数据库（表）的情况下，实现在同一页面的无缝输出。
代码如下，没做太多的注释
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"))

相关文章

• boss智能门锁如何设置密码 04-29
• 王者荣耀世界橘右京厉害吗 04-29
• 《青云劫攻略天赋技能，成就无敌仙侠》（解锁潜能，掌握绝学，成就仙侠传奇） 04-29
• 桃源深处有人家藏经室悟证一至七日通关答案 04-29
• 怎么击败《Saros》中的“破碎崛起”先知 Boss 04-29
• 宫小攻略技能推荐2023（玩转宫小，轻松游戏攻略指南） 04-29