asp读写txt

关键词:asp读写txt



下面是一个读写访问次数的案例, 在同级目录下有个number.txt



<%

CounterFile = Server.MapPath ("number.txt")

Set fso = CreateObject("Scripting.FileSystemObject")

On Error Resume Next

Set a = fso.OpenTextFile(CounterFile, 1, 0, 0)

temp_number = a.Readline

set fso = Nothing

temp_number = FormatNumber(temp_number + 1,0)

Set fso = CreateObject("Scripting.FileSystemObject")

set b = fso.CreateTextFile (CounterFile, 1, 0)

b.WriteLine temp_number

Set b = Nothing

Response.Write temp_number

%>



关键词:asp读写txt