asp调用webservice

最新推荐文章于 2018-01-17 12:07:59 发布

原创最新推荐文章于 2018-01-17 12:07:59 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

asp 专栏收录该内容

22 篇文章

订阅专栏

本文介绍了一种使用VBS脚本通过调用WebService服务来获取IP地址对应地理位置的方法。具体实现包括创建HTTP对象请求指定URL并传递IP地址参数，解析返回的XML数据以提取地理位置信息。

<%
'根据IP地址返回地理位置
dim objHTTP, xmlDOC, strWebserviceURL, strRequest, bOK, xmlStr
Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP")
Set xmlDOC = Server.CreateObject("MSXML.DOMDocument")
strWebserviceURL = "http://webservice.webxml.com.cn/WebServices/IpAddressSearchWebService.asmx/getCountryCityByIp" 'WebService的URL
strRequest = "theIpAddress=127.0.0.1" '带参数的方法调用
objHTTP.Open "POST", strWebserviceURL, False
objHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.Send(strRequest)
bOK = xmlDOC.load(objHTTP.responseXML)
if objHTTP.Status=200 then
xmlStr = xmlDOC.text 'xmlDOC.text返回text格式 xmlDOC.xml返回xml文件格式
Response.Write xmlStr
else
Response.Write objHTTP.Status&" "
Response.Write objHTTP.StatusText
end if

%>