如何用WebService返回的xml字符串来组装一个字符串(如何用javascript如何编写)

[yanminqiang]

<script language="vbscript">
sub GetClassList(m)
slm = m.value
set doc = dso.XMLDocument
'返回一个字符串
stPath = "Http://localhost/hello/XmlData/getArticleClass.asmx/GetClassByFatherId?keyword=" + slm
'document.write(stPath)
'if doc.xml="" then
Set doc = CreateObject("MSXML2.DOMDocument")
doc.async = False
doc.load stPath
'
doc.loadXML replace(replace(doc.xml,"<","<"),">",">")
dso.load doc
set doc = dso.XMLDocument
'end if
set nodeList=doc.documentElement.getElementsByTagname("Table")
pty = ""
for each node in nodeList
pty = pty & "<option value='" & node.selectSingleNode("ClassId").text & "'>" & node.selectSingleNode("ClassName").text &"</option>"
next
classTD.innerHtml = "<select class='cls_td_drpdwn' size='1' name='ClassId' id='ClassId' size='1'>" & pty & "</select>"
end sub
</script>

[yanminqiang]

我用vbScript写的,我如何用javascript来WebService调用,简单的说就是调用过来的xml字符串拼到一个下拉列表中

[yanminqiang]

<script language="vbscript">
sub GetClassList(m)
slm = m.value
set doc = dso.XMLDocument
'返回一个Xml字符串
stPath = "Http://localhost/hello/XmlData/getArticleClass.asmx/GetClassByFatherId?keyword=" + slm

Set doc = CreateObject("MSXML2.DOMDocument")
doc.async = False
doc.load stPath
'
doc.loadXML replace(replace(doc.xml,"<","<"),">",">")
dso.load doc
set doc = dso.XMLDocument

set nodeList=doc.documentElement.getElementsByTagname("Table")
pty = ""
for each node in nodeList
pty = pty & "<option value='" & node.selectSingleNode("ClassId").text & "'>" & node.selectSingleNode("ClassName").text &"</option>"
next
classTD.innerHtml = "<select class='cls_td_drpdwn' size='1' name='ClassId' id='ClassId' size='1'>" & pty & "</select>"
end sub
</script>

[saucer]

what does the webservice return? try to use webservice behavior

http://msdn.microsoft.com/library/default.asp?url=/workshop/author/webservice/overview.asp

http://msdn.microsoft.com/library/default.asp?url=/workshop/author/webservice/webservice.asp