ASP如何調用webservice

1. soap請求方式
2. post請求方式
3. SHOWALLNODE函數(關於節點各屬性和資料顯示)

一．SOAP請求樣本

　　下面是一個 SOAP 請求樣本。所顯示的預留位置需要由實際值替換。

POST /WebService1/UserSignOn.asmx HTTP/1.1
Host: 192.100.100.81
Content-Type: text/xml; charset=utf-8
Content-Length: length
SOAPAction: "http://tempuri.org/LoginByAccount"

＜?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＞
＜LoginByAccount xmlns="http://tempuri.org/"＞
＜username＞string＜/username＞
＜password＞string＜/password＞
＜/LoginByAccount＞
＜/soap:Body＞
＜/soap:Envelope＞

　　為了與WEBSERVICE互動，需要構造一個與上完全相同的SOAP請求：

＜%
url = "http://192.100.100.81/WebService1/UserSignOn.asmx"

SoapRequest="＜?xml version="&CHR(34)&"1.0"&CHR(34)&" encoding="&CHR(34)&"utf-8"&CHR(34)&"?＞"& _
"＜soap:Envelope xmlns:xsi="&CHR(34)&"http://www.w3.org/2001/XMLSchema-instance"&CHR(34)&" "& _
"xmlns:xsd="&CHR(34)&"http://www.w3.org/2001/XMLSchema"&CHR(34)&" "& _
"xmlns:soap="&CHR(34)&"http://schemas.xmlsoap.org/soap/envelope/"&CHR(34)&"＞"& _
"＜soap:Body＞"& _

"＜LoginByAccount xmlns="&CHR(34)&"http://tempuri.org/"&CHR(34)&"＞"& _
"＜username＞"&username&"＜/username＞"& _
"＜password＞"&password&"＜/password＞"& _
"＜/LoginByAccount＞"& _

"＜/soap:Body＞"& _
"＜/soap:Envelope＞"

Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
xmlhttp.Open "POST",url,false
xmlhttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
xmlhttp.setRequestHeader "HOST","192.100.100.81"
xmlhttp.setRequestHeader "Content-Length",LEN(SoapRequest)
xmlhttp.setRequestHeader "SOAPAction", "http://tempuri.org/LoginByAccount" ‘一定要與WEBSERVICE的命名空間相同，否則服務會拒絕
xmlhttp.Send(SoapRequest)
‘這樣就利用XMLHTTP成功發送了與SOAP樣本所符的SOAP請求.
‘檢測一下是否成功：
Response.Write xmlhttp.Status&”  ”
Response.Write xmlhttp.StatusText
Set xmlhttp = Nothing
%＞
如果成功會顯示200 ok,不成功會顯示 500 內部伺服器錯誤? Connection: keep-alive .
成功後就可以利用WEBSERVICE的響應，如下：
SOAP響應樣本
下面是一個 SOAP 響應樣本。所顯示的預留位置需要由實際值替換。
HTTP/1.1 200 OK
Content-Type: text/xml; charset=utf-8
Content-Length: length

＜?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＞
＜LoginByAccountResponse xmlns="http://tempuri.org/"＞
＜LoginByAccountResult＞string＜/LoginByAccountResult＞
＜/LoginByAccountResponse＞
＜/soap:Body＞
＜/soap:Envelope＞
這是與剛才SOAP請求樣本所對應的SOAP響應樣本,在成功發送請求後，就可以查看該響應 ：
If xmlhttp.Status = 200 Then

Set xmlDOC =server.CreateObject("MSXML.DOMDocument")
xmlDOC.load(xmlhttp.responseXML)
xmlStr = xmlDOC.xml
Set xmlDOC=nothing
xmlStr = Replace(xmlStr,"＜","< ")
xmlStr = Replace(xmlStr,"＞","> ")
Response.write xmlStr
Else

Response.Write xmlhttp.Status&"  "
Response.Write xmlhttp.StatusText

End if
請求正確則給出完整響應，請求不正確（如帳號，密碼不對）響應的內容就會資訊不完整.
取出響應裡的資料，如下：
If xmlhttp.Status = 200 Then

Set xmlDOC = server.CreateObject("MSXML.DOMDocument")
xmlDOC.load(xmlhttp.responseXML)
Response.Write xmlDOC.documentElement.selectNodes("//LoginByAccountResult")(0).text ‘顯示節點為LoginByAccountResult的資料(有編碼則要解碼)
Set xmlDOC = nothing

