<%
dim conn 
dim connstr
on error resume next
connstr="DBQ="+server.mappath("baojia_admin/bai4_baojia_db.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr 
%>