<b>ASP动态生成XML的实现办法</b>[网站编程]

确认目录有写权限

1. <!--#include virtual="conn/conndb.asp"--> 
2. <%   
3. strC = "<?xml version=""1.0"" encoding=""utf-8""?> " & vbcrlf   
4. strCstrC = strC&" <list>" & vbcrlf   
5.  
6. set rs = server.CreateObject("adodb.recordset")   
7. sql = "select top 10 name,pic,d,summary from database where flag=1"   
8. rs.open sql,conn,1,1   
9. do while not rs.eof   
10. src="http://tommyhu.cn/piaoupload/"&rs(1)  
11. link="http://tommyhu.cn/list-"&rs(2)&".html"  
12. strCstrC = strC&"<img1 title='"&rs(0)&"' src='"&src&"' link='"&link&"' description='"&left(rs(3),10)&"' />"& vbcrlf   
13. rs.movenext   
14. loop   
15. rs.close   
16. strCstrC = strC&"</list>" & vbcrlf   
17.  
18.  
19. call saveXml(strC,"test.xml")   
20. Function saveXml(Text,FileName)   
21. dim xmldoc,path   
22. set xmldoc= server.CreateObject("MSXML.DOMDocument")   
23. path = Server.MapPath(FileName)   
24. xmldoc.LoadXML(Text)   
25. xmldoc.save(path)   
26. set xmldoc= nothing   
27. End Function   
28.  
29. %> 
30.  

参考代码

1. <!--#include file="conn.asp"-->   
2.  
3. <%   
4. strC = "<?xml version=""1.0"" encoding=""utf-8""?> " & vbcrlf   
5. strCstrC = strC&" <root>" & vbcrlf   
6.  
7. set rs = server.CreateObject("adodb.recordset")   
8. set rs1 = server.CreateObject("adodb.recordset")   
9. sql = "select anclassid,anclass from bsort order by anclassidorder"   
10. rs.open sql,conn,1,1   
11. do while not rs.eof   
12. strCstrC = strC&"<bigsort anclassid='"&rs(0)&"' name='"&rs(1)&"' >"& vbcrlf   
13. sql1 = "select nclassid,nclass from ssort where anclassid = "&rs(0)&" order by nclassidorder"   
14. rs1.open sql1,conn,1,1   
15. do while not rs1.eof   
16. strCstrC = strC&"<ssort id='"&rs1(0)&"' name='"&rs1(1)&"'>"&rs1(1)&" </ssort>"& vbcrlf   
17. rs1.movenext   
18. loop   
19. rs1.close   
20. strCstrC = strC&"</bigsort>"& vbcrlf   
21. rs.movenext   
22. loop   
23. rs.close   
24. strCstrC = strC&" </root>" & vbcrlf   
25.  
26. call saveXml(strC,"111111.xml")   
27.  
28. Function saveXml(Text,FileName)   
29. dim xmldoc,path   
30. set xmldoc= server.CreateObject("MSXML.DOMDocument")   
31. path = Server.MapPath(FileName)   
32. xmldoc.LoadXML(Text)   
33. xmldoc.save(path)   
34. set xmldoc= nothing   
35. End Function   
36. %>