HOME > ASP > ASP Forum > ทำไมถึงเขียนไฟล์ไม่ได้ครับ คือผมต้องการเขียนข้อมูลลงไฟล์ซึ่งเป็น ตัวเลข แต่พอรันโปรแกรมมันก็แจ้ง error ว่า Error Type: Microsoft VBScript runtime (0x800A0046) Permission denied
<%
Set objFS= Server.CreateObject("Scripting.FileSystemObject")
Set objRF= objFS.OpenTextFile(Server.MapPath("result.txt"))
dim SelectC(4)
SelectC(0)=objRF.ReadLine
SelectC(1)=objRF.ReadLine
SelectC(2)=objRF.ReadLine
SelectC(3)=objRF.ReadLine
SelectC(4)=objRF.ReadLine
objRF.Close
Set objRF =Nothing
answer=Request.Form("select")
Select Case answer
Case 0
SelectC(0)=SelectC(0)+1
Case 1
SelectC(1)=SelectC(1)+1
Case 2
SelectC(2)=SelectC(2)+1
Case 3
SelectC(3)=SelectC(3)+1
Case 4
SelectC(4)=SelectC(4)+1
End Select
Set objRF= objFS.OpenTextFile(Server.MapPath("result.txt"),2)
objRF.WriteLine SelectC(0)
objRF.WriteLine SelectC(1)
objRF.WriteLine SelectC(2)
objRF.WriteLine SelectC(3)
objRF.WriteLine SelectC(4)
objRF.Close
Set objRF = Nothing
Set objFS = Nothing
Response.Redirect "show.asp"
%>