strC = " " & vbcrlf
strC = strC&"
set rs = server.CreateObject("adodb.recordset")
rs.open"select * from xw where xwlb_id=31 order by px_id desc,tjsj desc",cn,1,3
for j=1 to rs.recordcount
strC = strC&"
rs.movenext
next
rs.close
set rs=nothing
strC = strC&"
call saveXml(strC,"../admin/xml/imglink.xml")
Function saveXml(Text,FileName)
dim xmldoc,path
set xmldoc= server.CreateObject("MSXML.DOMDocument")
path = Server.MapPath(FileName)
xmldoc.LoadXML(Text)
xmldoc.save(path)
set xmldoc= nothing
End Function
以上测试通过
欢迎大家使用