Question

ASP+access数据库地址修改

我有多个ACCESS数据库，请问如何在不修改ASP地址的情况下，任意切换数据库
<%
dim conn
dim connstr

on error resume next
connstr="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
if err then
err.clear
end if
end if
%>

只修改 data.mdb

Answer 1

在后台把data.mdb设置成可定义的变量dm就可以任意切换数据库了
dim conn
dim connstr
Const Sitedm="data.mdb"
connstr="DBQ="+server.mappath(Sitedm)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"