| Visitor No. <% fp = Server.MapPath("aspcount.txt") Set fs = CreateObject("Scripting.FileSystemObject") if not fs.FileExists(fp) then Set a = fs.CreateTextFile(fp, True) ct=1 a.WriteLine(ct) a.Close else Set a = fs.OpenTextFile(fp,1,false) ct = cint(a.ReadLine) ct = ct + 1 Response.Write ct Session("ct") = ct a.close end if Set a = fs.OpenTextFile(fp,2) a.Write(ct) a.close %> |