如何从SQL数据库中读取数据并保存到XML文件中

从SQL中读取数据并保存到XML文件中，给个例子#99

用asp读取数据库SQL

保存到HTML，试试导出行不

public void updateXml(string quyu)    {    XmlDocument document = new XmlDocument();    DataSet ds=flash.quyuSearch(quyu);    string text = null;    int count = ds.Tables[0].Rows.Count;    for(int i=0;i<count;i++)    {    text+="<item item_url="+"'admin/upLoad/"+ds.Tables[0].Rows[i]["imgUrl"].ToString()+"'"+" link="+"'http://"+ds.Tables[0].Rows[i]["link"].ToString()+"'"+" />";    }    text = text.Replace("&","&amp;");    document.LoadXml(@"<bcaster>" + text + "</bcaster>");    string path = "~/flash/" + quyu + ".xml";    document.Save(HttpContext.Current.Server.MapPath(path));    ds.Dispose(); ds = null;    }

asp的 <!--#include file="conn.asp"--> <% Dim sSQL dim rs dim sCrLf dim sXmlClear dim sRssHead dim sRssEnd sCrLf = chr(13)&chr(10) '回车+换行 sXmlClear = sXmlClear & "<?xml version='1.0' encoding='GB2312'?>" & sCrLf sRssHead = "<rss version='2.0'>" & sCrLf sRssHead = sRssHead & "<channel>" & sCrLf sRssHead = sRssHead & "<title> Hi </title>" & sCrLf sRssHead = sRssHead & "<description>Look</description>" & sCrLf sRssHead = sRssHead & "<link>See It</link>" & sCrLf sRssHead = sRssHead & "<language>zh-cn</language>" & sCrLf sRssHead = sRssHead & "<docs>Why100000.COM News Center</docs>" & sCrLf sRssHead = sRssHead & "<generator>Rss Generator By WWW.shangyusoft.COM</generator>" & sCrLf sRssEnd = "</channel></rss>" Response.CharSet="gb2312" '数据集 Response.ContentType="text/xml" '数据流格式定义 '输出： Response.write sXmlClear Response.write sRssHead OpenData sSQL="select * from c_news" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sSQL, Conn,1,1 if not (rs.eof and rs.bof) then do while not rs.eof listinfo=listinfo & "<item>" & sCrLf listinfo=listinfo &"<title> " & rs("c_title") & " </title>" & sCrLf listinfo=listinfo &"<link> " & " http://www.shangyusoft.com/" & rs("c_content") & " </link>" & sCrLf listinfo=listinfo &"<author> " & rs("c_relation") & " </author>" & sCrLf listinfo=listinfo &"<pubDate> " & rs("c_time") & " </pubDate>" & sCrLf listinfo=listinfo &"</item>" & sCrLf & sCrLf rs.movenext loop end if rs.close set rs=nothing Response.write sRssEnd body=sXmlClear&sRssHead&listinfo&sRssEnd writexml "A.xml",body function writexml(filename,bodytext) Set fso = Server.CreateObject("Scripting.FileSystemObject") Set fout = fso.CreateTextFile(Server.MapPath(filename),true) fout.WriteLine bodytext fout.close end function %>