<% Set ObjFs = Server.CreateObject("Scripting.FileSystemObject") StrFilePath = Server.MapPath("counter.txt") Set ObjRf = ObjFs.OpenTextFile(StrFilePath) visitor_no = ObjRf.ReadLine ObjRf.Close Set ObjRf = Nothing If Session("visitor") = "" Then visitor_no = visitor_no + 1 Set ObjRf = ObjFs.OpenTextFile(StrFilePath,2) ObjRf.WriteLine visitor_no ObjRf.Close Set ObjRf = Nothing Session("visitor") = visitor_no End If Set ObjFs = Nothing Function f_counter() for i = 1 to len(visitor_no) strimage= strimage&"" next f_counter = strimage End Function %> ดาวน์โหลดแบบฟอร์ม