ASP、VBScript使用XML

本文展示了使用VBScript和ASP两种方式从XML文件中提取数据的具体实现方法。通过实例代码介绍了如何加载XML文档、获取节点信息及处理文档状态等关键步骤。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

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>
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值