%
dim conn
dim connstr
on error resume next
db_name="miyun/testnews/db/news2001.mdb" '数据库文件的名字,可以是任何有效名字,可以包含路径,例如db/news.mdb
connstr = "DBQ=" + server.mappath(db_name) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "数据库连接出错111!"
Response.End
else
conn.open connstr
if err then
err.clear
set conn=nothing
response.write "数据库连接出错222!"
Response.End
end if
end if
%>