<%
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
%>
欢迎光临密云县政府采购中心网站
