您是第：<% CounterFile = Server.MapPath ("/kjsk/jsq/count.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 %>853683 <% startdate = DateDiff("d",Now,"02/17/2006") if startdate < 0 then startdate = startdate * -1 avgvpd= Int((usercnt)/startdate) %>位访问者