杂七杂八XML

<!--#Include file="inc/Conn.Asp"-->
<%
'xml文件路径
strSourceFile = Server.MapPath("xml/focus.xml")

'创建对象
Set objXML = Server.CreateObject("Microsoft.XMLDOM")

'async选项设置成'False'，是为了告诉浏览器中的XML解析器：一边读取XML文档，一边进行数据显示
objXML.async = False

'载入xml文件，不等于0表示载入错误
objXML.load(strSourceFile)
If objXML.parseError.ErrorCode <> 0 Then
Response.Write("文件载入错误")
End If

'笨方法吧，我不知道，先读出有多少个节点，循环删除
Set root=objXML.getelementsbytagname("item")
for i=1 to root.length
Set delObj=objXML.SelectSingleNode("//item")
objXML.documentElement.RemoveChild(delObj)
next
objXML.save(strSourceFile)

set rs=server.CreateObject("adodb.recordset")
sql = "select Top 5 title,imgUrl,id From article Where commend=1 Order By ID Desc "
rs.open sql,conn,1,1
do while not rs.eof
set newNode=objXML.selectsinglenode("//bcaster").appendchild(objXML.createelement("item"))
newNode.setAttribute "item_url",rs("imgUrl")
newNode.setAttribute "link","newsInfo.Asp?id="&rs("id")
newNode.setAttribute "itemtitle",rs("title")
rs.movenext
loop
rs.close
set rs=nothing
objXML.save(strSourceFile)

'创建一个节点对象
'set newNode=objXML.selectsinglenode("//bcaster").appendchild(objXML.createelement("item"))
'newNode.setAttribute "item_url","abc"
'newNode.setAttribute "link","def"
'newNode.setAttribute "itemtitle","ghi"
'set newNode=objXML.selectsinglenode("//bcaster").appendchild(objXML.createelement("item"))
'newNode.setAttribute "item_url","abc"
'newNode.setAttribute "link","def"
'newNode.setAttribute "itemtitle","ghi"
'objXML.save(strSourceFile)

 

'获取节点属性值
'response.Write objXML.getelementsbytagname("item").item(0).getAttribute("item_url")

'更改节点的属性
'objXML.getelementsbytagname("item").item(0).setAttribute "item_url","abc"
'objXML.save(strSourceFile)

'将属性循环列出
'set root=objXML.getelementsbytagname("item")
'for i=0 to root.length-1
'response.Write (root.item(i).getAttribute("item_url")&"<br/>")
'next

 

 

'列出所有节点的函数
sub getnodes(node)
dim i
response.write("<br><b>NodeName:</b>"&node.nodename&"<br><b>NodeTypeString:</b>"&node.nodetypestring&"<br><b>NodeValue:</b>"&node.nodevalue&"<br><b>Text:</b>"&node.text&"<br><b>node.childnodes.length:</b>"&node.childnodes.length&"<p>")

if node.childnodes.length<>0 then
for i=0 to node.childnodes.length-1
getnodes(node.childnodes(i))
next
end if
end sub
%>