<%@ LANGUAGE = VBScript %> <%option explicit %> <% response.buffer=true %> <% dim fs,a,readline Session.Timeout=1 Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(Server.Mappath("count.txt")) readline = Clng(a.ReadLine) if Session("readline") = "" then Session("readline") = readline readline = readline + 1 a.close Set a = fs.CreateTextFile(Server.Mappath("count.txt"), True) a.WriteLine(readline) end if a.Close Response.ContentType = "application/x-javascript" 'Response.Write "" %>