錯誤處理
如果頁面出錯,而沒有對錯誤的處理，那麼頁面會顯示一個使用者可能看不懂的錯誤。
在asp指令碼中可以使用
On Error Resume Next
……
if Err.Number<>0 then
Response.Write Err.Description
End if
但是如果組件中出錯呢？這種方法可以捕獲錯誤，但是具體的錯誤如何知道呢？
我們可以在組件中加入錯誤處理，來返回錯誤，這樣可以容易的看到更加詳細的出錯資訊，有助於我們排除錯誤。
使用Err.Raise, Raise 被用來產生執行階段錯誤
開啟vb6,建立Activex Dll工程。工程名修改為fCom,類名修改為fC6
Option Explicit
Public Sub showerror1()
On Error GoTo ErrorHandle
Dim i As Double
i = 1 / 0
ErrorHandle:
Err.Raise Err.Number, Err.Source, Err.Description
End Sub
‘產生自訂的錯誤
Public Sub showerror2()
Err.Raise 600, "自己定義的錯誤600", "這是描述自己程式的錯誤"
End Sub
Ok,一個組件就寫好了，點擊菜單->檔案->產生fCom.dll檔案
確定，在目錄下就會有fCom.dll檔案
測試
開啟visual interdev6.0,產生一個asp檔案
<%@ Language=VBScript %>
<HTML>
<BODY>
<%
‘下面這一句很重要
on error resume next
set obj=server.CreateObject("fCom.fc6")
obj.showerror1()
‘如果沒有錯誤處理，就會產生一個出錯的介面，很不專業
‘從 0–512 的範圍保留為系統錯誤；從 513–65535 的範圍可以用做使用者定義的錯誤。
‘如果是保留錯誤，那麼組件內錯誤號碼和頁面處理的錯誤號碼是相一致的
if err.number <>0 then
Response.Write "錯誤資訊" & err.number & err.Description
end if
Response.Write "<br>"
‘如果是使用者定義的錯誤，那麼在頁面中可以分別進行處理
obj.showerror2()
if err.number<>0 then
if err.number =600 then
Response.Write err.number & err.Source & err.Description
end if
end if
%>
</BODY>
</HTML>
配置好虛擬目錄，在ie中執行此asp檔案，得到結果如下:
錯誤資訊11除數為零
600自己定義的錯誤600這是描述自己程式的錯誤
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
