ASP生成XML文件——同城生活贴吧——123发布网|123同城网|123同城信息网|免费发布信息|123招聘|123交友|123房产

登录123 | 账号: 密码: 商铺贴吧

今天是：


供应求购	免费商铺	商业资讯	库存二手	黄页大全		生活贴吧	房屋租售	招聘求职	婚恋交友	自助广告

ASP生成XML文件

发布时间：2010/12/16 14:34:51 发布人：网络游民点击：208

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>


<%
'Option Explicit
Response.ContentType="text/xml"
dim sql
sql="select * from products order by productsid"
rs.open sql,conn,1,1,1

Response.Write("<?xml version='1.0' encoding='utf-8'?>")

Response.Write("<data>")
do while not rs.eof
Response.Write("<product pic='"&rs("pic")&"' bpic='"&rs("bpic")&"'>")
Response.Write("<![CDATA["&rs("data")&"]]>")
Response.Write("</product>")
rs.movenext
loop
Response.Write("</data>")

rs.close
conn.close
set rs=nothing
set conn=nothing

%>

这样只可以在浏览器中看到XML格式的数据，我要生成具体的.xml文件，要这样写啊？

回复此帖

#1楼回复： re:ASP生成XML文件

网络游民 [2010/12/16 14:35:20]

最佳答案
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>


<%
'Option Explicit
Response.ContentType="text/xml"
dim sql
sql="select * from products order by productsid"
rs.open sql,conn,1,1,1

Dim xmldoc
Dim version
Dim root
Dim childNode,childnextNode,f,CreateCDATASection

Set xmldoc = server.CreateObject("Msxml2.DOMDocument.4.0")

Set version = xmldoc.createProcessingInstruction("xml","version='1.0' encoding='utf-8'")
xmldoc.appendchild(version)

Set root = xmldoc.CreateNode(1, "data","")
xmldoc.appendChild(root)

do while (Not rs.EOF)
Set childNode = xmldoc.CreateNode(1,"product","")
childNode.SetAttribute"pic",rs("pic")
childNode.SetAttribute"bpic",rs("bpic")

Set CreateCDATASection = xmldoc.createCDATASection(rs("data"))
childNode.appendChild(createCDATASection)

rs.MoveNext
root.appendChild childNode
loop

xmldoc.save(Server.Mappath("info.xml"))

rs.close
conn.close
set rs=nothing
set conn=nothing

%>

页次：1/1 每页10 总记录数1　

分页： 1

※

发布回复

↓请遵循123发布网同城生活贴吧/论坛发帖规则；↓寻一夜情、包养、招嫖类信息的一律全部删除，并报公安备案↓

回复标题：
回复内容：
上传图片：
验证码：