(转载)用asp动态生成xml代码

<%
filename="../xml/thumbnails.xml"'xml目录要手动建一个
set fso = Server.CreateObject("Scripting.FileSystemObject")
set myFile = fso.CreateTextFile(server.mappath(filename))
myFile.writeline("<thumbnails>")
if not webrs.eof and not webrs.bof then 
 do While not webrs.eof 
 myFile.writeline("<thumbnail filename="""&webrs("img6")&""" label="""&webrs("MC")&""" url=""http://www.123.com/case_show.asp?id=webrs("""&webrs("id")&"""/>")
 webrs.MoveNext 
 loop
end if
myFile.writeline("<thumbnails>")
myFile.close
%> 

 

允许重新生成。（变量外要用双引号）

转载地址：http://zhidao.baidu.com/question/111886705.html