如何将程序执行结果写入TXT文件？

[lcrainrock]

小弟想将以下程序的执行结果写入TXT文件中
<%
Dim psPath,Fso,Fil,S,S1,sIP,sL1,sL2
psPath=Server.MapPath("W3040131.txt")
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Set Fil=Fso.OpenTextFile(psPath)
S=Fil.ReadAll
if Instr(S,",")>0 then
S=split(s,vbcrlf)
for i=0 to ubound(S)
S1=split(S(i)&",",",")
if len(S1(0))>3 then
sIP=S1(0)
sL1=S1(12)
sL2=S1(13)
Response.write "IP="& sIP &"   发送字节=" & sL1 &"   接收字节=" & sL2 &"<br/>"
end if
Next
End if
请问如何写入，最好能在以上代码进行修改。希望各位高手指点！

[lcrainrock]

KimSoft对不起哦，你给的代码已经调试成功，但日志文件中有近80M的特大日志文件，用你给的程序打开后机器就显示超过或死机！我想先将需要的内容输出，精简使文件变小后也许可能打开，所以有次一问。
谢谢yiyioo和jspadmin的指点。

[Hellohuan]

用追加应该不会有问题吧,我写udclub.com的时候也担心读不了大文件 就全部用SCRIPT追加到后面了

[KimSoft]

上次好象问过这个问题了，我不是已经回了么？!!!

[yiyioo]

Set f = fso.OpenTextFile(psPath, 模式, True)
模式=1，只读
模式=2，写入，不能读
模式=3，追加

然后你可以用f.write "连续写"
也可以用f.WriteLine “一行一行写”

[jspadmin]

Set Fil=Fso.OpenTextFile(psPath,3,true)
Fil.write "IP="& sIP &"   发送字节=" & sL1 &"   接收字节=" & sL2 &"<br/>"

[yiyioo]

模式=3，追加

错了
不好意思

不知道刚才写的时候在想什么~~~~
应该是
模式=8，追加