<%@ Page Language="VB"%> <SCRIPT runat="server"> Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) AddHandler Trace.TraceFinished, AddressOf OnTraceFinished Trace.Write("自定义类别", "自定义跟踪消息") End Sub Private Sub OnTraceFinished(ByVal sender As Object, ByVal e As TraceContextEventArgs) Dim tcr As TraceContextRecord For Each tcr In e.TraceRecords Response.Write(String.Format(" <li>跟踪类别:{0} 跟踪消息:{1}", tcr.Category, tcr.Message)) Next End Sub