写两个不同的CONN连接字符串
<%
DB="data/#dsfdgdtytgge323.woirlkj19790108.mdb"
DBa="data/#dsfdgdtytgge323.woirlkj19790108_sell.mdb"
Response.Buffer=True
session.timeout=20
on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(server.MapPath("include"))=false then
DB="../"&DB
DBa="../"&DBa
end if
set fso=nothing
set conn=server.createobject("adodb.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
conn.Open connstr
set conna=server.createobject("adodb.Connection")
connstra="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBa)
conna.Open connstra
copycolor="#A9A9A9"
%>
