<%
dim db,connstr
db="#hrr.mdb"
set conn = server.CreateObject("ADODB.Connection")
connstr="DBQ="&server.mappath(db)&";DRIVER={Microsoft Access Driver (*.mdb)};"
conn.Open connstr
%>
<%
dim db1,connstr1
db1="####################hrr.mdb"
set conn1 = server.CreateObject("ADODB.Connection")
connstr1="DBQ="&server.mappath(db1)&";DRIVER={Microsoft Access Driver (*.mdb)};"
conn1.Open connstr1
%>
把这两段代码,放到一个页面,然后再把数据库名字改一下,就可以打开两个数据库了,,就可以对两个数据库进行操作。