mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
235 lines
6.8 KiB
235 lines
6.8 KiB
<%
|
|
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 log
|
|
files. 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 = ByteRcved
|
|
End 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>
|