国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(xué)院 > 開發(fā)設(shè)計 > 正文

用err.raise自定義錯誤信息

2019-11-18 21:12:07
字體:
供稿:網(wǎng)友
我想大多數(shù)的人在編寫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
%>

這樣,我們就自己定義了錯誤信息,有興趣的朋友可以試試
下面是該錯誤信息的輸出結(jié)果:
Error On line -> 7
Error Source -> etest.asp
Error Desc -> Connection Open Method Failed

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

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 思茅市| 壶关县| 枣庄市| 顺平县| 闽清县| 朝阳市| 南汇区| 水城县| 娄烦县| 潼南县| 卢龙县| 信宜市| 沧源| 海宁市| 乌什县| 章丘市| 武陟县| 凭祥市| 南溪县| 会昌县| 新龙县| 旌德县| 微博| 江油市| 泾源县| 大渡口区| 公安县| 于田县| 兰州市| 额济纳旗| 西林县| 玉溪市| 迁安市| 图木舒克市| 甘孜县| 万安县| 宝丰县| 子长县| 大名县| 芜湖市| 阿瓦提县|