<%
Option Explicit
Dim Conn
Dim strSQL
Set Conn = Server.CreateObject("ADODB.Connection")
‘’this DSN does not exist
Conn.Open "foo"
‘’...
If you run the above script (without having a DSN named foo created) you‘’ll get the following error:
Microsoft OLE DB Provider for ODBC Drivers error ‘’80004005‘’
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
/dmsms/etest.asp, line 6
Fine, I can deal with that. While the error message is anything but pretty or profoundly descriptive, I do know that I need to fix something that‘’s wrong on line 6 of the script. So I‘’ll load it into the editor, fix it and then try running it again. If needed I‘’ll repeat this cycle until I have a script that works.
Now consider a script like this one that has Error checking turned on:
<%
Option Explicit
On Error Resume Next
Dim Conn
Dim strSQL
Set Conn = Server.CreateObject("ADODB.Connection")
‘’this DSN does not exist
Conn.Open "foo"
‘’... more code ...
If Err.Number <> 0 then
Response.Write("Error Number -> " & Err.Number)
Response.write("<BR>Error Source -> " & Err.Source)
Response.Write("<BR>Error Desc -> " & Err.Description)
Err.Clear
End If
%>
Viewing the above script through your browser will produce the following output:
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 specified
To me this information is less useful than the default error message. At least with the default error message I know the line on which the error originated. Recently I was having yet another look at the Err object and I stumbled upon something that I‘’ve overlooked many times in the past. You can raise your own errors!
The Err object contains a Raise method that does exactly this. The Raise method has the following syntax:
object.Raise(number, source, description, helpfile, helpcontext)
The technical docs for the Raise method can be seen here. A quick note: when raising a custom error, the error number should be a custom error number plus the constant vbObjectError, to make sure that the error number you choose doesn‘’t equal an already predefined error number (we‘’ll see an example of this in the code below).
An example of using the Raise object to generate our own custom error (with a more descriptive message and the line number) can be seen below:
1: <%
2: Option Explicit
3: On Error Resume Next
4:
5: Dim Conn
6: Set Conn = Server.CreateObject("ADODB.Connection")
7:
8: ‘’this DSN does not exist
9: Conn.Open "foo"
10:
11: If Err.Number <> 0 then
12: Err.Clear
13: Err.Raise vbObjectError + 7, _
14: "etest.asp", "Connection Open Method Failed"
15: End If
16: If err.Number <> 0 then
17: Response.Write("Error On line -> " & Err.Number - vbObjectError)
18: Response.write("<BR>Error Source -> " & Err.Source)
19: Response.Write("<BR>Error Desc -> " & Err.Description)
20: Err.Clear
21: End If
22: %>
Here‘’s the output from this latest version. Notice that it provides the line number the error occurred on, the page the error occurred on, and a readable and descriptive error message. (Do understand that the reason we know the line number the error occurred on it because we hardcoded the error number (the first parameter) in the Raise method as vbObjectError plus the line number where we think the error might have occurred.)
Error On line -> 7
Error Source -> etest.asp
Error Desc -> Connection Open Method Failed
文章来源于领测软件测试网 https://www.ltesting.net/
