Web编程 订阅所有【Web编程】的日志

ASP调用Web Services示例

编辑:dnawo 日期:2009-03-12

字体大小: 小 中 大
复制内容到剪贴板程序代码 程序代码
<%
'功能: 调用Web Services
'参数：
'        url        Web Services地址
'        method    要调用的方法名称
'        args    传递给method方法的参数(值/对格式)
'返回: xml字符串
Function WebServices(url,method,args)
    Dim xmlHttp,sUrl
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    sUrl = url & "/" & method
    xmlHttp.Open "post",sUrl,false
    xmlHttp.SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
    xmlHttp.Send(args)
    If xmlHttp.Status = 200 Then
        WebServices = xmlHttp.responseXML.xml
    End If
    Set xmlHttp = Nothing
End Function

'调用示例：
'    Web Services：http://www.webxml.com.cn/WebServices/WeatherWS.asmx
'    getWeather方法：public string[] getWeather(string theCityCode, string theUserID);
Response.Write(WebServices("http://www.webxml.com.cn/WebServices/WeatherWS.asmx","getWeather","theCityCode=2210&theUserID="))
%>

还有一种方法是使用微软的SOAP Toolkit 3.0，代码如下：

复制内容到剪贴板程序代码 程序代码
<%
Dim soap
Set soap = CreateObject("MSSOAP.SoapClient30")
soap.ClientProperty("ServerHTTPRequest") = True
soap.mssoapinit "http://www.webxml.com.cn/WebServices/MobileCodeWS.asmx?wsdl", "","",""
Response.Write(soap.getMobileCodeInfo("13799438732",""))
Set soap = Nothing
%>

但使用SOAP Toolkit 3.0的缺点是必须在服务器上安装后才能使用！

-------------------------------------- 2009-05-24 补充 --------------------------------------
1).必须在Web Services项目配置文件(web.config)的system.web节点中添加以下内容：
复制内容到剪贴板程序代码 程序代码
<webServices>
  <protocols>
    <add name="HttpPost"/>
    <add name="HttpGet"/>
  </protocols>
</webServices>

否则，http://www.webxml.com.cn/WebServices/WeatherWS.asmx/getWeather?theCityCode=2210&theUserID=调用时会提示：因 URL 意外地以“/getWeather”结束，请求格式无法识别。

2).使用C#编写的Web Services对大小写是敏感的，所以调用的方法名一定要注意大小写，否则会出错。

3).如果参数值带中文，一定要注意编码，否则可能得不到你想要的结果。

上一篇: 懒人自有懒办法——雅酷互动flash as2简易教程第4篇
下一篇: 诺基亚5700打开WAP站乱码
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
最新日志:
评论: 0 | 引用: 0 | 查看次数: 4401
发表评论
请登录后再发表评论！