小弟想将以下程序的执行结果写入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
请问如何写入，最好能在以上代码进行修改。希望各位高手指点！
