code 13.2.4-1.asp

来自「开发web_xml」· ASP 代码 · 共 21 行

<%
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
     handle the error
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
%>