global.asax

来自「Code for VB.NET教程源码 很好的源码」· ASAX 代码 · 共 23 行

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

<script language="VB" runat=server>
  Public Sub Application_Error(Sender as Object, E as EventArgs)

    Dim LogName As String = "Web_Errors"
    Dim Message As String
    Message = "Url: " & Request.Path
    Message = Message + " Error: " & Server.GetLastError.ToString

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

    ' Fire off to Event Log
    Dim Log as New EventLog

    Log.Source = LogName
    Log.WriteEntry(Message, EventLogEntryType.Error)

  End Sub
</script>