用 ASP 編寫簡單的日流量，最大日流量統計
-----------------------------------------------------------------------------

<%
'#########- 統計今日流量，最大日流量 -##########

Sub My_Today_Counter()

    day1 = cstr(date())    '######- 獲得當前日期
    Day_Counter_File = Server.MapPath("Counter/Day_counter.ini")    '######- 指定計數器文件

    set fo = Server.CreateObject("scripting.filesystemobject")
    set get_old = fo.OpenTextFile( Day_Counter_File,1,false,false)    '######- 讀取記錄文件
    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        '#######- 寫入今日流量
        out.WriteLine( day2 )
        Today_Counter = Today_Counter + 1
        out.writeline( Today_Counter )
        out.Close

    Else                '######- 新的一天，總結最大日流量
        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        '######- 讀取最大日流量記錄
        OutMax.Close

        Application("MaxDay") = MaxDayCounter    '######- 最大日流量

        if Today_Counter-MaxDayCounter>0 then    '######- 昨日流量大于最大日流量記錄
        Application("MaxDay") = Today_Counter    '######- 最大日流量
        Set OutMax = fo.createtextfile(Max_Day_Counter_File,true,false)
        OutMax.WriteLine( day2 )        '######- 如果 day2 有最大日流量
        OutMax.WriteLine( Today_Counter )    '######- 寫入最大日流量記錄
        OutMax.Close
    End If

    Out.WriteLine( day1 )        '######- 創建新一天的日流量統計文件
    Today_Counter = 1
    out.WriteLine( Today_Counter )
    out.Close
    end if

End Sub
    Application.Lock    '鎖定
    My_Today_Counter    '調用過程
    Application.UnLock    '解開鎖定

%>


<td align=center CLASS=BIG><a href="JavaScript:alert('從二零零一年五月一日至今，明日網總流量︰<% =Application("counter") %> 今日︰<%=Application("todays")%> 最忙︰<%=Application("MaxDay")%> (人次)  ')" onmouseover="window.status='點擊查看流量統計信息'; return true;" onmouseout="window.status=''; return true;">流量統計</a>



===========================================================================
保證以上程序正常運行必須先在此文件運行目錄 /counter 下建兩個文件

（1）Day_counter.ine
文件內容︰

01-11-23
1


（2）Max_Day_Counter.ine
文件內容︰

01-11-22
1


<!--##########- 01-11-23 是服務器今天日期-->