asp資料庫連接代碼

'本文章提供一款比較完美的asp資料庫連接代碼哦，他不但串連access資料庫同時也包括了資料庫中斷連線代碼函數。
dim conn,rs,sql,dbpath
set conn=server.createobject("adodb.connection")
dbpath="web_data.asp"  '資料庫路徑
call conndate()

sub conndate()
 if err then err.clear
 on error resume next
 conn.open "provider = microsoft.jet.oledb.4.0;data source = " & server.mappath(dbpath)
 if err then
  err.clear
  set conn=nothing
  response.write "<center><font color=red>www.111cn.net提示你抱歉，資料庫連接錯誤。</font></center>"
  response.end
 end if
end sub

sub closeconn()
    on error resume next
    if isobject(conn) then
        conn.close
        set conn = nothing
    end if
    if err then err.clear
end sub
%>