[求助]超级简单的问题 急,盼,谢
如何连接access的数据库谢谢
<% on error resume next dim conn dim dbpath set conn=server.createobject("adodb.connection") DBPath = Server.MapPath("data/*.mdb") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath 'conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath if err then response.write "「终结动漫网」系统升级中,暂时无法与数据库建立连接,请稍后再试…" response.end end if
function CloseDatabase set rs = nothing conn.close set conn = nothing end function