% dim conn,db dim connstr db="#haoge%qq#844833447" on error resume next connstr="DBQ="+server.mappath(""&db;&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") if err then err.clear else con