复制代码

代码如下:
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