首頁>網絡編程教程>ASP教程

ASP呼叫WEBSERVICE文檔

作者：Eve Cole 更新時間：2009-06-24 17:22:25

----INDEX----
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&”&nbsp;”
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,"<","&lt;")
xmlStr = Replace(xmlStr,">","&gt;")
Response.write xmlStr
Else

Response.Write xmlhttp.Status&"&nbsp;"
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&"&nbsp;"
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<>"" thestring&"<BR>節點名稱："&rootname if nodeobj.text<>"" thestring&"<BR>節點名稱："&rootname if nodeobj.text<>"" thestring&"<BR>節點名稱："&rootname

if nodeobj.text<>"" thestring&n
returnstring=returnstring&"<BR>節點的文字：​​("&nodeobj.text&")"
end if

returnstring=returnstring&"<BR>{<BR>"

if nodeAttributelen<>0 then
returnstring=returnstring&"<BR>屬性數有&nbsp; "&nodeAttributelen&" 個,分別是："
end if

for i=0 to nodeAttributelen-1
returnstring=returnstring&"<li>"&nodeobj.attributes(i).Name&":&nbsp;"&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&"&nbsp;"
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&”&nbsp;”
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&"&nbsp;"
Response.Write xmlhttp.StatusText

End if


以上是ASP用XMLHTTP元件發送SOAP請求，呼叫WEBSERVICE的方法，本人推薦在ASP環境下使用第一種方法，如果有更好的方法請聯絡本人mailto:[email protected] .使用HTTP GET的方式如果有中文會出問題，數據量又不大。用HTTP POST的方法感覺多此一舉，其實上面的例子就是用POST的方式，只不過不是用POST的請求。用SOAP TOOLKIT要裝軟體，而且已經沒有後繼版本。 ---全文完
相關文章