Using ASP to write a simple daily flow, maximum daily traffic statistics

Using ASP to write a simple daily flow, maximum daily traffic statistics
-----------------------------------------------------------------------------
<%
' #########-statistics today, maximum daily flow-##########
Sub My_today_counter ()
Day1 = CStr (date ()) ' ######-get current date
Day_counter_file = Server.MapPath ("Counter/day_counter.ini") ' ######-Specify counter file
Set fo = Server.CreateObject ("Scripting.FileSystemObject")
Set get_old = fo. OpenTextFile (day_counter_file,1,false,false) ' ######-read record file
Day2 = Get_old. ReadLine
Today_counter = Get_old. ReadLine
Get_old.close
Application ("todays") = Today_counter
Set out = fo. CreateTextFile (Day_counter_file,true,false)
If day1 = Day2 Then ' #######-write today Traffic
Out. WriteLine (Day2)
Today_counter = Today_counter + 1
Out.writeline (Today_counter)
Out. Close
Else ' ######-a new day, summarizing maximum daily traffic
Max_day_counter_file = Server.MapPath ("Counter/max_day_counter.ini")
Set Outmax = fo. OpenTextFile (Max_day_counter_file,1,false,false)
Day3 = Outmax.readline
Maxdaycounter = Outmax.readline ' ######-read maximum daily traffic record
Outmax.close
Application ("maxday") = Maxdaycounter ' ######-maximum daily flow
If Today_counter-maxdaycounter>0 then ' ######-yesterday traffic is greater than maximum daily traffic record
Application ("maxday") = Today_counter ' ######-maximum daily flow
Set Outmax = Fo.createtextfile (max_day_counter_file,true,false)
Outmax.writeline (day2) ' ######-if Day2 has maximum daily flow
Outmax.writeline (today_counter) ' ######-write maximum daily traffic record
Outmax.close
End If
Out.writeline (day1) ' ######-Create a new day traffic statistics file
Today_counter = 1
Out. WriteLine (Today_counter)