來源：職業欠錢＆ZJ1244共用的publicBlog
複製代碼代碼如下：
<％
str =“ xxxid =”＆逃生（請求（“ fk”））
url =“ http://xxx.chinaxxx.com/invistion.asp”
Response.WritePostData（url，str）
功能Postdata（Posturl，Postcok）
dimhttp
sethttp = server.createobject（“ msxml2.serverxmlhttp”）
使用
.Open"GET",PostUrl,False
.setRequestheader“ cookie”，postcok
。發送
postdata = .responsebody
端
sethttp =沒有
postdata = bytes2bstr（postdata）
最終功能
FunctionBytes2BSTR（VIN）
Dimstrreturn
dimi，thischcode，nextcharcode
strreturn =“”
fori = 1TOLENB（VIN）
thischcode = ascb（midb（vin，i，1））
ifthischarcode <＆h80
Strreturn = Strreturn＆Chr（此charcode）
別的
NextCharCode = ASCB（MIDB（VIN，I+1,1））
strreturn = Strreturn＆Chr（Clng（thisCharCode）*＆H100+Cint（NextCharCode））
i = i+1
Endif
下一個
bytes2bstr = strreturn
最終功能
％>