【ASP】匯出XML

將資料庫內容匯出存成XML

<%  
   session("dsn")="dsn=workflow;uid=sa;pwd=SQLsys"

   set rs=server.CreateObject ("adodb.recordset")
   sqlstr="select ref,category,title,artist from dbo.Albums"
   rs.Open sqlstr,session("dsn"),3,1,1
   if not rs.EOF then
       Set xml=server.CreateObject("Microsoft.XMLDOM")
              xml.load(server.MapPath("albums.xml"))  
       'root node 根節點  
       Set Element=xml.createelement("Albums")
    
      do while not rs.EOF
          'child nodes 子節點--(專輯)
          Set e2=xml.createElement("Album")
                 Element.appendchild(e2)
   
         '設定屬性
          Set objIdAttr = xml.createAttribute(rs.Fields("ref").Name)
          e2.setAttribute rs.Fields("ref").Name, rs("ref")
          
          '子節點--(類別)
          set e3=xml.Createelement(rs.Fields("category").Name)
                 e3.text=rs("category")
                 e2.appendchild(e3)
         
          '子節點--(標題) 
          set e3=xml.Createelement(rs.Fields("title").Name)
                 e3.text=rs("title")
                 e2.appendchild(e3)
          
          '子節點--(作者)
          set e3=xml.Createelement(rs.Fields("artist").Name)
                 e3.text=rs("artist")
                 e2.appendchild(e3)

        rs.MoveNext
      loop
           xml.appendChild(element)  '加入根節點       
           '輸出檔名
           xml.save(server.MapPath("albums.xml"))
   end if
   rs.Close
%>

匯出XML內容：