<%
'กำหนดพาธของเซิร์ฟเวอร์ (ในที่นี้คือ /shop)
'กำหนดใช้เท็กซ์ไฟล์เพื่อเก็บค่าตัวนับ (อย่าลืมใส่ค่าเริ่มต้นให้ ex09_12.txt)
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
HitsFile = Server.MapPath ("\projectifla") & "\ex09_12.txt"
'กำหนดให้เปิดไฟล์ตามแม็พพาธ ด้วยคำสั่ง FileObject.OpenTextFile
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
'เพิ่มค่าครั้งละ 1 เมื่อรีเฟซ หรือเปิดใหม่
OldHits = Trim(InStream.ReadLine)
NewHits = OldHits + 1
'เขียนค่าใหม่ทับค่าเดิมด้วยคำสั่ง FileObject.CreateTextFile โดยรับค่าทางตัวแปร
Set OutStream= FileObject.CreateTextFile (HitsFile, True)
OutStream.WriteLine(NewHits)
%>
<%'แสดงตัวนับออกทางบราวเซอร์%>
