asp +access 生成 xml文档实例代码

<%
Dim sSQL
dim rs
dim sCrLf
dim sXmlClear
dim sRssHead
dim sRssEnd
sCrLf = chr(13)&chr(10) '回车+换行
sXmlClear = sXmlClear & "" & sCrLf
sRssHead = "" & sCrLf
sRssHead = sRssHead & "" & sCrLf
sRssEnd = ""
Response.CharSet="gb2312" '数据集
Response.ContentType="text/xml" '数据流格式定义
'输出：
Response.write sXmlClear
Response.write sRssHead

OpenData
sSQL="select * from p_mxdp"
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 & "" & sCrLf
listinfo=listinfo &"" & sCrLf
listinfo=listinfo &"" & sCrLf & sCrLf
rs.movenext
loop
end if
rs.close
set rs=nothing
Response.write sRssEnd
body=sXmlClear&sRssHead&listinfo&sRssEnd
writexml "../ph.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