|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。流量|统计用ASP编写复杂的日流量,最年夜日流量统计
-----------------------------------------------------------------------------
<%
#########-统计昔日流量,最年夜日流量-##########
SubMy_Today_Counter()
day1=cstr(date())######-取得以后日期
Day_Counter_File=Server.MapPath("Counter/Day_counter.ini")######-指定计数器文件
setfo=Server.CreateObject("scripting.filesystemobject")
setget_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
Setout=fo.CreaTetextFile(Day_Counter_File,true,false)
ifday1=day2then#######-写进昔日流量
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")
SetOutMax=fo.OpenTextFile(Max_Day_Counter_File,1,false,false)
day3=OutMax.Readline
MaxDayCounter=OutMax.ReadLine######-读取最年夜日流量纪录
OutMax.Close
Application("MaxDay")=MaxDayCounter######-最年夜日流量
ifToday_Counter-MaxDayCounter>0then######-昨日流量年夜于最年夜日流量纪录
Application("MaxDay")=Today_Counter######-最年夜日流量
SetOutMax=fo.createtextfile(Max_Day_Counter_File,true,false)
OutMax.WriteLine(day2)######-假如day2有最年夜日流量
OutMax.WriteLine(Today_Counter)######-写进最年夜日流量纪录
OutMax.Close
EndIf
Out.WriteLine(day1)######-创立新一天的日流量统计文件
Today_Counter=1
out.WriteLine(Today_Counter)
out.Close
endif
EndSub
Application.Lock锁定
My_Today_Counter挪用历程
Application.UnLock解开锁定
%>
<tdalign=centerCLASS=BIG><ahref="JavaScript:alert(从二零零一年蒲月一日至今,嫡网总流量:<%=Application("counter")%>昔日:<%=Application("todays")%>最忙:<%=Application("MaxDay")%>(人次))"onmou搜索引擎优化ver="window.status=点击检察流量统计信息;returntrue;"onmou搜索引擎优化ut="window.status=;returntrue;">流量统计</a>
===========================================================================
包管以上程序一般运转必需先在此文件运转目次/counter下建两个文件
(1)Day_counter.ine
文件内容:
01-11-23
1
(2)Max_Day_Counter.ine
文件内容:
01-11-22
1
<!--##########-01-11-23是服务器明天日期-->
</p>问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时. |
|