我想大多數(shù)的人在編寫(xiě)ASP程序的時(shí)候，都碰到過(guò)類(lèi)似的錯(cuò)誤信息：
   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

可時(shí)間上，這個(gè)錯(cuò)誤信息對(duì)我們并不怎么有用，或者說(shuō)錯(cuò)誤信息不怎么友好，讓我們換種處理方式看看。

<%
    Option Explicit
    On Error Resume Next

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

    '這個(gè)DSN實(shí)際上不存在，所以返回錯(cuò)誤信息
    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
%>

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

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