[ASP.NET] Call ASP.NET Web Service From ASP Sample Code

2012-03-03

3546
0

這幾天遇到一個整合需求，需要提供客戶一個Sample Code 用來

Call ASP.NET Web Service ，而客戶的系統目前還是ASP撰寫且沒有這方面的

經驗，因此需要我們提供技術支援，但我也有點久沒寫ASP了，即然寫了Sample Code

因此就順手memo一下

基本上用ASP Call ASP.NET Web Service ，大致有二個方式

(1)以SOAP Toolkit來進行

(2)以XMLHTTP來進行

但由於以SOAP Toolkit來進行時需要額外安裝SOAP Toolkit，而且SOAP Toolkit已經

停止發展了，因此就直接選擇以XMLHTTP來進行

範例程式碼如下：


Dim xmlhttp
Dim parameters
Dim wsurl

'建立xmlhttp obj
Set xmlhttp = server.Createobject("MSXML2.XMLHTTP")

'ASP.NET Web Service所需參數
parameters="companycode=H&groupcode=420" 

'ASP.NET Web Service路徑
'若是有多個Methods，直接再加要呼叫的Method Name，以本例來說就是要呼叫service1.Exec Method
wsurl="http://localhost:20112/Services/Service1.asmx/Exec"

xmlhttp.Open "POST",wsurl,false
xmlhttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
xmlhttp.send parameters

'判斷xmlhttp obj狀態
if xmlhttp.readystate=4 then

	....
	....
	....

end if

說明：

(1)XMLHTTP的狀態可由readyState Code判斷，共有五種情況

0	UNINITIALIZED The object has been created, but not initialized (the open method has not been called).
1	LOADING The object has been created, but the send method has not been called.
2	LOADED The send method has been called, but the status and headers are not yet available.
3	INTERACTIVE Some data has been received. Calling the responseBody and responseText properties at this state to obtain partial results will return an error, because status and response headers are not fully available.
4	COMPLETED All the data has been received, and the complete data is available in the responseBody and responseText properties.