日期:2014-05-16 浏览次数:20610 次
Set xmlHttp = CreateObject("Msxml2.ServerXMLHTTP")
xmlHttp.open "POST","http://domain/login.asp",False 'POST方法用同步方式打开链接,同步是指等待服务器返回全部内容后再进行下一步
xmlHttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded" 'POST提交表单前需要加这段
xmlHttp.send "user=" & user &"&password=" & password '提交参数,如果参数里有中文,必须首先把中文转换成URL编码
xmlHttp.open "GET","http://domain/logout.asp",False 'GET方法打开链接
xmlHttp.send
status = xmlHttp.status 'xmlHttp.status为返回代码
content = bytes2BSTR(xmlHttp.responseBody) '返回的内容
Set xmlHttp = Nothing