global.asax

来自「Complete example using custom errors and」· ASAX 代码 · 共 33 行

<%@ Import Namespace="System" %>
<%@ Import Namespace="System.Diagnostics" %>

<script language="VB" runat=server>

Public Sub Application_OnError(Sender as Object, E as EventArgs)

	dim LastError as Exception = Server.GetLastError()
	Dim ErrMessage as String = LastError.toString()
 
        Dim LogName As String = "MyLog"
        Dim Message As String = "Url " & Request.Path & " Error: " & ErrMessage

         ' Create Event Log if It Doesn't Exist
         If (Not EventLog.SourceExists(LogName)) Then
            EventLog.CreateEventSource(LogName, LogName)
         End if

	 Dim Log as New EventLog
         Log.Source = LogName

	 'These are the five options that will display a different icon.
         Log.WriteEntry(Message, EventLogEntryType.Information, 1)
         Log.WriteEntry(Message, EventLogEntryType.Error, 2)
         Log.WriteEntry(Message, EventLogEntryType.Warning, 3)
         Log.WriteEntry(Message, EventLogEntryType.SuccessAudit, 4)
         Log.WriteEntry(Message, EventLogEntryType.FailureAudit, 5)


End Sub
</script>