ztotem

ASP调用WEBSERVICE(转)

首先发送请求，然后处理响应。我用.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 &"&nbsp;" 
   Response.Write h.StatusText 
End if 

%> 
</body>
</html> 

 

posted on 2008-04-11 17:03 ztotem 阅读(48) 评论(3)  编辑 收藏 网摘

评论

#1楼  2008-04-15 17:59 juxiaoqi [未注册用户]

学习了   回复  引用    

#2楼  2008-09-17 17:11 幽幽猪 [未注册用户]

可以请教一下关于这个调用的问题吗?   回复  引用    

#3楼  2008-09-17 17:13 幽幽猪 [未注册用户]

我的QQ是8520194,想请教一下关于ASP调用WebService的,希望能够帮忙,谢谢   回复  引用    


标题  
姓名  
主页
Email (博主才能看到) 
验证码 *  看不清,换一张 [登录][注册]
内容(请不要发表任何与政治相关的内容)  
网站首页

新闻频道

社区

小组

博问

网摘

人才

找找看
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      
该文被作者在 2008-09-18 22:37 编辑过
Google站内搜索

相关文章:

相关链接:



最新IT新闻:
后“开放”平台时代
李彦宏首次表态竞价排名问题:有错能改善莫大焉
杨致远发表博客解释辞职原因
微软公布免费安全软件计划
《时代》：杨致远被Google玩弄于股掌之间？