奇威羊的程式甜甜圈

web service內容請參考gipi大大的網址：

http://www.dotblogs.com.tw/jimmyyu/archive/2009/04/20/8072.aspx

僅就傳一個參數而言，將參數傳至Web Service

‘strUrl:Web Service網址，strHostIP: Web Service Host IP，strConvertType: Web Service function名稱，strConvertString:要簡繁轉換的字串 CharSetConverter(strUrl, strHostIP, strConvertType, strConvertString) dim SoapRequest dim xmlhttp dim xmlDOC dim xmlStr SoapRequest="<?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>"& _ "<ToSimplified xmlns=""http://tempuri.org/"">"& _ "<pSource>"&strConvertString&"</pSource>"& _ "</ToSimplified>"& _ "</soap:Body>"& _ "</soap:Envelope>" 'response.write SoapRequest & "<br>" Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP") xmlhttp.Open "POST",strUrl,false xmlhttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8" xmlhttp.setRequestHeader "HOST",strHostIP xmlhttp.setRequestHeader "Content-Length",LEN(SoapRequest) xmlhttp.setRequestHeader "SOAPAction", "http://tempuri.org/" & strConvertType xmlhttp.Send(SoapRequest) If xmlhttp.Status = 200 Then Set xmlDOC =server.CreateObject("MSXML.DOMDocument") xmlDOC.load(xmlhttp.responseXML) xmlStr = showallnode("ToSimplifiedResult",xmlDOC) Set xmlDOC=nothing 'xmlStr = Replace(xmlStr,"＜","< ") 'xmlStr = Replace(xmlStr,"＞","> ") 'Response.write xmlStr Else xmlStr = "" 'Response.Write xmlhttp.Status&" " 'Response.Write xmlhttp.StatusText End if Set xmlhttp = Nothing CharSetConverter = xmlStr end function

從Web Service解析回傳值

Function showallnode(rootname,myxmlDOC) if rootname <> "" then dim nodeobj dim nodeAttributelen dim returnstring set nodeobj=myxmlDOC.documentElement.selectSingleNode("//"&rootname&"") nodeAttributelen=myxmlDOC.documentElement.selectSingleNode("//"&rootname&"").attributes.length returnstring =nodeobj.text end if set nodeobj=nothing showallnode= returnstring End Function