HOME > ASP > ASP Forum > ช่วยดู code global.asa ทีค่ะ คือว่าเวลาเปิดเข้าเว็บมาก็ปกติ ค่ะ แต่จะเปิดไม่ขึ้นถ้า ข้ามลิงค์ไม่เข้าหน้าแรกหรือไฟล์ใน folder แรกก่อน กับถ้าเปิดไปดูส่วนอื่นหรือ sub folder
If Session("visitor")="" Then
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Set objRF=objFS.OpenTextFile(Server.MapPath("text/counter.txt"))
visitor_no=objRF.ReadLine
objRF.Close
Set objRF=Nothing
visitor_no=visitor_no+1
Set objRF=objFS.OpenTextFile(Server.MapPath("text/counter.txt"), 2)
objRF.WriteLine visitor_no
objRF.Close
Set objRF=Nothing
Session("visitor")=visitor_no
End If
Set objFS=Nothing
End Sub
Sub Application_OnStart
Application ("WhoOn") = 0
End Sub
Sub Application_OnEnd
End Sub
sub Session_OnEnd
Application.Lock
Application("online") = Application("online") -1
Application.Unlock
End Sub
</script>
คือว่าเวลาเปิดเข้าเว็บมาก็ปกติ ค่ะ แต่จะเปิดไม่ขึ้นถ้า ข้ามลิงค์ไม่เข้าหน้าแรกหรือไฟล์ใน folder แรกก่อน
กับถ้าเปิดไปดูส่วนอื่นหรือ sub folder ย่อยไปเรื่อยๆ เปิดค้างไว้สัก 20นาที พอกด refresh หรือกดไปดู sub folder อื่น จะขึ้น error ทันที แต่ถ้ากดไปหน้า index ใน folder หลักก็จะหาย
อันนี้ error ที่ขึ้นค่ะ
Microsoft VBScript runtime error '800a004c'
Path not found
/LM/w3svc/595516981/root/global.asa, line 12
บันทัดที่ 12 คือ บันทัดนี้ค่ะ
Set objRF=objFS.OpenTextFile(Server.MapPath("text/counter.txt"))
Load balance : Server 04
