Trang này thiết lập một máy chủ điều khiển ASP: DataList Web để hiển thị các mục trong bản ghi sự kiện, nếu các bản ghi sự kiện được cài đặt. Tiếp theo, chuyển sang các tập tin mã phía sau, và loại danh sách đầy đủ như trong Ví dụ (không chỉnh sửa phần thiết kế Web Forms mã được tạo ra, tuy nhiên). | Building the Error Manager 303 td td nowrap align right TimeGenerated 0 MM-dd-yyyy HH mm ss td tr tr td colspan 3 GetHtmlMessage td tr table itemtemplate separatortemplate hr width 100 noshade size 1 separatortemplate asp datalist td tr table form body html Listing HTML for ErrorManager continued This page sets up an ASP DataList Web server control to display the entries contained in the event log if the event log is installed. Next switch to the code-behind file and type the complete listing shown in Listing do not modify the Web Forms Designer generated code section however . Option Strict On Option Explicit On Imports Namespace ErrorManager Public Class DefaultPage Inherits Protected WithEvents EMDataList As Protected WithEvents EMClear As Protected WithEvents EMEvents As _ Protected WithEvents EMStatus As Private blnInstalled As Boolean HasErrorManager Private Sub Page_Load ByVal sender As _ Listing Code for ErrorManager 304 Project 5 ByVal e As Handles Dim evtEM As EventLog If the custom event log is not installed do not show the data list or the Clear button. If blnInstalled False Then The Error Manager is currently _ NOT installed. False False Return End If Otherwise show both and bind the data list to the event log entries collection. The Error Manager is currently installed. True True evtEM New EventLog Error Manager End Sub This method is used as a check to see if the custom event log exists. Friend Function HasErrorManager As Boolean Return .
