<%
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Set objRF=objFS.OpenTextFile("/test.txt")
Dim ChoiceArray(3)
ChoiceArray(0)=objRF.Readline
ChoiceArray(1)=objRF.Readline
ChoiceArray(2)=objRF.Readline
ChoiceArray(3)=objRF.Readline
%>
<%
answer=Request.Form("choice")
select case answer
case 1
ChoiceArray(0)=ChoiceArray(0)+1
case 2
ChoiceArray(1)=ChoiceArray(1)+1
case 3
ChoiceArray(2)=ChoiceArray(2)+1
case 4
ChoiceArray(3)=ChoiceArray(3)+1
End select
%>
<%
Set objRF=objFS.OpenTextFile("/test.txt",2)
objRF.Writeline ChoiceArray(0)
objRF.Writeline ChoiceArray(1)
objRF.Writeline ChoiceArray(2)
objRF.Writeline ChoiceArray(3)
objRF.Close
Set objRF=Nothing
Set objFS=Nothing
%>
<%
response.write "Thank"
%>
ผลลัพธ์ บอกว่า
บรรทัดนี้ Set objRF=objFS.OpenTextFile("/test.txt",2)
file not found ค่ะ
<%
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Set objRF=objFS.OpenTextFile("/test.txt")
Dim ChoiceArray(3)
ChoiceArray(0)=objRF.Readline
ChoiceArray(1)=objRF.Readline
ChoiceArray(2)=objRF.Readline
ChoiceArray(3)=objRF.Readline
%>
<%
answer=Request.Form("choice")
select case answer
case 1
ChoiceArray(0)=ChoiceArray(0)+1
case 2
ChoiceArray(1)=ChoiceArray(1)+1
case 3
ChoiceArray(2)=ChoiceArray(2)+1
case 4
ChoiceArray(3)=ChoiceArray(3)+1
End select
%>
<%
Set objRF=objFS.OpenTextFile("/test.txt",2)
objRF.Writeline ChoiceArray(0)
objRF.Writeline ChoiceArray(1)
objRF.Writeline ChoiceArray(2)
objRF.Writeline ChoiceArray(3)
objRF.Close
Set objRF=Nothing
Set objFS=Nothing
%>
<%
response.write "Thank"
%>
Load balance : Server 02
