日期:2014-05-17 浏览次数:20452 次
?<%
db="/comwebaccess_db/ac#db1107.mdb"
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.Open connstr
if err then
err.clear
Set conn = Nothing
Response.Write ("<html><head>")& vbcrlf
Response.Write ("<meta http-equiv=""Content-Type"" content=""text/html; charset=UTF-8"" />")& vbcrlf
Response.Write ("<title>程序出错!</title>")& vbcrlf
Response.Write ("</head>")& vbcrlf
Response.Write ("<body><div>数据库连接错误!</div></body></html>")
Response.End
end If
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.
More information about this error may be available in the server error log.