asp创建xml例子

asp也可以完成现在比较流行的xml文档。呵呵！
<%
htmlcontent="<response>"
For i=0 To 200
     htmlcontent=htmlcontent&"<emp>"
     htmlcontent=htmlcontent&"<empno>"&i&"</empno>"
     htmlcontent=htmlcontent&"<empname>"&i*i&"</empname>"
     htmlcontent=htmlcontent&"</emp>"
Next
htmlcontent=htmlcontent&"</response>"

xmlfile=server.mappath("test1.xml")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(xmlfile,True)
MyFile.WriteLine "<?xml version=""1.0"" encoding=""gb2312""?>"
MyFile.WriteLine htmlcontent
MyFile.Close
%>
<a href="test1.xml">查看XML文件内容</a>