Else

Response.Write xmlhttp.Status&"  "
Response.Write xmlhttp.StatusText


End if

顯示某節點各個屬性和資料的FUNCTION：

Function showallnode(rootname,myxmlDOC)'望大家不斷完鄯 2005-1-9 writed by 844
if rootname＜＞"" then

set nodeobj=myxmlDOC.documentElement.selectSingleNode("//"&rootname&"")'當前結點對像
nodeAttributelen=myxmlDOC.documentElement.selectSingleNode("//"&rootname&"").attributes.length'當前結點屬性數

returnstring=returnstring&"＜BR＞節點名稱："&rootname

if nodeobj.text＜＞"" then
returnstring=returnstring&"＜BR＞節點的文本：("&nodeobj.text&")"
end if

returnstring=returnstring&"＜BR＞{＜BR＞"

if nodeAttributelen＜＞0 then
returnstring=returnstring&"＜BR＞屬性數有  "&nodeAttributelen&" 個,分別是："
end if

for i=0 to nodeAttributelen-1
returnstring=returnstring&"＜li＞"&nodeobj.attributes(i).Name&":  "&nodeobj.getAttribute(nodeobj.attributes(i).Name)&" ＜/li＞"
next

if nodeobj.childNodes.Length＜＞0 then
if nodeobj.hasChildNodes() and lcase(nodeobj.childNodes.item(0).nodeName)＜＞"#text" then'是否有子節點
set childnodeobj=nodeobj.childNodes
childnodelen=nodeobj.childNodes.Length
returnstring=returnstring&"＜BR＞＜BR＞有 "&childnodelen&" 個子節點; ＜BR＞分別是: "
for i=0 to childnodelen-1
returnstring=returnstring&"＜li＞"&childnodeobj.item(i).nodeName&"＜/li＞"
next
end if
end if

returnstring=returnstring&"＜BR＞}＜BR＞"
response.write returnstring
set nodeobj=nothing
end if
End Function

可以這樣用：
If xmlhttp.Status = 200 Then

Set xmlDOC = server.CreateObject("MSXML.DOMDocument")
xmlDOC.load(xmlhttp.responseXML)
showallnode "LoginByAccountResponse",xmlDOC’調用SHOWALLNODE
Set xmlDOC = nothing

Else

Response.Write xmlhttp.Status&"  "
Response.Write xmlhttp.StatusText

End if

二．POST請求樣本
HTTP POST
下面是一個 HTTP POST 請求樣本。所顯示的預留位置需要由實際值替換。
POST /WebService1/UserSignOn.asmx/LoginByAccount HTTP/1.1
Host: 192.100.100.81
Content-Type: application/x-www-form-urlencoded
Content-Length: length

username=string&password=string
構造POST請求:
＜%
url = "http://192.100.100.81/WebService1/UserSignOn.asmx/LoginByAccount"

SoapRequest="username="&username&"&password="&password

Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
xmlhttp.Open "POST",url,false
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"’注意
xmlhttp.setRequestHeader "HOST","192.100.100.81"
xmlhttp.setRequestHeader "Content-Length",LEN(SoapRequest)

xmlhttp.Send(SoapRequest)
‘這樣就利用XMLHTTP成功發送了與HTTP POST樣本所符的POST請求.
‘檢測一下是否成功：
Response.Write xmlhttp.Status&”  ”
Response.Write xmlhttp.StatusText
Set xmlhttp = Nothing
%＞
如果成功會顯示200 ok,不成功會顯示 500 內部伺服器錯誤? Connection: keep-alive .
成功後就可以利用WEBSERVICE的響應，如下：
HTTP POST
下面是一個 HTTP POST 響應樣本。所顯示的預留位置需要由實際值替換。
HTTP/1.1 200 OK
Content-Type: text/xml; charset=utf-8
Content-Length: length

＜?xml version="1.0" encoding="utf-8"?＞
＜string xmlns="http://tempuri.org/"＞string＜/string＞


顯示：
If xmlhttp.Status = 200 Then

Set xmlDOC = server.CreateObject("MSXML.DOMDocument")
xmlDOC.load(xmlhttp.responseXML)
showallnode "string",xmlDOC'調用SHOWALLNODE
Set xmlDOC = nothing

Else

Response.Write xmlhttp.Status&"  "
Response.Write xmlhttp.StatusText

End if