|
|
||||||||||||||||||||
|
谢谢你的光临!现在本页面访问次数是:
<%
CounterFile = Server.MapPath ("usercount.cnt")
Set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set a = fs.OpenTextFile(CounterFile, 1, 0, 0)
usercnt = a.Readline
set fs = Nothing
usercnt = FormatNumber(usercnt + 1,0)
Set fs = CreateObject("Scripting.FileSystemObject")
set b = fs.CreateTextFile (CounterFile, 1, 0)
b.WriteLine usercnt
Set b = Nothing
Response.Write usercnt
%>
Since 8/28/2004 日平均流量
<% startdate = DateDiff("d",Now,"8/28/2004")
if startdate < 0 then startdate = startdate * -1
avgvpd= Int((usercnt)/startdate)
%>
<% Response.Write(avgvpd) %>
策划: 刘新光 指导老师: 张志珍 侯敢 生物化学与分子生物学教研室信息员制作 Copyright © 2004 广东医学院生物化学与分子生物学教研室 All rights reserved. |
|||||||||||||||||||||