code 13.2.4-2.asp

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

ASP
35
字号
<%
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
     handle the error
End If

Set objLst = objXML.getElementsByTagName("item")

noOfHeadlines = objLst.length
%>

<HTML><BODY>
<H1>Scripting News Headlines</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
%>

</BODY></HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?