<% 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