ci provo:
codice:
<%
Response.AddHeader "Cache-Control","no-cache, must-revalidate"
Response.AddHeader "Pragma","no-cache"
Dim Fso,Fp
level = Request.QueryString("level")
If IsNull(level) Or (level = "") Then level = 1
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set Fp = Fso.OpenTextFile(Server.MapPath("level" & level & ".txt"),1,true)
i = 0
While Not Fp.AtEndOfStream
'Ma 1000 per fgets intende byte o char?
line = Fp.Read(1000)' Nel caso intendevi linea [line = " & Fp.ReadLine]
Response.Write "&asparray" & i & "=" & line
i = i + 1
Wend
Set Fp = Nothing
Set Fso = Nothing
%>