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:



































