dim fso,txt,rline
on error resume next
rline="我是要存到txt中的内容"
Set fso = CreateObject("Scripting.FileSystemObject") '创建FSO对象
Set txt = fso.OpenTextFile(server.mappath("sample.txt"),8) '以追加模式打开sample.txt,若不存在,则创建
txt.writeline rline
if err then
response.write "写入日志失败"
response.write rline
end if
on error goto 0