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 &" ")
'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