开发学院WEB开发ASP 用err.raise自定义错误信息 阅读

用err.raise自定义错误信息

 2001-02-16 10:16:14 来源:WEB开发网   
核心提示:我想大多数的人在编写asp程序的时候,都碰到过类似的错误信息: Error Number -> -2147467259 Error Source -> Microsoft OLE DB PRovider for ODBC Drivers Error Desc -> [Microsoft][ODBC D
我想大多数的人在编写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

这样子看上去是舒服多了,我觉得总比原先的好。
要注意的是定义错误号的时候不能跟系统原先已经定义的错误号重复,所以这里加上了一个常数。

Tags:err raise 定义

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接