用 ASP 编写简单的日流量，最大日流量统计

用 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 是服务器今天日期–>