01 <% 02 dim fs, f 03 set fs=Server.CreateObject("Scripting.FileSystemObject") 04 set f=fs.OpenTextFile(server.MapPath("test.txt"),8,false,-2) 05 f.WriteLine("Hello World!") 06 f.WriteLine("How are you today?") 07 f.WriteLine("Goodbye!") 08 f.Close 09 10 Set R=fs.OpenTextFile(Server.MapPath("test.txt"), 1) 11 do while R.AtEndOfStream = false 12 Response.Write(R.ReadLine) 13 Response.Write("<br>") 14 loop 15 16 set f=nothing 17 set fs=nothing 18 %>
<%