DoDolock

'1.使用Trace物件寫訊息
Trace.Warn("ADO.NET", "Query Data Start")
'Connection
Trace.Warn("ADO.NET", "Query Data End")

'2.建立一個事件程序(使用TraceContextEventArgs)
Private Sub OnTraceFinished(ByVal sender As Object, ByVal e As TraceContextEventArgs)

End Sub

3.on Page_Load
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'3.註冊Trace的TraceFinished事件去執行OnTraceFinished
AddHandler Trace.TraceFinished, AddressOf OnTraceFinished
End Sub

'4.將所想要紀錄的資訊紀錄在log or database or eventlog or mail
Dim sw As New StreamWriter(Server.MapPath("TraceInfo.log"), True, System.Text.Encoding.Default)
Dim record As TraceContextRecord
'5.使用TraceContextEventArgs的TraceRecords取全部的資料
For Each record In e.TraceRecords
If record.Category = "ADO.NET" Then
sw.WriteLine("Trace紀錄:" + record.Message)
End If
Next

sw.Close()