vbspost

最新推荐文章于 2022-07-14 17:02:10 发布

zzl1120

最新推荐文章于 2022-07-14 17:02:10 发布

阅读量559

点赞数

文章标签： function

本文链接：https://blog.csdn.net/zzl1120/article/details/7709247

版权

dim xh
set xh=server.CreateObject("msxml2.xmlhttp")
xh.open "get","http://x.cn/form/h/e.asp?p=23",false
xh.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
xh.send "pp=222"
response.write xh.responseText
response.write BytesToBstr(xh.responseBody)
Function BytesToBstr(body,Cset) 
dim objstream 
set objstream = Server.CreateObject("adodb.stream") 
objstream.Type = 1 
objstream.Mode =3 
objstream.Open 
objstream.Write body 
objstream.Position = 0 
objstream.Type = 2 
objstream.Charset = Cset 
BytesToBstr = objstream.ReadText 
objstream.Close 
set objstream = nothing 
End Function