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

<%
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

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