ตัวอย่างสำหรับเก็บในเท็กซ์ไฟล์
<%
dim FilePath
FilePath=Server.MapPath("visitor.txt")
Set ObjFile = CreateObject("Scripting.FileSystemObject")
Set ObjStream = ObjFile.OpenTextFile(FilePath,1)
temp = ObjStream.ReadLine
ObjStream.Close
Set ObjStream=Nothing
if session("visitor") = "" then
temp = temp + 1
Set ObjStream = ObjFile.OpenTextFile(FilePath,2)
ObjStream.WriteLine temp
ObjStream.Close
Set ObjStream = Nothing
Session("visitor") = temp
End if
Set ObjFile=Nothing
%>
สำหรับในฐานข้อมูลก็คงจะเก็บแบบธรรมดาไม่มีอะไรมากมายนัก
Load balance : Server 05
