28,390
社区成员
发帖
与我相关
我的任务
分享
Other = rs("info")'从数据库中获取到的XML字符串
set xmldom=Server.CreateObject("MICROSOFT.XMLDOM")
xmldom.loadXML(Other) '加载XML字符串
'xmldom.load(Server.MapPath("tt.xml"))'直接加载xml文本
Set item=xmldom.getElementsByTagName("item")
For i=0 To (item.Length-1)
Set title=item.Item(i).getElementsByTagName("title")'获取title
set url=item.Item(i).getElementsByTagName("link")'获取link
response.Write "<a href="& url.Item(0).Text&" >"& title.Item(0).Text&"</a></br>" '输出
next
<item>
<reportid>1122145026</reportid>
<title>有人在论坛发表了新的帖子</title>
<link>bbs.asp?logid=20071122145026</link>
<datetime>2007-11-26 14:50:26</datetime>
</item>
<item>
<title>有人新建立了一个相册</title>
<link>album.asp?albumid=20071122145042</link>
<datetime>2007-11-26 14:50:48</datetime>
</item>
<item>
<title>有人在相册新上传了图片</title>
<link>albumview.asp?albumid=20071122145043</link>
<datetime>2007-11-26 14:56:22</datetime>
</item>
<item>
<title>有人在相册新上传了图片</title>
<link>albumview.asp?albumid=20071122145044</link>
<gourpid>10014</gourpid>
<datetime>2007-11-26 14:59:47</datetime>
</item>
dim xmldom,xml,item
xml="<body><item><reportid>1122145026</reportid><title>有人在论坛发表了新的帖子</title>"&_
"<link>bbs.asp?logid=20071122145026</link>"&_
"<datetime>2007-11-26 14:50:26</datetime></item>"&_
"<item><title>有人新建立了一个相册</title>"&_
"<link>album.asp?albumid=20071122145042</link>"&_
"<datetime>2007-11-26 14:50:48</datetime></item>"&_
"<item><title>有人在相册新上传了图片</title>"&_
"<link>albumview.asp?albumid=20071122145043</link>"&_
"<datetime>2007-11-26 14:56:22</datetime></item>"&_
"<item><title>有人在相册新上传了图片</title>"&_
"<link>albumview.asp?albumid=20071122145044</link>"&_
"<gourpid>10014</gourpid>"&_
"<datetime>2007-11-26 14:59:47</datetime></item></body>"
Set xmldom = Server.CreateObject("MICROSOFT.XMLDOM")
xmldom.loadXML(xml)
Set item=xmldom.getElementsByTagName("item")
For i=0 To (item.Length-1)
Set title=item.Item(i).getElementsByTagName("title")'获取title
set url=item.Item(i).getElementsByTagName("link")'获取link
response.Write "<a href="& url.Item(0).Text&" >"& title.Item(0).Text&"</a></br>" '输出
next
set item=nothing
set xmldom=nothing