ผมไม่เคยเขียน asp นะคับ แต่ผมต้องแก้ไขหน้าเว็บที่เป็น asp โดยการต้องสร้าง counter ขึ้น แต่เก็บไว้ใน text.file ผมใช้ตัวจำลอง server เป็น Appserv นะคับ แล้วก้อลองค้นหาโค้ดในอินเตอร์เน็ตได้ดังนี้
Code (ASP)
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Wfile=server.mappath("\") & "\cgi-bin\counter777614.txt"
on error resume next
Set a = fs.OpenTextFile(Wfile)
hits = Clng(a.ReadLine)
hits = hits + 1
a.close
if error then
hits = 1
end if
Set a = fs.CreateTextFile(Wfile,True)
a.WriteLine(hits)
a.Close
%>
Load balance : Server 03
