📄 code 13.2.4-2.asp

📁 开发web_xml

💻 ASP

字号:

<%
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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -