📄 iislog.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>
IIS日志浏览
</TITLE>
</HEAD>
<BODY>
<%
dim mLog
dim mBol
set mLog = Server.CreateObject("MSWC.IISLog")
mlog.OpenLogFile "d:\ex010215.log",1, "",0, ""
Response.Write "<ul>"
for i=1 to 10
mlog.ReadLogRecord
mBol=mlog.AtEndOfLog
Response.Write "<li>"
Response.Write "<font color=green>时间:</font>" & mlog.DateTime
Response.Write "<br>"
Response.Write "<font color=green>客户IP:</font>" & mlog.ClientIP
Response.Write "<br>"
Response.Write "<font color=green>请求方法:</font>" & mlog.method
Response.Write "<br>"
Response.Write "<font color=green>请求目标:</font>" & mlog.URIStem
Response.Write "<br>"
Response.Write "<font color=green>协议状态:</font>" & mlog.ProtocolStatus
'Response.Write "<br>" & mBol
Response.Write "</li>"
next
'loop until mBol=True
Response.Write "</ul>"
Response.Write i
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -