使用WINDOWS腳本訪問WEB SERVICES

2024-07-21 02:21:19

字體：大中小

供稿：網(wǎng)友

商業(yè)源碼熱門下載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" '調(diào)用url（uri）
webmethodname = "http://www.chefbj.com/show_school" '調(diào)用方法名

'soap請求，需要根據(jù)具體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" '應(yīng)答文件
'''''''''''''''''''''''''''''''''''''''''''''''

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("請求已經(jīng)送出. http request status= " & requesthttp.status)

'將應(yīng)答記錄入文件
set objfso = createobject("scripting.filesystemobject")
set objtextfile = objfso.createtextfile(responsefile, true,true)

objtextfile.write(requesthttp.responsexml.xml)

objtextfile.close

上一篇：在WebService中利用SoapException處理業(yè)務(wù)流程執(zhí)行的錯誤

下一篇：web下水晶報(bào)表的使用！