<% dim strconn,conn
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("aaa/aaa.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
If Err Then
err.Clear
Set conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
%>
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024