asp WinHttp的使用方法,常用到GET,POST提交数据

更新时间:2020年05月17日 09:16:18
人气:125
分类: ASP
function Postdel(Data) 
	Dim XmlHttp,RetStr
	PostUrla="https://www.2asp.cn"
	Set xmlHttp= server.CreateObject("WinHttp.WinHttpRequest.5.1")
	xmlHttp.Open "POST",PostUrla,False
	xmlHttp.setRequestHeader "User-Agent","Mozilla/5.0 (iPhone; U; CPU iPhone OS 3_0 like Mac OS X; en-us) AppleWebKit/528.18 (KHTML, like Gecko)Version/4.0 Mobile/7A341 Safari/528.16"
	xmlHttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded; charset=UTF-8"
	xmlHttp.setRequestHeader "referer","https://www.2asp.cn"
	xmlHttp.setRequestHeader "Pragma","no-cache"
	xmlHttp.setRequestHeader "Connection","keep-alive"
	xmlHttp.setRequestHeader "Cache-Control","no-cache"
	xmlHttp.setRequestHeader "Host","m.weibo.cn"
	xmlHttp.setRequestHeader "cookie","SUB=dddd.."
	xmlHttp.Send "uid="&Data
	if Err.Number<>0 then
	  set xmlHttp=Nothing
	 Postdel="$False$"
	  Exit Function
	end if
      Postdel=bytesToStr(xmlHttp.responseBody,"UTF-8")
	Set xmlHttp=Nothing
End Function

调用方法 

postdel(数据) or call postdel(数据)

【版权声明】

本文仅代表作者观点,不代表本站立场。本文系作者授权发表,未经许可,不得转载。

相关文章
# 在线留言