在本例中,XML文档引用了一个DTD(Document Type Definition,文档类型定义)文件,parseError在此具有更重要的意义。在这里,如果要求不出现错误,那么XML文档不仅必须格式良好(Well formed),而且它还必须对于指定DTD定义来说合法。装载XML文档之后总是检查一下parseError对象是一个好的编程习惯。
<%
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
Set objLst = Server.CreateObject("Microsoft.XMLDOM")
objXML.async = False
objXML.Load (Server.MapPath("mostRecentScriptingNews.xml"))
If objXML.parseError.errorCode <> 0 Then
&single; 处理错误
End If
Set objLst = objXML.getElementsByTagName("*")
For i = 0 to (objLst.length ?1)
If objLst.item(i).nodeName = "pubDate" Then
StrDate = objLst.item(i).text
Exit For
End If
Next
%>
<%
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
&single; 处理错误
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
%>