急求ASP修改生成xml 小弟先谢过了!

我很久以前写的两个方法～给你参考一下～
Function GetXMLStr(Cid) ’按格式得到数据～
XMLSTR="<?xml version=""1.0"" encoding=""utf-8""?>"&VBLF
XMLSTR=XMLSTR+"<root imageWidth=""680"" imageHeight=""345"">"&VBLF
set rs=Server.CreateObject("ADODB.RecordSet")
str="Select Title,TitleImg,Content from Model_Content where Cid="&Cid&" order by sort"
rs.open str,conn,1,1
if not rs.eof then
do while not rs.eof
XMLSTR=XMLSTR+"<menu url="""&rs("Content")&""" frame=""_blank"" imageUrl=""admin/uploadfile/"&rs("TitleImg")&"""/>"&VBLF
rs.MoveNext
Loop
End if
rs.close
set rs=Nothing
XMLSTR=XMLSTR+"</root>"&vblf
GetXMLStr=XMLSTR
End Function

Function WriteFile(SaveFilePath,FileNameStr,JSCodeStr)
'On Error ReSume Next ' 将得到的数据生成XML文件～～
Dim MyFile,CrHNJS
Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
If MyFile.FolderExists(Server.MapPath(SaveFilePath))=false then
MyFile.CreateFolder(Server.MapPath(SaveFilePath))
End If
If MyFile.FileExists(Server.MapPath(SaveFilePath)&"/"& FileNameStr &".xml") then
MyFile.DeleteFile(Server.MapPath(SaveFilePath)&"/"& FileNameStr &".xml")
End if
Set CrHNJS=MyFile.CreateTextFile(Server.MapPath( SaveFilePath) &"/"& FileNameStr &".xml")
CrHNJS.write JSCodeStr
Set MyFile=nothing
End Function

' 添加修改后调用该方法
<%
WriteFile "../xml","images",GetXMLStr(request("cID"))
'生成的路径，文件名。数据源。。。。
%>

你可以参考下http://www.505cm.com/plus/view.php?aid=2670

本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。