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

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