asp 调用web service 例子



Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "POST","http://localhost/lv/webservice/Lv.asmx/Returnlv",False
http.send
Set xml=Server.CreateObject("Microsoft.XMLDOM")
xml.Async=False
xml.ValidateOnParse=False
xml.Load(http.responseXML)
If xml.ReadyState>2 Then
      '  Response.Write("文档已经准备1就绪。状态:"& xml.ReadyState &"<br>")
        Set item=xml.getElementsByTagName("mzgtable")
  'response.write item.length
  showlvs="<select name=""lvs"">"
        For i=0 To (item.Length-1)
        Set title=item.Item(i).getElementsByTagName("id")
        Set link=item.Item(i).getElementsByTagName("name")


showlvs=showlvs&"<option value="&title.Item(0).Text&">"&Link.Item(0).Text&"</option>"

      '  Response.Write(title.Item(0).Text &"&nbsp;&nbsp;&nbsp;")
  'Response.Write(link.Item(0).Text &"<br>")

        Next
  showlvs=showlvs&"</select>"
Else
       'Response.Write("文档还未准备就绪。状态:"& xml.ReadyState &"<br>")
    Response.End()
End If
Set http=Nothing
Set xml=Nothing

Response.write showlvs

 



阅读更多
个人分类: asp程序
想对作者说点什么? 我来说一句

webservice接口调用实例

2017年08月10日 979B 下载

web service练习

2009年09月25日 2.12MB 下载

web service 调用 pb11开发工具做的

2009年06月05日 381KB 下载

没有更多推荐了,返回首页

不良信息举报

asp 调用web service 例子

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