Read and Write to file using ASP

Sat Jul 14, 2012 1:16 am

In this example we read and write counter to file using ASP page

Code:: <% Const ReadConst=1 Const WriteConst=2 Dim OpenFileobj, MyFSO,MyFilePath,myCounter MyFilePath=Server.MapPath("myCounter.txt") Set MyFSO = Server.CreateObject("Scripting.FileSystemObject") if MyFSO.fileExists(MyFilePath) Then Set OpenFileobj = MyFSO.OpenTextFile(MyFilePath, ReadConst) myCounter = OpenFileobj.ReadLine Response.Write myCounter OpenFileobj.Close Set OpenFileobj = Nothing Reading of files is over , now let us start writing new count value to file Set OpenFileobj = MyFSO.OpenTextFile(MyFilePath, WriteConst) myCounter=myCounter+1 OpenFileobj.Write(myCounter) OpenFileobj.Close Set OpenFileobj = Nothing Else Response.Write "File does not exist" End if Set MyFSO = Nothing %>