用ASP把資料寫入text檔案--當log很好用

<% 
dim fs, f 
set fs=Server.CreateObject("Scripting.FileSystemObject") 
set f=fs.OpenTextFile(server.MapPath("test.txt"),8,false,-2) 
f.WriteLine("Hello World!")
f.WriteLine("How are you today?")
f.WriteLine("Goodbye!")

f.Close

Set R=fs.OpenTextFile(Server.MapPath("test.txt"), 1)
do while R.AtEndOfStream = false
Response.Write(R.ReadLine)
Response.Write("
")
loop

set f=nothing
set fs=nothing
%>
參考http://www.w3school.com.cn/asp/met_opentextfile.asp