28,391
社区成员
发帖
与我相关
我的任务
分享
db="数据库"
connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果您的服务器采用较老版本Access驱动,请用下面连接方法
‘connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
Set conn=server.createobject("ADODB.CONNECTION")
ON ERROR RESUME NEXT
if err.number<>0 then
err.clear
set conn=nothing
response.write "数据库连接出错!"
Response.End
else
conn.open connstr
if err then
err.clear
set conn=nothing
response.write("数据库连接出错!")
Response.End()
end if
end if