所在位置:首页 > 学习心得 > asp读取数据库生成XML文件
asp读取数据库生成XML文件
  • asp读取数据库生成XML文件
    发布时间:2009-10-24 类别:asp技术 来源:侠客工作室
    • 1
    • 2
    • 3
    • 4
    • 5
  • <%
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")
    Set rs = CreateObject("ADODB.RecordSet")
    rs.open "SELECT * FROM test",Conn,1,1
    Set objXML = Server.CreateObject("Microsoft.XMLDOM")
    objXML.loadXML "<?xml version=""1.0"" encoding=""gb2312"" ?><root><test></test></root>"
    do while not rs.eof
    Set xmlNode = objXML.documentElement.selectSingleNode("test").AppendChild(objXML.createElement("Record"))
    Set createNode = xmlNode.appendChild(objXML.createElement("aa"))
    createNode.Text = rs.Fields.Item("a").Value
    Set createNode = xmlNode.appendChild(objXML.createElement("bb"))
    createNode.Text = rs.Fields.Item("b").Value
    Set createNode = xmlNode.appendChild(objXML.createElement("cc"))
    createNode.Text = rs.Fields.Item("c").Value
    Set createNode = xmlNode.appendChild(objXML.createElement("dd"))
    createNode.Text = rs.Fields.Item("d").Value
    rs.movenext()
    loop
    objXML.save(Server.MapPath("aa.xml"))
    Set objXML=nothing
    rs.close
    set rs=nothing
    Conn.close
    set Conn=nothing
    %>
  • ☆☆☆技术交流群:5684178☆☆☆
  • 上一篇:登录代码
  • 下一篇:连接access数据库
侠客工作室主要承揽网站制作|企业建站|北京网站制作|北京网站建设|北京企业建站|专业仿站|SEO优化等业务
地址:北京市海定区清河水木天成 电话:13718388147 13718388147 传真:13718388147 访问统计:
投诉电话:13718388147 投诉QQ:点击这里给我发消息 客服信箱:1300105556@qq.com 邮编:102200 北京网站建设地图 北京网站建设RSS地图
版权所有 2009-2014侠客工作室【北京网站建设】 京ICP备11021494号-1