<%@ Language=VBScript%> <% dim fs,f,x set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.OpenTextFile(Server.MapPath("hit_countZXAXS.txt"),1,true) x=f.ReadLine() f.Close set f=fs.OpenTextFile(Server.MapPath("hit_countZXAXS.txt"),2,true) x=CInt(x)+1 f.WriteLine(x) f.Close set fs=nothing %>