当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用err.raise自定义错误信息

ASP
ASP下经常用的字符串等函数参考资料
asp下连接数据库 ASP链接数据库字符串大全总结
asp内置对象 ObjectContext 事务管理 详解
asp 内置对象 Application 详解
ASP中 SQL语句 使用方法
ASP 中 Split 函数的实例分析
ASP 中 DateDiff 函数详解 主要实现两日期加减操作
asp 存贮过程 (SQL版asp调用存储过程)
利用ASP实现在线生成电话图片效果脚本附演示
使用ASP记录在线用户的数量的代码
关于ASP生成伪参数技巧 简洁实用的伪(僞)参数
asp 关键词字符串分割如何实现方法
用ASP编写的加密和解密类
ASP之处理用Javascript动态添加的表单元素数据的代码
asp下最常用的19个基本技巧
一些Asp技巧和实用解决方法
asp实现一个统计当前在线用户的解决方案
asp下的一个很简单的验证码程序
asp又一个分页的代码例子
asp实现防止从外部提交数据的三种方法

ASP 中的 用err.raise自定义错误信息


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 115 ::
收藏到网摘: n/a

  我想大多数的人在编写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

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