使用coldfusion生成xml文件例子

<cfset ThisPath="#getDirectoryFromPath(getTemplatePath())#">
<cfquery name="Num" datasource="TravelMIS">
Select * from SY_Table
</cfquery>
<cfscript>
MyDoc = XMLNew(); 
MyDoc.XMLRoot = XmlElemNew(MyDoc,"Body"); 
for(i=1;i le #Num.RecordCount#; i=i+1){
MyDoc.Body.XMLChildren[i] = XmlElemNew(MyDoc,"text1"); 
MyDoc.Body.XMLChildren[i].XmlTEXT = "#Num.User_Name[i]#";
StructInsert(MyDoc.Body.XMLChildren[i].XmlAttributes, "id", "#i#"); 
MyDoc.Body.XMLChildren[i].XmlChildren[1] = XmlElemNew(MyDoc,"text2"); 
MyDoc.Body.XMLChildren[i].XmlChildren[1].XmlTEXT = "#Num.pwd[i] }
</cfscript>
<!--- 生成XML到本地硬盘 --->
<cffile action="write" addnewline="no" 
charset="utf-8" file="#ThisPath#myXML.xml" 
output="#toString(MyDoc)#">
<!---读取XML内容写入数组中--->
<cfset ThisPath="#getDirectoryFromPath(getTemplatePath())#">
<cffile action="read" charset="Utf-8" 
file="#ThisPath#myXML.xml" variable="myXMLFile">
<cfset XMLDoc=XmlParse(myXMLFile)>
<cfset XMLquery=xmlDoc.xmlroot.XmlChildren>
<cfset XMLLength=ArrayLen(XMLquery)>
<cfoutput><select name="lb">
<cfloop index="i" from="1" to="#XMLLength#">
<cfset item1=XMLquery[i]>
<option value="#item1.XMLtext#">#item1.xmltext#</option>
</cfloop></select>
</cfoutput>