ASP调用WEBSERVICE(转)

最新推荐文章于 2013-10-22 17:39:35 发布

转载最新推荐文章于 2013-10-22 17:39:35 发布 · 144 阅读

·

0

·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/ztotem/archive/2008/04/11/1148739.html

文章标签：

本文介绍了一种使用ASP.NET编写的WebService的调用方法，通过VBScript发送SOAP请求，并处理返回的XML数据。具体展示了如何构建SOAP消息、设置HTTP头部以及解析返回的响应。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

要注意Namespace不能写错了。

<%@language=vbscript codepage=936 %>

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

</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>

转载于:https://www.cnblogs.com/ztotem/archive/2008/04/11/1148739.html

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。