2025-04-27 07:49:33 -04:00

240 lines
12 KiB
HTML

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=Windows-1252">
<TITLE>BytesReceived</TITLE>
<SCRIPT LANGUAGE="JavaScript">
<!--
TempString = navigator.appVersion
if (navigator.appName == "Microsoft Internet Explorer"){
// Check to see if browser is Microsoft
if (TempString.indexOf ("4.") >= 0){
// Check to see if it is IE 4
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/coua.css">');
}
else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/cocss.css">');
}
}
else if (navigator.appName == "Netscape") {
// Check to see if browser is Netscape
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/coua.css">');
}
else
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/cocss.css">');
//-->
</script>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Window_OnLoad()
Dim frmContents
On Error Resume Next
If Not Parent Is Nothing Then
Set frmContents = Parent.Contents
If Not frmContents Is Nothing Then
frmContents.Window.TOCSynch_Click
End If
End If
End Sub
//--></SCRIPT><META NAME="DESCRIPTION" CONTENT="Internet Information Services reference information">
<META HTTP-EQUIV="PICS-Label" CONTENT='(PICS-1.1 "<http://www.rsac.org/ratingsv01.html>" l comment "RSACi North America Server" by "inet@microsoft.com <mailto:inet@microsoft.com>" r (n 0 s 0 v 0 l 0))'>
<META NAME="MS.LOCALE" CONTENT="EN-US">
<META NAME="MS-IT-LOC" Content="Internet Information Services">
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<H3><A NAME="_bytesreceived"></A><SUP></SUP>BytesReceived</H3>
<P>This property enables you to retrieve the number of bytes received during the operation from the current log record.</P>
<H6>Syntax</H6>
<P><I>count</I> = <I>oIISLog</I><B>.BytesReceived</B></P>
<H6>Parameters</H6>
<DL>
<DT><I>count</I></DT>
<DD>The number of bytes received.</DD>
</DL>
<H6>Example</H6>
<P>The following example opens a log file in the default format, and displays the chosen properties for each entry. This is a very large example, but it can be used as a tool to view any property for any entry in a log file.</P>
<P>--- Log_Properties.asp ---</P>
<PRE><CODE>&lt;HTML&gt;
&lt;HEAD&gt;&lt;TITLE&gt;&lt;/TITLE&gt;&lt;/HEAD&gt;
&lt;BODY&gt;
&lt;% 'Get all the inputs from the FORM if there are any.
LogFile = Request.Form("logfile")
StartDate = Request.Form("startdt")
EndDate = Request.Form("enddt")
BytesReceived = Request.Form("BytesReceived")
BytesSent = Request.Form("BytesSent")
ClientIP = Request.Form("ClientIP")
Cookie = Request.Form("Cookie")
CustomFields = Request.Form("CustomFields")
DateTime = Request.Form("DateTime")
Method = Request.Form("Method")
ProtocolStatus = Request.Form("ProtocolStatus")
ProtocolVersion = Request.Form("ProtocolVersion")
Referer = Request.Form("Referer")
ServerIP = Request.Form("ServerIP")
ServerName = Request.Form("ServerName")
ServerPort = Request.Form("ServerPort")
ServiceName = Request.Form("ServiceName")
TimeTaken = Request.Form("TimeTaken")
URIQuery = Request.Form("URIQuery")
URIStem = Request.Form("URIStem")
UserAgent = Request.Form("UserAgent")
UserName = Request.Form("UserName")
Win32Status = Request.Form("Win32Status")
' Let the user select the inputs.
%&gt;
&lt;H3&gt;Display a Range of Log Records by Date&lt;/H3&gt;
&lt;FORM NAME="getlogfilename" METHOD="POST" ACTION="Log_Properties.asp"&gt;
Please enter the full path name of a log file to read in %SystemRoot%\system32\LogFiles\*SVC*\*.log:&lt;BR&gt;
&lt;input type="TEXT" NAME="logfile" size=70 value=&lt;%=LogFile%&gt;&gt;&lt;BR&gt;&lt;BR&gt;
Please select the properties you want to show:&lt;BR&gt;
&lt;TABLE&gt;&lt;TR&gt;
&lt;TD&gt;&lt;input type="CHECKBOX" NAME="BytesReceived" value="True" &lt;%If BytesReceived Then Response.Write "CHECKED"%&gt;&gt; BytesReceived &lt;/TD&gt;
&lt;TD&gt;&lt;input type="CHECKBOX" NAME="ServerIP" value="True" &lt;%If ServerIP Then Response.Write "CHECKED"%&gt;&gt; ServerIP &lt;/TD&gt;
&lt;TD&gt;&lt;input type="CHECKBOX" NAME="DateTime" value="True" &lt;%If DateTime Then Response.Write "CHECKED"%&gt;&gt; DateTime &lt;/TD&gt;
&lt;TD&gt;&lt;input type="CHECKBOX" NAME="URIQuery" value="True" &lt;%If URIQuery Then Response.Write "CHECKED"%&gt;&gt; URIQuery &lt;/TD&gt;
&lt;/TR&gt;&lt;TR&gt;
&lt;TD&gt;&lt;input type="CHECKBOX" NAME="BytesSent" value="True" &lt;%If BytesSent Then Response.Write "CHECKED"%&gt;&gt; BytesSent &lt;/TD&gt;
&lt;TD&gt;&lt;input type="CHECKBOX" NAME="ServerName" value="True" &lt;%If ServerName Then Response.Write "CHECKED"%&gt;&gt; ServerName &lt;/TD&gt;
&lt;TD&gt;&lt;input type="CHECKBOX" NAME="Method" value="True" &lt;%If Method Then Response.Write "CHECKED"%&gt;&gt; Method &lt;/TD&gt;
&lt;TD&gt;&lt;input type="CHECKBOX" NAME="URIStem" value="True" &lt;%If URIStem Then Response.Write "CHECKED"%&gt;&gt; URIStem &lt;/TD&gt;
&lt;/TR&gt;&lt;TR&gt;
&lt;TD&gt;&lt;input type="CHECKBOX" NAME="ClientIP" value="True" &lt;%If ClientIP Then Response.Write "CHECKED"%&gt;&gt; ClientIP &lt;/TD&gt;
&lt;TD&gt;&lt;input type="CHECKBOX" NAME="ServerPort" value="True" &lt;%If ServerPort Then Response.Write "CHECKED"%&gt;&gt; ServerPort &lt;/TD&gt;
&lt;TD&gt;&lt;input type="CHECKBOX" NAME="ProtocolStatus" value="True" &lt;%If ProtocolStatus Then Response.Write "CHECKED"%&gt;&gt; ProtocolStatus &lt;/TD&gt;
&lt;TD&gt;&lt;input type="CHECKBOX" NAME="UserAgent" value="True" &lt;%If UserAgent Then Response.Write "CHECKED"%&gt;&gt; UserAgent &lt;/TD&gt;
&lt;/TR&gt;&lt;TR&gt;
&lt;TD&gt;&lt;input type="CHECKBOX" NAME="Cookie" value="True" &lt;%If Cookie Then Response.Write "CHECKED"%&gt;&gt; Cookie &lt;/TD&gt;
&lt;TD&gt;&lt;input type="CHECKBOX" NAME="ServiceName" value="True" &lt;%If ServiceName Then Response.Write "CHECKED"%&gt;&gt; ServiceName &lt;/TD&gt;
&lt;TD&gt;&lt;input type="CHECKBOX" NAME="ProtocolVersion" value="True" &lt;%If ProtocolVersion Then Response.Write "CHECKED"%&gt;&gt; ProtocolVersion &lt;/TD&gt;
&lt;TD&gt;&lt;input type="CHECKBOX" NAME="UserName" value="True" &lt;%If UserName Then Response.Write "CHECKED"%&gt;&gt; UserName &lt;/TD&gt;
&lt;/TR&gt;&lt;TR&gt;
&lt;TD&gt;&lt;input type="CHECKBOX" NAME="CustomFields" value="True" &lt;%If CustomFields Then Response.Write "CHECKED"%&gt;&gt; CustomFields &lt;/TD&gt;
&lt;TD&gt;&lt;input type="CHECKBOX" NAME="TimeTaken" value="True" &lt;%If TimeTaken Then Response.Write "CHECKED"%&gt;&gt; TimeTaken &lt;/TD&gt;
&lt;TD&gt;&lt;input type="CHECKBOX" NAME="Referer" value="True" &lt;%If Referer Then Response.Write "CHECKED"%&gt;&gt; Referer &lt;/TD&gt;
&lt;TD&gt;&lt;input type="CHECKBOX" NAME="Win32Status" value="True" &lt;%If Win32Status Then Response.Write "CHECKED"%&gt;&gt; Win32Status &lt;/TD&gt;
&lt;/TR&gt;&lt;/TABLE&gt;&lt;BR&gt;
Start DateTime:
&lt;input type="TEXT" NAME="startdt" value=&lt;%=StartDate%&gt;&gt; (Optional)&lt;BR&gt;
End DateTime:
&lt;input type="TEXT" NAME="enddt" value=&lt;%=EndDate%&gt;&gt; (Optional)&lt;BR&gt;
(Use the format 'MM/DD/YYYY HH:MM:SS AM/PM')&lt;BR&gt;&lt;BR&gt;
&lt;INPUT TYPE="SUBMIT" VALUE="Submit"&gt;
&lt;/FORM&gt;
&lt;%
''''''''''''''''''''
' Log file formats:
' "NCSA Common Log File Format"
' "Microsoft IIS Log File Format"
' "W3C Extended Log File Format"
'''''''''''''''''''''
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
If (fsoObject.FileExists(LogFile)) Then
Set oRead = CreateObject ("MSWC.IISLog")
oRead.OpenLogFile LogFile, 1, "W3SVC", 1, 0
If Not (StartDate = "" Or EndDate = "") Then
oRead.ReadFilter StartDate,EndDate
End If
oRead.ReadLogRecord
%&gt;
&lt;TABLE Border=1&gt;
&lt;TR&gt;
&lt;%
If DateTime Then Response.Write "&lt;TD&gt;&lt;B&gt;DateTime&lt;/TD&gt;"
If BytesReceived Then Response.Write "&lt;TD&gt;&lt;B&gt;BytesReceived&lt;/TD&gt;"
If BytesSent Then Response.Write "&lt;TD&gt;&lt;B&gt;BytesSent&lt;/TD&gt;"
If ClientIP Then Response.Write "&lt;TD&gt;&lt;B&gt;ClientIP&lt;/TD&gt;"
If Cookie Then Response.Write "&lt;TD&gt;&lt;B&gt;Cookie&lt;/TD&gt;"
If CustomFields Then Response.Write "&lt;TD&gt;&lt;B&gt;CustomFields&lt;/TD&gt;"
If Method Then Response.Write "&lt;TD&gt;&lt;B&gt;Method&lt;/TD&gt;"
If ProtocolStatus Then Response.Write "&lt;TD&gt;&lt;B&gt;ProtocolStatus&lt;/TD&gt;"
If ProtocolVersion Then Response.Write "&lt;TD&gt;&lt;B&gt;ProtocolVersion&lt;/TD&gt;"
If Referer Then Response.Write "&lt;TD&gt;&lt;B&gt;Referer&lt;/TD&gt;"
If ServerIP Then Response.Write "&lt;TD&gt;&lt;B&gt;ServerIP&lt;/TD&gt;"
If ServerName Then Response.Write "&lt;TD&gt;&lt;B&gt;ServerName&lt;/TD&gt;"
If ServerPort Then Response.Write "&lt;TD&gt;&lt;B&gt;ServerPort&lt;/TD&gt;"
If ServiceName Then Response.Write "&lt;TD&gt;&lt;B&gt;ServiceName&lt;/TD&gt;"
If TimeTaken Then Response.Write "&lt;TD&gt;&lt;B&gt;TimeTaken&lt;/TD&gt;"
If URIQuery Then Response.Write "&lt;TD&gt;&lt;B&gt;URIQuery&lt;/TD&gt;"
If URIStem Then Response.Write "&lt;TD&gt;&lt;B&gt;URIStem&lt;/TD&gt;"
If UserAgent Then Response.Write "&lt;TD&gt;&lt;B&gt;UserAgent&lt;/TD&gt;"
If UserName Then Response.Write "&lt;TD&gt;&lt;B&gt;UserName&lt;/TD&gt;"
If Win32Status Then Response.Write "&lt;TD&gt;&lt;B&gt;Win32Status&lt;/TD&gt;"
%&gt;
&lt;/TR&gt;
&lt;%
Do While Not oRead.AtEndOfLog
Response.Write "&lt;TR&gt;"
If DateTime Then Response.Write "&lt;TD&gt;&amp;nbsp;" &amp; oRead.DateTime &amp; "&lt;/TD&gt;"
If BytesReceived Then Response.Write "&lt;TD&gt;&amp;nbsp;" &amp; oRead.BytesReceived &amp; "&lt;/TD&gt;"
If BytesSent Then Response.Write "&lt;TD&gt;&amp;nbsp;" &amp; oRead.BytesSent &amp; "&lt;/TD&gt;"
If ClientIP Then Response.Write "&lt;TD&gt;&amp;nbsp;" &amp; oRead.ClientIP &amp; "&lt;/TD&gt;"
If Cookie Then Response.Write "&lt;TD&gt;&amp;nbsp;" &amp; oRead.Cookie &amp; "&lt;/TD&gt;"
If CustomFields Then
Response.Write "&lt;TD&gt;&amp;nbsp;"
For i = 1 To UBound(oRead.CustomFields)
Response.Write oRead.CustomFields(i,1) &amp; " = " &amp; oRead.CustomFields(i,2) &amp; "&lt;BR&gt;"
Next
Response.Write "&lt;/TD&gt;"
End If
If Method Then Response.Write "&lt;TD&gt;&amp;nbsp;" &amp; oRead.Method &amp; "&lt;/TD&gt;"
If ProtocolStatus Then Response.Write "&lt;TD&gt;&amp;nbsp;" &amp; oRead.ProtocolStatus &amp; "&lt;/TD&gt;"
If ProtocolVersion Then Response.Write "&lt;TD&gt;&amp;nbsp;" &amp; oRead.ProtocolVersion &amp; "&lt;/TD&gt;"
If Referer Then Response.Write "&lt;TD&gt;&amp;nbsp;" &amp; oRead.Referer &amp; "&lt;/TD&gt;"
If ServerIP Then Response.Write "&lt;TD&gt;&amp;nbsp;" &amp; oRead.ServerIP &amp; "&lt;/TD&gt;"
If ServerName Then Response.Write "&lt;TD&gt;&amp;nbsp;" &amp; oRead.ServerName &amp; "&lt;/TD&gt;"
If ServerPort Then Response.Write "&lt;TD&gt;&amp;nbsp;" &amp; oRead.ServerPort &amp; "&lt;/TD&gt;"
If ServiceName Then Response.Write "&lt;TD&gt;&amp;nbsp;" &amp; oRead.ServiceName &amp; "&lt;/TD&gt;"
If TimeTaken Then Response.Write "&lt;TD&gt;&amp;nbsp;" &amp; oRead.TimeTaken &amp; "&lt;/TD&gt;"
If URIQuery Then Response.Write "&lt;TD&gt;&amp;nbsp;" &amp; oRead.URIQuery &amp; "&lt;/TD&gt;"
If URIStem Then Response.Write "&lt;TD&gt;&amp;nbsp;" &amp; oRead.URIStem &amp; "&lt;/TD&gt;"
If UserAgent Then Response.Write "&lt;TD&gt;&amp;nbsp;" &amp; oRead.UserAgent &amp; "&lt;/TD&gt;"
If UserName Then Response.Write "&lt;TD&gt;&amp;nbsp;" &amp; oRead.UserName &amp; "&lt;/TD&gt;"
If Win32Status Then Response.Write "&lt;TD&gt;&amp;nbsp;" &amp; oRead.Win32Status &amp; "&lt;/TD&gt;"
Response.Write "&lt;/TR&gt;"
oRead.ReadLogRecord
Loop
%&gt;
&lt;/TR&gt;&lt;/TABLE&gt;
&lt;%
oRead.CloseLogFiles 1
ElseIf Not (LogFile = "") Then
Response.Write "ERROR: " &amp; LogFile &amp; " does not exist."
End If
%&gt;
&lt;/BODY&gt;
&lt;/HTML&gt;</CODE></PRE>
<hr class="iis" size="1">
<p align="center"><em><a href="../../../common/colegal.htm">&copy; 1997-2001 Microsoft Corporation. All rights reserved.</a></em></p>
</BODY>
</HTML>