代码：处理应用程序级别错误 (Visual Basic)

此示例显示如何在 Global.asax 文件中创建错误处理程序，该程序将捕捉应用程序中所有未处理的 ASP.NET 错误，即用 Try...Catch 块或在页级别错误处理程序中没有捕捉到的错误。在此示例中，处理程序将控件传输到一般错误页 (Errors.aspx) 中，该页解释错误并显示适当的消息。

示例

' Handler in Global.asax file
Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
Server.Transfer("Errors.aspx")
End Sub

' Handler in Errors.aspx file
Private Sub Page_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim errMessage As String = ""
Dim appException As System.Exception = Server.GetLastError()
If (TypeOf (appException) Is HttpException) Then
Dim checkException As HttpException = _
CType(appException, HttpException)
Select Case checkException.GetHttpCode
Case 403
errMessage &= "You are not allowed to view that page."
Case 404
errMessage &= "The page you have requested can't be found."
Case 408
errMessage &= "The request has timed out."
Case 500
errMessage &= "The server can't fulfill your request."
Case 503
errMessage &= "The server is experiencing a heavy load."
Case Else
errMessage &= "The server has experienced an error."
End Select
Else
errMessage &= "The following error occurred<BR>" & _
appException.ToString
End If
Label1.Text = errMessage & "<BR>Please contact the server" & _
"administrator."
Server.ClearError()
End Sub

编译代码

本示例需要：

一个 Web 应用程序。
名为 Errors.aspx 的 Web 窗体页，在该页上具有名为 Label1 的 Label 控件。

可靠编程

最好使用 Try...Catch 块环绕应为错误的任何代码，而不是依赖于全局错误处理程序。

在 Global.asax 中定义的错误处理程序将只捕捉应用于 ASP.NET 的错误。例如，如果用户请求在您的应用程序中不存在的 .aspx 文件，错误处理程序将捕捉该错误。但是，如果用户请求不存在的 .htm 文件，则错误处理程序不捕捉该错误。对于非 ASP.NET 错误，可以在 IIS 中创建自定义处理程序。

不能直接从 Global.asax 文件输出信息；必须将控件传输到其他页，通常是 Web 窗体页。在将控件传输到其他页时，使用 Server.Transfer。这保留当前的上下文，以便您可以从 Server.GetLastError 获取错误信息。

在处理某个错误后，必须通过调用服务器对象（HttpServerUtility 类）的 ClearError 方法将其清除。

安全性

不要显示可能帮助恶意用户破坏您的应用程序的错误信息。有关详细信息，请参见显示安全的错误信息。