<%
If Session("statmentor_date1") = "" Then
Response.Redirect "selectperiod.asp"
End If
%>
<%
Function GetFormattedDate( dDate )
Dim sMonth, sDay
sMonth = DatePart( "m", dDate)
If Len(sMonth) = 1 Then
sMonth = "0" & sMonth
End If
sDay = DatePart( "d", dDate)
If Len(sDay) = 1 Then
sDay = "0" & sDay
End If
GetFormattedDate = DatePart( "yyyy", dDate ) & sMonth & sDay
End Function
Function GetPageViewCount2( dDate1, dDate2 )
If dDate1 = "" Then
dDate1 = "1900-01-01"
End If
If dDate2 = "" Then
dDate2 = "2020-01-01"
End If
Dim sName1, sName2
sName1 = "PVSUM_" & GetFormattedDate( dDate1 ) & ".log"
sName2 = "PVSUM_" & GetFormattedDate( dDate2 ) & ".log"
'Walk through all files
Dim fs, f, f1, fc, s, oFile, sText, filedate, filedatename, filetotal, count
filetotal = 0
count = 0
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Server.MapPath("/ctrfiles/stats/"))
Set fc = f.Files
For Each f1 in fc
If Left( f1.name,6) = "PVSUM_" Then
If f1.name >= sName1 AND f1.name <= sName2 Then
Set oFile = fs.OpenTextFile(f1)
sText = oFile.ReadLine
filedate = Right(Left(f1.name,12),2) & "/" & Right(Left(f1.name,14),2) & "/" & Right(Left(f1.name,10),4)
filedatename = WeekdayName(Weekday(filedate))
Response.Write("| " & "" & filedatename & "" & " " & filedate & " " & "(" & sText & ")" & " " & " | ![]() |
")
oFile.close
filetotal = filetotal + int(sText)
count = count + 1
End If
End If
Next
Set fs = Nothing
Response.Write("
" & filetotal & " Total Hits for the Period of: " & Session("statmentor_date1") & " To " & Session("statmentor_date2") & "
With an average of:
" & Round(filetotal / count,2) & " Per day
" & Round(filetotal / count / 24,2) & " Per Hour
" & Round(filetotal / count / 1440,2) & "Per Minute |
")
End Function
%>
<%
%>
<%=strtitle%>
|
<%=straddress%>
|
<%=strtitle%> Stats
|
| Trends
|
Selected period
From: <%
If Session("statmentor_date1")<> "" Then
Response.Write Session("statmentor_date1")
End If%>
To: <%
If Session("statmentor_date2")<> "" Then
Response.Write Session("statmentor_date2")
End If%>
|
|
<%StatWriteMenu%> |
Page Hit Trend Based on Selected Period:
|
|
|
|