asp 写文件

'写文件
Sub WriteToTextFile (FileUrl,byval Str,CharSet)
set fso = Server.CreateObject("Scripting.FileSystemObject")
set file = fso.OpenTextFile(Server.MapPath(FileUrl),2,true) '1读取 2写入 8追加
file.write Str
file.close
set file = nothing
set fso = nothing
End Sub