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>