<% ''创建一个xml的对象 set objXmlDom=server.CreateObject("Microsoft.XMLDOM") ''指定XML文件的下载是否与XML的处理异步进行 objXmlDom.async = false ''获得xml文件的目录与文件名 fileStr = Server.MapPath("channel.xml") ''加载xml文件 objXmlDom.load(fileStr) '获得父节点的对象 set parentNodes= objXmlDom.documentElement.selectSingleNode("//root") '得到子节点的长度 childNodesLength=parentNodes.ChildNodes.Length '遍历子节点的属性和节点 for i=0 to childNodesLength-1 set objChile=parentNodes.ChildNodes(i) if objChile.GetAttribute("channelID")=Request("upid") then title=objChile.selectSingleNode("title").text keywords=objChile.selectSingleNode("keywords").text description=objChile.selectSingleNode("description").text Response.Write(""&title&"") Response.Write("") Response.Write("") exit for end if next %>

免费试听

<% h=GetLocationURL() h1=Split(h,"/") h=Replace(h,h1(UBound(h1)),"head.xml") Set http=Server.CreateObject("Microsoft.XMLHTTP") http.Open "GET",h,False http.send Set xml=Server.CreateObject("Microsoft.XMLDOM") xml.Async=False xml.ValidateOnParse=False xml.Load(http.ResponseXML) If xml.ReadyState>2 Then Set item=xml.getElementsByTagName("item") For i=0 To (item.Length-1) Set title=item.Item(i).getElementsByTagName("title") Set link=item.Item(i).getElementsByTagName("link") Response.Write(""& title.Item(0).Text &"") Next Else Response.Write("文档还未准备就绪。状态:"& xml.ReadyState &"") End If Set http=Nothing Set xml=Nothing %> 更多
全部试听