【 tulaoshi.com - ASP 】
6.2.11 Logging Utility组件
Logging Utility组件是ASP 3.0的新组件，提供了访问日志文件的方法，这个日志文件是由服务器支持的用于Web和FTP网站的IIS创建的。
1． Logging Utility组件的成员
Logging Utility组件提供了六种方法，能读取日志文件的内容、把新记录写进已存在的日志文件中。这些方法和上一章讨论的FileSystemObject对象的方法有相似性，如表6-9所示：
表6-9 Logging Utility组件的方法及说明
方 法
说 明
AtEndOfLog()
用ReadLogRecord方法遍历记录时，如果文件中的所有记录都已读出，返回值为True
CloseLogFiles(io_mode)
关闭打开的日志文件，io_mode的值指定要关闭的文件，常数ForReading(1)表示关闭打开供读出的所有文件， ForWriting(2)表示关闭打开供写入的所有文件，AllOpenFiles(32)表示关闭打开的所有文件
OpenLogFile(filename,io_mode,
service_name,service_instance,
output_format)
打开filename指定的日志文件或日志文件集，可选的io_mode参数可以设置成ForReading（缺省值，1）或 ForWriting(2)。当读取取一个特定的IIS服务（例如“W3SVC”和“1”）时，可选的service_name和 service_instance参数限制从文件中返回的记录。可选的output_format参数指明写入文件时使用的格式
ReadFilter(start,end)
当在规定的时间和日期范围内读取文件时，限制返回的记录，两个参数都是可选的，如果忽略的话，start是文件的第一个记录，end是最后一个记录
ReadLogRecord()
从用OpenLogFile方法打开的当前日志文件中读取下一个记录
WriteLogRecord(logging_object)
从打开供读出的文件中把记录写入一个打开供写入的文件中，参数logging_object是一个引用保存源记录的 Logging Utility组件实例的对象变量
Logging Utility组件提供了二十种与IIS日志记录相对应的属性，如表6-10所示：
表6-10 Logging Utility组件的属性及说明
属 性
说 明
BytesReceived
请求时从浏览器收到的字节数
BytesSent
响应时送至浏览器的字节数
ClientIP
客户机或其主机（即代理服务器）的IP地址
Cookie
在请求中传送的cookie内容
CustumFields
加到请求中的定制报头的一个数组
DataTime
请求的日期和时间（GMT）
Method
操作类型，如“Get”和“Post”
ProtocolStatus
返回到客户机的状态消息，即“200 OK”
ProtocolVersion
协议版本字符串，如“HTTP/1.1”
Referer
包含初始化请求链接的网页的URL
ServerIP
IIS机器的IP地址
ServerName
IIS服务器的机器名
ServerPort
请求到达的端口号，如“80”
ServiceName
服务器名称，如“MSFTPSVC”或“W3SVC”
TimeTaken
检索和创建网页的总处理时间
URIQuery
请求中加到URL的查询字符串中的所有参数
URIStem
请示的目标URL
UserAgent
由客户机发送的用户代理字符串
UserName
如果不是匿名地访问服务器，UserName是用户的登录名
Win32Status
处理了请求后返回的Win32状态码
2． 使用Logging Utility组件
Logging Utility组件最普遍的应用是用于对日志文件的自定义查询。从现有文件中选择一些记录写入新文件的能力，意味着能够汇总某些类型的条目，或者有选择性地挑出一些记录将来使用。
为了使用ForReading、ForWriting和AllOpenFiles常数，必须在网页的<HEAD部分包含METADATA指令。
<!-- METADATA TYPE="typelib" FILE="C:WINNTsystem32inetsrvlogscrpt.dll" --
为了遍历记录，仅须打开文件并且重复调用ReadLogRecord，直到AtEndOfLog的返回值为True。在下面的例子中将过滤记录，仅获得最后24小时以内的记录。
'Create the component instance
Set objLogUtil = Server.CreateObject("MSWC.IISLog")
'open the log file for reading, for the W3SVC instance number 1
objLogUtil.OpenLogFile "extend#.log", ForReading, "W3SVC", 1, 0
'set a filter for the last day's records only
objLogUtil.ReadFilter DateAdd("d", -1, Now), Now
'loop through the records
Do While Not objLogUtil.AtEndOfLog
objLogUtil.ReadLogRecord 'read the next record
Response.Write "Request received for page " & objLogUtil.URLStem & " on " _
&n
