<%
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"
%>
Log File Summary for Everest Project
Log File Summary for Everest Project
This web page is designed to view the summary of the internet log
files. Please select the date of the log file and click on the submit button.
<%
'strFileName = "ex980210.log"
'Response.Write ("File name is " & strFileName &"
")
On Error Resume Next
Call ProcessFile (strFileName, TotalAspHits, TotalPPHits, TotalPPBytesRcved, AvgAspTime, AvgPPTime)
If Err Then
strResult = "The requested log file does not exist."
Else
strEol = "
"
strBgnCol = "| "
strMidCol = " | "
strEndCol = " |
"
strResult = "Server Name - " & Request.Servervariables ("SERVER_NAME") & "
"
strResult = strResult & "| Summary of Everest ASP Pages | "
strResult = strResult & strBgnCol &"Total Hits" & strMidCol &TotalAspHits & strEndCol
strResult = strResult & strBgnCol &"Average Processing Time (Msec/Hit) " & strMidCol & formatnumber(AvgAspTime, 1)& strEndCol
strResult = strResult & "
"
strResult = strResult & "
| Summary of Everest ISAPI | "
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 & "
"
End If
%>
<% =strResult%>
Send comment to Weihai Chen