Asp調用WebService案例

ASP調用Web服務案例
<%
'通過asp程式訪問webService服務，取出議案並顯示。
'取出參數公司代碼（code）
'code = trim(Request("code"))
code = "012345"

'定義變數，議案的內容
dim strContent,strFlag
%>

<%
Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP")
Set xmlDOC =Server.CreateObject("MSXML.DOMDocument")
'strWebserviceURL="http://"+request.ServerVariables("SERVER_NAME")+":8008/CenterWS/CenterWS.asmx/Get_Blance"
'strWebserviceURL="http://IP:連接埠/CenterWS/CenterWS.asmx/Get_Blance"
'strWebserviceURL="http://IP:連接埠號碼/CenterWS/CenterWS.asmx/Get_Blance"
''strWebserviceURL="http://localhost:8008/CenterWS/CenterWS.asmx/Get_Blance"
strWebserviceURL="http://www.luckstock.net/CenterWS/CenterWS.asmx/Get_Blance"
tmp="RegisterInfoXML=<?xml version='1.0' encoding='gb2312'?><CorpInfo><Authorization><User>BillSurveyJoin</User><Password>xxYtrq2v7Nmrsw1</Password><Role>BillSurveyJoin</Role></Authorization><AppInfo><UserInfo ActionFlag='1'><add key='codes' value='"&code&"' /></UserInfo></AppInfo></CorpInfo>"
'Response.Write tmp

objHTTP.Open "POST", strWebserviceURL, False
objHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"

objHTTP.Send(tmp)
on error resume next

bOK = xmlDOC.load(objHTTP.responseXML)
on error resume next
'Response.Write objHTTP.Status  
'Response.Write xmlStr

if objHTTP.Status=200 then
    xmlStr = xmlDOC.xml
    xmlStr = Replace(xmlStr,"&lt;","<",1,-1,1)
    xmlStr = Replace(xmlStr,"&gt;",">",1,-1,1)
    'Response.Write xmlStr
    'Response.Write xmlDOC.documentElement.selectNodes("//string")(0).text
    strFlag = xmlDOC.documentElement.childNodes.item(0).text 
    
    if strFlag = "" or strFlag = "-1" then
       strContent = "本公司目前暫無發起新的資訊！"
    else
       strContent = strFlag
       
    end if
    'Response.Write strContent
else
    strContent = "提取資訊失敗！"
    'Response.Write objHTTP.StatusText
end if
%>