用asp写xml的一个小例子

原创 2007年09月24日 12:13:00

很短很有用的,要谢谢QQ群里的兄弟帮助,让我得到这段代码
<!--#include virtual=/include connss.asp-->
<%
Dim   xmldoc  
Set   xmldoc = server.CreateObject("Microsoft.XMLDOM")  

Dim version  
Set version = xmldoc.createProcessingInstruction("xml"," version='1.0' encoding='GB2312'")

xmldoc.appendChild(version)

Dim root
Set root =  xmldoc.CreateNode("element","root","")
xmldoc.appendChild(root)
set rs=server.CreateObject("ADODB.RecordSet")
rs.Open "select * from tablename",conn,1,1
rs.MoveFirst
while (Not rs.EOF)  
Set   childNode   =   xmldoc.CreateNode("element","houseinfo","")
root.appendChild(childNode)
  For   Each   f   in   rs.Fields  
  Set   childnextNode   =   xmldoc.CreateNode("element",f.name,"")  
  childnextNode.Text   =   f.Value  
  childNode.appendChild(childnextNode)  
  Next
  rs.Movenext
  wend
  xmldoc.save(Server.Mappath("xmldoc.xml"))
  Response.Write(xmldoc.xml) 
%> 

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

xml PULL解析的一个小例子

  • 2014-01-07 14:42
  • 800KB
  • 下载

Pro ASP.NET MVC3--创建SportStore例子的一个问题解决

进来看了下《Pro ASP.NET MVC3》这本书,到里面的SportsStore:A real Application的时候,按照步骤总是出错,有些东西都无法识别。对于我这个初学者来说,有必要记录...

一个as3读取xml的例子

xml内容如下: ...

使用DOM4J解析XML的一个例子

这是一本书的DEMO。 (1)创建ParseXML用来封装DOM4J解析XML package com.system.demo; import java.io.Fil...
  • Feb13
  • Feb13
  • 2012-06-18 22:38
  • 1439
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)