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

ASP
asp实现取得数组中的最大值的代码
asp 将日期格式化为需要的格式
asp 下产生任意位数随机密码的代码
asp下返回以千分位显示数字格式化的数值
asp重定向页面的方法总结
asp下去除数组中重复的项的方法
asp下实现 重新排序数字数组的代码
asp 验证输入网址是否有效并可以访问 与正则验证输入网址
asp验证Ip格式的函数
asp实现生成由数字,大写字母,小写字母指定位数的随机数
asp 格式化sql中的like字符串
asp 实现显示所有的服务器变量值的函数
asp 取得用户真实IP,对代理地址仍然有效的函数
asp 通用数据库连接过程函数
asp 字符串截取函数
asp下实现格式化文件大小以MB显示的函数
asp 下用正则表达式检测邮箱格式的函数
asp 实现检测字符串是否为纯字母和数字组合的函数
asp代码实现检测组件是否安装的函数
asp通过JMAIL实现通用发送函数

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 133 ::
收藏到网摘: 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

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