国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板: 天全县| 喜德县| 大同市| 刚察县| 兰州市| 石首市| 古浪县| 滦南县| 莱州市| 涟源市| 怀安县| 沧源| 长白| 玉林市| 石城县| 长宁区| 永仁县| 绥宁县| 都兰县| 嘉定区| 烟台市| 卫辉市| 贡嘎县| 阜新市| 云龙县| 德令哈市| 河曲县| 凌云县| 靖江市| 青岛市| 台州市| 松阳县| 石林| 泗洪县| 佛坪县| 鹤壁市| 德州市| 德钦县| 周口市| 颍上县| 婺源县|