ASP、VBScript使用XML

VBScript:

Dim xmlDoc
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = false
xmlDoc.load("http://172.16.168.33:8012/getstatus.php?username=" & userName)
If xmlDoc.ReadyState>2 Then '读取完毕
Set myitem=xmlDoc.getElementsByTagName("Result") '读取Result标记
strStatus = myitem.item(0).text
set xmlDoc = nothing
end if

XML格式如下：


<?xml version="1.0" encoding="gb2312" ?>


- <Root>


<Result>-1</Result>


</Root>

ASP:


Set http=Server.CreateObject("Microsoft.XMLHTTP")


http.Open "GET","http://localhost/xml.xml",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("文档已经准备就绪。状态："& xml.ReadyState &"<br>")


Set item=xml.getElementsByTagName("item")


For i=0 To (item.Length-1)


Set title=item.Item(i).getElementsByTagName("title")


Set link=item.Item(i).getElementsByTagName("link")


Response.Write("<a href="""& link.Item(0).Text &""">"& title.Item(0).Text &"</a><br>")


Next


Else


Response.Write("文档还未准备就绪。状态："& xml.ReadyState &"<br>")


End If


Set http=Nothing


Set xml=Nothing




xml.xml文档的内容如下：




<?xml version="1.0" encoding="utf-8"?>


<channel>


<item>


<title>测试文档1</title>


<link>http://localhost/</link>


</item>


<item>


<title>测试文档2</title>


<link>http://localhostindex.asp</link>


</item>


</channel>