我想大多數(shù)的人在編寫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
%>

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

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