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
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格式如下:




ASP:



































