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

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

相关文章

• 多邻国官网登录入口-Duolingo官方网页版入口 01-18
• 啥都能看的视频神器-资源最全的视频神器 01-18
• 新浪微博网页版手机端-新浪微博手机版网页入口 01-18
• 夸克网页版-夸克浏览器网页版入口 01-18
• 动漫共和国入口_动漫共和国官网与分类导航 01-18
• 绝世唐门漫画完整免费入口在哪?2026最新免费观看地址及平台汇总 01-18