来源:职业欠钱&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
最终功能
%>