使用WINDOWS脚本访问WEB SERVICES

2024-07-21 02:21:19

字体：大中小

来源：转载

供稿：网友

商业源码热门下载www.html.org.cn

'''''''''''''''''''''''''''''''''''''''''''''''
'modiay by x
' 2003-12-30
'''''''''''''''''''''''''''''''''''''''''''''''
const forreading = 1, forwriting = 2, forappending = 8 '文件操作常量
'''''''''''''''''''''''''''''''''''''''''''''''
webserviceurl = "http://www.chefbj.net/webservices/school.asmx" '调用url（uri）
webmethodname = "http://www.chefbj.com/show_school" '调用方法名

'soap请求，需要根据具体web services web方法更改
sentrequest="<?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>"_
& "<show_school xmlns='http://www.chefbj.com'>"_
& "<password>chef</password>"_
& "</show_school>"_
& "</soap:body>"_
& "</soap:envelope>"

responsefile="request.xml" '应答文件
'''''''''''''''''''''''''''''''''''''''''''''''

set requesthttp = createobject("microsoft.xmlhttp")

requesthttp.open "post", webserviceurl, false

requesthttp.setrequestheader "content-type", "text/xml"
requesthttp.setrequestheader "charset", "utf-8"
requesthttp.setrequestheader "soapaction", webmethodname

requesthttp.send sentrequest

msgbox("请求已经送出. http request status= " & requesthttp.status)

'将应答记录入文件
set objfso = createobject("scripting.filesystemobject")
set objtextfile = objfso.createtextfile(responsefile, true,true)

objtextfile.write(requesthttp.responsexml.xml)

objtextfile.close

上一篇：在WebService中利用SoapException处理业务流程执行的错误

下一篇：web下水晶报表的使用！

学习交流

如何查找有故障的配件

如何查找有故障的配件...

热门图片

猜你喜欢的新闻

猜你喜欢的关注