<%
dim body
body=""
for i=1 to 10
body=body & "i="&i&"" & vbcrlf
next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(server.MapPath("/temp.txt"),true)
fout.writeline body
fout.close
set fout=nothing
set fso=nothing
%>
向FSO写入
fso.write("
")
向FSO写入换行
fso.write("vbcrlf")
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024