<% Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP") Set xmlDOC =Server.CreateObject("MSXML.DOMDocument") strWebserviceURL = "http://www.ydcom.net/service/S_COMM.asmx/GetCZID" ''''设置参数及其值 strRequest = "sTypeNum=311" objHTTP.Open "POST", strWebserviceURL, False ''''设置这个Content-Type很重要 objHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded" objHTTP.SetRequestHeader("Content-Length: 30") objHTTP.Send(strRequest) bOK = xmlDOC.load(objHTTP.responseXML) ''''看看状态值 if objHTTP.Status=200 then xmlStr = xmlDOC.xml Response.Write xmlStr else Response.Write objHTTP.Statu&" " Response.Write objHTTP.StatusText end if %>
实例:如何使用asp调用服务产生18位关键值 asp源文件代码
Dim strxml As String Dim str As String str = Text2.Text ''''定义soap消息 strxml = "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/''''>" & str & "" ''''定义一个http对象,一边向服务器发送post消息 Dim h As MSXML2.ServerXMLHTTP40 ''''定义一个XML的文档对象,将手写的或者接受的XML内容转换成XML对象 Dim x As MSXML2.DOMDocument40 ''''初始化XML对象 Set x = New MSXML2.DOMDocument40 ''''将手写的SOAP字符串转换为XML对象 x.loadXML strxml ''''初始化http对象 Set h = New MSXML2.ServerXMLHTTP40 ''''向指定的URL发送Post消息 h.open "POST", "http://localhost/TestWebService/Service1.asmx", False h.setRequestHeader "Content-Type", "text/xml" h.send (strxml) While h.readyState <> 4 Wend ''''显示返回的XML信息 Text1.Text = h.responseText ''''将返回的XML信息解析并且显示返回值 Set x = New MSXML2.DOMDocument40 x.loadXML Text1.Text Text1.Text = x.childNodes(1).Text