ASP调用WEBSERVICE(转)

首先发送请求，然后处理响应。我用.net写的WebService，直接访问，点击方法名称可以看到实例代码，只需要在asp中使用Microsoft.XMLHTTP发送请求，然后处理xml的结果就行了。

要注意Namespace不能写错了。

<%@language=vbscript codepage=936 %>

<head>

</head>

<body>

Dim strxml

Dim str

'定义soap消息

strxml = "<?xml version='1.0' encoding='utf-8'?>"

strxml = strxml & "<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/'>"

strxml = strxml & "<soap:Body> "

strxml = strxml & "<Decrypt xmlns='http://192.168.3.239:8000/3des/'>"

strxml = strxml & "<strIn>4Dv5esfHAh0=</strIn>"

strxml = strxml & "<strKey>Not.ceNte</strKey>"

strxml = strxml & "</Decrypt>"

strxml = strxml & "</soap:Body>"

strxml = strxml & "</soap:Envelope>"

Set h = createobject( "Microsoft.XMLHTTP")

'向指定的URL发送Post消息

h.open "POST", "http://192.168.3.239:8000/3des/Service.asmx", False

h.setRequestHeader "Content-Type", "text/xml; charset=utf-8"

h.setRequestHeader "Content-Length",LEN(strxml)

h.setRequestHeader "SOAPAction", "http://192.168.3.239:8000/3des/Decrypt"

h.send (strxml)

'显示返回的XML信息

If h.Status = 200 Then

Set xmlDOC = server.CreateObject("MSXML.DOMDocument")

xmlDOC.load(h.responseXML)

str = xmlDOC.childNodes(1).Text ''调用SHOWALLNODE

'遍历并取出xml中的一个节点

Set Node = xmlDOC.getElementsByTagName("RegionID")

'for x=Node.length-1 to 0 step -1

regMgrID = Node.item(0).Text

'next

Set xmlDOC = nothing

response.write(str)

Else

Response.Write h.Status &" "

Response.Write h.StatusText

End if

</body>

</html>