用err.raise自定義錯誤信息

我想大多數的人在編寫ASP程序的時候，都碰到過類似的錯誤信息：
   Error Number -> -2147467259
   Error Source -> Microsoft OLE DB PRovider for ODBC Drivers
   Error Desc -> [Microsoft][ODBC Driver Manager] Data source name not found and no default driver

可時間上，這個錯誤信息對我們並不怎麼有用，或者說錯誤信息不怎麼友好，讓我們換種處理方式看看。

<%
    Option Explicit
    On Error Resume Next

    Dim Conn
    Set Conn = Server.CreateObject("ADODB.Connection")

    '這個DSN實際上不存在，所以返回錯誤信息
    Conn.Open "foo"

   If Err.Number <> 0 then
     Err.Clear
     Err.Raise vbObjectError + 7, _
               "etest.ASP", "Connection Open Method Failed"
   End If
   If err.Number <> 0 then   
     Response.Write("Error On line    -> " & Err.Number - vbObjectError)
     Response.write("<BR>Error Source -> " & Err.Source)
     Response.Write("<BR>Error Desc   -> " & Err.Description)
     Err.Clear
   End If
%>

這樣，我們就自己定義了錯誤信息，有興趣的朋友可以試試
下面是該錯誤信息的輸出結果：
Error On line -> 7
Error Source -> etest.ASP
Error Desc -> Connection Open Method Failed

這樣子看上去是舒服多了，我覺得總比原先的好。
要注意的是定義錯誤號的時候不能跟系統原先已經定義的錯誤號重復，所以這裡加上了一個常數。