HTTP请求

请求的返回方式

WEB方式请求	刷新当前页 开启一个新的IE窗口：提交表单<form target ="_blank"
XMLHTTP	XMLHTTP对象得到
SOAPTOOL	SOAPTOOL对象得到

请求的应用范围

	IE中
	IE中，应用程序中

请求在IE中的安全级别

	任意
	Win2003 SP1 默认可使用
	Win2003 SP1 默认加入信任站点可使用

请求组件的发布方式

	不需
	XML  DOM 3 /4/5/6安装包 IE6默认带XML  DOM 3
	SOAPTOOL 2.0 3.0 安装包

WEB页GET方式请求ASPX

URL方式	http://localhost/ajax/s_get.aspx?Text1=wxd&Text2=lzm
WEB页	<form id="get_form" action ="s_get.aspx" method ="get" >     <input name="Text1" type="text" />     <input name="Text2" type="text" /><br />     <input id="Reset1" type="reset" value="reset" />     <input id="Submit1" type="submit" value="submit" /> </form>
ASPX	{ s_get.aspx}         Dim a = Request.QueryString("Text1")         Dim b = Request.QueryString("Text2")         Me.Response.Write(a + b)         Me.Response.End()         Me.Response.Write("你不应看到这条信息")

WEB页POST方式请求ASPX

	<form id="get_form" action ="s_post.aspx" method="post" >
	{ s_POST.aspx}         Dim a = Request.Form.Item("Text1")         Dim b = Request.Form.Item("Text2")

WEB页POST方式请求WebService

	<form id="get_form" action ="WebService.asmx/HelloWorld" method="post" >  </form>
asmx	{WebService.asmx} <WebMethod()> _ Public Function HelloWorld(ByVal Text1 As String, ByVal Text2 As String) As String         Return Text1 + Text2 End Function
返回值	<?xml version="1.0" encoding="utf-8"?> <string xmlns="http://tempuri.org/">string</string>

XMLHTTP使用POST方式请求ASPX

<input type=button name=wxd value="请求"> <script language=vbs> dim aa 'xmlhttp对象 sub wxd_onclick '按钮单击事件  set aa = createobject("microsoft.xmlhttp")  aa.onreadystatechange=getref("aaa") '请求有响应时的回调程序  aa.open "POST","s_POST.aspx",True '使用POST方式，导步请求  '在HTTP协议中，指定请求的方式为POST ，setRequestHeader方法要在open后使用  aa.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"  aa.send "Text1=1&Text2=2"'开始请求，POST方式为数据的串方式 end sub sub aaa '请求有响应时的回调程序  select case aa.readystate     case 0        '0:没初始化     case 1        '1: 对象已建立,但尚未连接     case 2        '2:正在加载文件中     case 3        '3: 文件加载完成,正在检查正确性        case 4        '4:得到返回信息,可以使用接收         msgbox aa.responsetext '显示返回的内容  end select </script>

XMLHTTP使用GET方式请求ASPX

	aa.open "GET","s_get.aspx?Text1=wxd&Text2=lzm",true'使用GET方式，导步请求  aa.send "" '开始请求，GET方式为空，POST方式为数据     case 0       '0:没初始化     case 1       '1: 对象已建立,但尚未连接     case 2       '2:正在加载文件中     case 3       '3: 文件加载完成,正在检查正确性             case 4       '4:得到返回信息,可以使用接收
	Dim a = Request.QueryString("Text1")

XMLHTTP使用POST方式请求WEBService

aa.open "POST","WebService.asmx/HelloWorld",True '使用POST方式，导步请求  '在HTTP协议中，指定请求的方式为POST  aa.send "Text1=1&Text2=2" '开始请求，POST方式为数据的串方式     case 0        '0:没初始化        msgbox aa.readystate     case 1        '1: 对象已建立,但尚未连接         msgbox aa.readystate     case 2        '2:正在加载文件中     case 3        '3: 文件加载完成,正在检查正确性            msgbox aa.readystate         case 4        '4:得到返回信息,可以使用接收

XMLHTTP使用SOAP 1.1方式请求WebService

	aa.open "POST","WebService.asmx",True '使用POST方式，导步请求  '在HTTP协议中，指定请求的方式为SOAP1.1 ，setRequestHeader方法要在open后使用  '-------------SOAP 1.1　的HTTP头------------------------- ‘-关于SOAP1.1/ 1.2 的头格式与返回格式，可参查看WEBSERVICE的WEB页说明  aa.setRequestHeader "Content-Type", "text/xml; charset=utf-8"  aa.setRequestHeader "Content-Length", "1024" '数值为请求的字节数，可以不写  aa.setRequestHeader "SOAPAction", "http://tempuri.org/HelloWorld"  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^  xml="<?xml version=""1.0"" encoding=""utf-8""?><soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/""> <soap:Body>    <HelloWorld xmlns=""http://tempuri.org/""><Text1>wxd</Text1><Text2>lzm</Text2></HelloWorld></soap:Body></soap:Envelope>"  msgbox xml  aa.send xml '开始请求，POST方式为数据的串方式     case 0        '0:没初始化     case 2        '2:正在加载文件中     case 3        '3: 文件加载完成,正在检查正确性        case 4        '4:得到返回信息,可以使用接收         msgbox aa.responseText '显示返回的内容
	<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">  <soap:Body>     <HelloWorldResponse xmlns="http://tempuri.org/">       <HelloWorldResult>wxdlzm</HelloWorldResult>     </HelloWorldResponse>  </soap:Body> </soap:Envelope

SOAPTOOL请求WebService

	set soapclient = CreateObject("MSSOAP.SoapClient30") '建立引用 '指定asmx的WSDL soapclient.mssoapinit "http://localhost:1026/ajax/WebService.asmx?WSDL" '调用WebService的方法HelloWorld，传参，并得到返回值 val= SoapClient.HelloWorld ("wxd","lzm") msgbox val