<%
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
%>



把这两段代码，放到一个页面，然后再把数据库名字改一下，就可以打开两个数据库了，，就可以对两个数据库进行操作。