＜%@ Page Language="C#" %＞
＜SCRIPT runat="server"＞
protected void Page_Load(object sender, System.EventArgs e)
{
　Trace.TraceFinished += new TraceContextEventHandler(OnTraceFinished);
　Trace.Write("自定义类别", "自定义跟踪消息");
}
private void OnTraceFinished(object sender, TraceContextEventArgs e)
{
　foreach (TraceContextRecord tcr in e.TraceRecords)
　{
　　Response.Write(string.Format(" ＜li＞跟踪类别:{0} 跟踪消息:{1}", tcr.Category, tcr.Message));
　}
}
＜/SCRIPT＞

＜%@ 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

＜/SCRIPT＞