mostRecentScriptingNews.xml
<?xml version="1.0" encoding="gb2312"?>
<SCRIPTINGNEWS>
<HEADER>
<COPYRIGHT>版权所有</COPYRIGHT>
<scriptingNewsVersion>1.0</scriptingNewsVersion>
<PUBDATE>Wed, 03 Mar 1999 08:00:00 GMT</PUBDATE>
<LASTBUILDDATE>Thu, 04 Mar 1999 03:37:03 GMT</LASTBUILDDATE>
</HEADER>
<ITEM>
<TEXT>baidu</TEXT>
<LINK>
<URL>http://www.baidu.com</URL>
<LINETEXT>百度</LINETEXT>
</LINK>
</ITEM>
<ITEM>
<TEXT>乐事网</TEXT>
<LINK>
<URL>http://www.it214.net</URL>
<LINETEXT>021lucky</LINETEXT>
</LINK>
</ITEM>
</SCRIPTINGNEWS>
程序代码
<%
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
Set objLst = Server.CreateObject("Microsoft.XMLDOM")
Set objHdl = Server.CreateObject("Microsoft.XMLDOM")
objXML.async = False
objXML.Load (Server.MapPath("mostRecentScriptingNews.xml"))
If objXML.parseError.errorCode <> 0 Then
'处理错误
End If
Set objLst = objXML.getElementsByTagName("ITEM")
noOfHeadlines = objLst.length
%>
<html>
<body>
<H1>新闻</H1>
<%
For i = 0 To (noOfHeadlines -1)
Set objHdl = objLst.item(i)
Response.Write("<a href=""" & _
objHdl.childNodes(1).childNodes(0).text & _
""">" & objHdl.childNodes(0).text & _
"</a><br>")
Next
%>