?%
CounterFile = Server.MapPath ("count.txt")
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
%>
位访问者，日均?
0?
