global.asax

asp.net技术内幕的书配源码

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

<Script Runat="Server">

Sub Application_Error
  Dim strErrorText As String
  Dim objLog As EventLog

  strErrorText = "ERROR IN " & Request.Path
  strErrorText &= vbNewline & vbNewline & "ERROR:"
  strErrorText &= Server.GetLastError.InnerException.Message
  strErrorText &= vbNewline & vbNewline & "STACK TRACE:"
  strErrorText &= Server.GetLastError.InnerException.StackTrace

  objLog = New EventLog
  objLog.Source = "My ASP.NET App"
  objLog.WriteEntry( strErrorText, EventLogEntryType.Error )
End Sub

</Script>