|
|
<% Dim Today Dim iDefMon, iDefDay, iDefYear Dim i Dim strFileName Dim strResult
iDefMon = Month (Now) iDefDay = Day (Now) iDefYear = Year (Now)
If Request ("Month") <> "" Then iDefMon = CInt (Request ("Month")) End If If Request ("Day") <> "" Then iDefDay = CInt (Request ("Day")) End If If Request ("Year") <> "" Then iDefYear = CInt (Request ("Year")) End If
strFileName = "ex" & Right (CStr (iDefYear), 2) & _ Right ("0" & CStr (iDefMon), 2) & _ Right ("0" & CStr (iDefDay), 2) & ".log" %><html>
<head><title>Log File Summary for Everest Project</title></head>
<body text="#0000FF">
<h1><center><font face="Arial">Log File Summary for Everest Project</font></h1></center>
<p><font face="Arial">This web page is designed to view the summary of the internet logfiles. Please select the date of the log file and click on the submit button.</font></p><center><form method="POST" action="iislog.asp"> <font face="Arial">Month<select name="Month" size="1"><% For i = 1 to 12 If i = iDefMon Then Response.Write ("<option selected>" & i & "</option>") Else Response.Write ("<option>" & i & "</option>") End If Next%> </select> Day <select name="Day" size="1"><% For i = 1 to 31 If i = iDefDay Then Response.Write ("<option selected>" & i & "</option>") Else Response.Write ("<option>" & i & "</option>") End If Next%> </select> Year <select name="Year" size="1"><% For i = iDefYear - 1 to iDefYear + 1 If i = iDefYear Then Response.Write ("<option selected>" & i & "</option>") Else Response.Write ("<option>" & i & "</option>") End If Next%> </select> <input type="submit" value="Submit" name="B1"> </font></p></form>
<Script Runat=server Language="Vbscript">Function ProcessFile (strFileName) 'On Error Resume Next
End Function
Function GetOneTokenFromString(SrcString) Dim OneToken Dim Pos
Pos = InStr(SrcString, " ") If (Pos > 0) Then OneToken = Left(SrcString, Pos - 1) SrcString = Mid(SrcString, Pos + 1) GetOneTokenFromString = OneToken Else GetOneTokenFromString = SrcString SrcString = "" End If
End Function
Sub ProcessFile(strFileName, TotalAspHits, TotalPPHits, TotalPPBytesRcved, AvgAspTime, AvgPPTime) On Error Resume Next Dim OneLine Dim OneToken Dim ByteRcved Dim ByteSent Dim TimeProcessed Dim AspTimeProcessed Dim RecvBytesIndex, TimeIndex, UrlIndex Dim I Dim bAsp Dim bPrinter Dim strDir Dim strLine Const strPrinter = "/.printer" Const strPrns = "/printers" Const strAsp = ".asp" Const strLog = "iislog.asp"
strDir = Server.MapPath ("/iislogs/W3SVC1/" & strFileName) Set objFSO = CreateObject ("Scripting.FileSystemObject") Set objLogFile = objFSO.OpenTextFile (strDir) If Err Then Exit Sub End If
TotalAspHits = 0 TotalPPHits = 0
ByteRcved = 0 ByteSent = 0 TimeProcessed = 0 AspTimeProcessed = 0
Do While Not objLogFile.AtEndOfStream OneLine = objLogFile.ReadLine If Left(OneLine, 1) = "#" Then If Left(OneLine, 8) = "#Fields:" Then OneToken = GetOneTokenFromString(OneLine) I = 0 Do While OneToken <> "" OneToken = GetOneTokenFromString(OneLine) Select Case OneToken Case "cs-uri-stem" UrlIndex = I Case "cs-bytes" RecvBytesIndex = I Case "time-taken" TimeIndex = I Case Else End Select I = I + 1 Loop End If Else I = 0
bAsp = False bPrinter = False
Do While I = 0 Or OneToken <> ""
OneToken = GetOneTokenFromString(OneLine)'Response.Write ("<br>" & OneToken) If I = UrlIndex Then 'Process the URL
If Right(OneToken, Len(strPrinter)) = strPrinter Then
bPrinter = True TotalPPHits = TotalPPHits + 1 ElseIf Left(OneToken, Len(strPrns)) = strPrns And Right(OneToken, Len(strLog)) <> strLog Then 'And Right(OneToken, Len(strAsp)) = strAsp Then'Response.Write ("<br>TotalAsp" ) bAsp = True TotalAspHits = TotalAspHits + 1 End If End If If bAsp Then If I = TimeIndex Then AspTimeProcessed = AspTimeProcessed + OneToken End If End If If bPrinter Then If I = RecvBytesIndex Then ByteRcved = ByteRcved + OneToken End If
If I = TimeIndex Then TimeProcessed = TimeProcessed + OneToken End If End If I = I + 1 Loop End If Loop
objLogFile.Close If TotalAspHits > 0 Then AvgAspTime = AspTimeProcessed / TotalAspHits End If If ByteRcved > 0 Then AvgPPTime = TimeProcessed / ByteRcved End If TotalPPBytesRcved = ByteRcvedEnd Sub
</script>
<% 'strFileName = "ex980210.log" 'Response.Write ("File name is <b>" & strFileName &"</b><br>") On Error Resume Next Call ProcessFile (strFileName, TotalAspHits, TotalPPHits, TotalPPBytesRcved, AvgAspTime, AvgPPTime)
If Err Then strResult = "<b>The requested log file does not exist.</b>" Else
strEol = "<br>" strBgnCol = "<tr><td width = 300>" strMidCol = "</td><td>" strEndCol = "</td><tr>"
strResult = "<h2>Server Name - " & Request.Servervariables ("SERVER_NAME") & "</h2>"
strResult = strResult & "<table><th colspan=2><b>Summary of Everest ASP Pages</b></th>" strResult = strResult & strBgnCol &"Total Hits" & strMidCol &TotalAspHits & strEndCol strResult = strResult & strBgnCol &"Average Processing Time (Msec/Hit) " & strMidCol & formatnumber(AvgAspTime, 1)& strEndCol strResult = strResult & "</table>"
strResult = strResult & "<br><br><table><th colspan=2><b>Summary of Everest ISAPI</b></th>" strResult = strResult & strBgnCol &"Total Hits (AddPrinter + Printing)" & strMidCol & TotalPPHits & strEndCol strResult = strResult & strBgnCol &"Total Bytes" & strMidCol &TotalPPBytesRcved & strEndCol strResult = strResult & strBgnCol &"Average Processing Time (Sec/Kb) " & strMidCol &formatnumber(AvgPPTime,1) & strEndCol strResult = strResult & "</table>" End If%><% =strResult%>
<hr>Send comment to <a href="mailto:[email protected]">Weihai Chen</a></center></body></html>
|
