当前位置:编程学习 > asp >>

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

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

<?xml version="1.0" encoding="utf-8"?>
<photos>
       <photo filename="大图片的路径" thumbnail="小图的路径" description="图片表述" />
</photos>


<%
Dim sSQL
dim rs
dim sCrLf
dim sXmlClear
dim sRssHead
dim sRssEnd
sCrLf = chr(13)&chr(10) '回车+换行
sXmlClear = sXmlClear & "<?xml version='1.0' encoding='utf-8'?>" & sCrLf
sRssHead = "<photos'>" & sCrLf
sRssHead = sRssHead & "<photo filename="1"  thumbnail="2" description="3" />" & sCrLf
sRssEnd = "</photos>"
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 & "<item>" & sCrLf
listinfo=listinfo &"<photo filename="" & rs("b_pic") & " "  thumbnail="" & rs("s_pic") & " " description="" & rs("decc") & " " />" & 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 "../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

补充:asp教程,XML相关 
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,