ตัวอย่างนี้
<%
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Set objRF=objFS.OpenTextFile(Server.MapPath("/m/manpower3000/counter.txt"))
visitor_no=objRF.ReadLine
objRF.Close
Set objRF=Nothing
If Session("visitor")="" Then
visitor_no=visitor_no+1
Set objRF=objFS.OpenTextFile(Server.MapPath("/m/manpower3000/counter.txt"), 2)
objRF.WriteLine visitor_no
objRF.Close
Set objRF=Nothing
Session("visitor")=visitor_no
End If
Set objFS=Nothing
%>
รันไม่ได้
มันแจ้ง EEOR บรรทัดนี้
Set objRF=objFS.OpenTextFile(Server.MapPath("/m/manpower3000/counter.txt"), 2)
Tag : - - - -
Date :
19 ธ.ค. 2547 16:55:17
By :
เจมส์
View :
3112
Reply :
1
No. 1
Guest
มันหา file นั้นๆไม่เจอน่ะสิคะ ลองเปลี่ยน path ของ file ดู
เช่น new text file ขึ้นมาใหม่ชื่อ counter.txt ใน folder เดียวกับที่คุณใส่ file ที่มี code นี้ไว้ แล้วเปลี่ยน code เป็น
Set objRF=objFS.OpenTextFile(Server.MapPath("counter.txt"), 2)
Load balance : Server 05
