ASP生成XML的一个例子

< ! -- #include file = " ../conn.asp " -->  
< ?xml version = " 1.0 "   encoding = " GB2312 " ? >  
< %    Response.ContentType  = " text/html "  % >  
< %    
     dim  xmlDoc,root,pi,childNode,childNode_1,childNode_2,childNode_3 
     dim  rs,sql,temp,i,path 
     dim  forum_Name,forum_class_info,forum_class_num 
     
     ' Set xmlDoc = CreateObject("Msxml2.DOMDocument.4.0") 
     Set  xmlDoc = Server.CreateObject ( " Microsoft.XMLDOM " ) 
     Set  rs = Server.CreateObject ( " adodb.recordset " ) 

     ' 生成根节点 
     Set  root = xmlDoc.createNode( " element " , " forum_collect " , "" ) 
    xmlDoc.appendChild(root) 
     Set  childNode = xmlDoc.createNode( " element " , " forum_info " , "" ) 
    root.appendChild (childNode) 
     
     Set  pi  =  xmlDoc.createProcessingInstruction( " xml " ,  " version=""1.0"" encoding=""GB2312"" " ) 
    xmlDoc.insertBefore pi, root 
   
     
     ' 生成论坛根节点 
    sql = " Select top 1 forum_info From [config] order by id "  
    rs.Open sql,conn, 1 , 1  
    temp = Instr (rs( 0 ), " , " ) 
    forum_Name = Left (rs( 0 ),temp - 1 ) 
    rs.Close ()  
     Set  childNode_1 = xmlDoc.createNode( " element " , " forum_name " , "" ) 
    childNode_1.text  =  forum_Name 
    childNode.appendChild (childNode_1)     
     
    sql = " Select id,[class] From [class] order by orders ,id "  
    rs.Open sql,conn, 1 , 1  
    forum_class_info = rs.GetRows () 
    forum_class_num = UBound (forum_class_info, 2 ) 
    rs.Close () 
     
     for  i = 0   to  forum_class_num 
         Set  childNode_1 = xmlDoc.createNode( " element " , " forum_class " , "" ) 
        childNode.appendChild (childNode_1)         
         Set  childNode_2 = xmlDoc.createNode( " element " , " forum_class_name " , "" ) 
        childNode_2.text  =  forum_class_info( 1 ,i) 
        childNode_1.appendChild (childNode_2) 
         
        sql = " Select boardid,boardtype From board Where [class]= " & forum_class_info( 0 ,i) 
        rs.Open sql,conn, 1 , 1  
         while  rs.EOF  = false  
             Set  childNode_2 = xmlDoc.createNode( " element " , " forum_list " , "" ) 
            childNode_1.appendChild (childNode_2)    
             Set  childNode_3 = xmlDoc.createNode( " element " , " forum_list_name " , "" ) 
            childNode_3.text  =  rs( 1 ) 
            childNode_2.appendChild (childNode_3)     
             Set  childNode_3 = xmlDoc.createNode( " element " , " forum_list_id " , "" ) 
            childNode_3.text  =  rs( 0 ) 
            childNode_2.appendChild (childNode_3) 
            rs.MoveNext ()       
         wend  
        rs.Close () 
     next       
     
    path = Server.MapPath ( " forumList.xml " ) 
    Response.Write(xmlDoc.xml)   
    xmlDoc.save (path) 
% >