来源：职业欠钱＆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
最终功能
％>