用 ASP 编写简单的日流量,最大日流量统计
来源:互联网 发布:java调用weka分类算法 编辑:程序博客网 时间:2024/04/30 01:13
用 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 是服务器今天日期-->
- 用 ASP 编写简单的日流量,最大日流量统计
- 截止2010年3月25日的流量统计
- 用asp文件制作的网站流量统计工具
- mapreduce实现简单的流量统计功能
- android 流量的统计
- android 流量的统计
- 流量统计的原理
- android 流量的统计
- 流量压缩软件的流量统计原理
- 如何应对网站流量波动:流量日记法
- 提问式网站推广 日流量1000+
- 流量统计
- 流量统计
- 流量统计
- 流量统计
- 流量统计
- 流量统计
- 流量统计
- XML 1.0规范(W3C建议)
- 一个面向对象的应用程序框架介绍-FVision
- Windows消息机制初谈
- 基于中间件的查询优化模型
- 具有自动查找Web页面上所有链接的网络浏览器
- 用 ASP 编写简单的日流量,最大日流量统计
- 明日网全功能超级文件上传管理系统 V1.0 源码发布
- Unixware 7.1.1 安装补遗
- EAServer (JaguarCts)开发者必读
- DELPHI中OPENGL图形程序设计
- ORACLE与MS SQL之间的数据迁移
- 我看vc6中虚继承的实现
- C++中的内部连接与外部连接(一)
- C++中的内部连接与外部连接(二)