将数据库中的信息存储至XML文件中 >>XML>>技术中心>>启天网

将数据库中的信息存储至XML文件中

【字体：小大】

将数据库中的信息存储至XML文件中

作者：未知文章来源：转载点击数：更新时间：2007-3-25

save.ASP

 
 <%
 ' Constants file included above.

 ' 如果文件存在则删除
 Dim objFSO
 Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 If objFSO.FileExists(Server.MapPath("db_XML.xml")) Then
 objFSO.DeleteFile Server.MapPath("db_xml.xml")
 End IF
 Set objFSO = Nothing

 '变量声明
 Dim cnnXML ' ADO connection
 Dim rstXML ' ADO recordset

 '创建数据连接对象
 Set cnnXML = Server.CreateObject("ADODB.Connection")

 ' 这是连接Access数据库的例子:
 'cnnXML.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
 ' & Server.MapPath("db_scratch.mdb") & ";"

 ' 下面以Sqlserver为例子讲解:
 cnnXML.Open "Provider=SQLOLEDB;Data Source=10.2.1.214;" _
 & "Initial Catalog=samples;User Id=samples;Password=password;" _
 & "Connect Timeout=15;Network Library=dbmssocn;"


 Set rstXML = Server.CreateObject("ADODB.Recordset")
 Set rstXML = cnnXML.Execute("SELECT * FROM scratch ORDER BY id;")

 Response.Write "Saving data as XML..." & vbCrLf

 ' 保存至xml格式.
 rstXML.Save Server.MapPath("db_xml.xml"), adPersistXML

 ' 关闭对象、释放资源
 rstXML.Close
 Set rstXML = Nothing
 cnnXML.Close
 Set cnnXML = Nothing

 Response.Write "XML file written..." & vbCrLf
 Response.Write "Click <a href=""db_xml.xml"">here</a> to view the file." & vbCrLf
 %>

[去论坛看看]

[看看相关培训信息......]

文章录入：junsan 责任编辑：junsan

上一篇文章：构建基于Web/XML的信息集成研究2

下一篇文章： ADO数据与XML数据间的转换的类

【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

最新热点		最新推荐		相关文章
				asp中session，application对象和应用我的模板分析引擎类PHP的.net开发方法--功能… FleaPHP默认上传类的一个隐患 [原创]织梦CMS中文转换拼音函数研究 PHP5中的this,self和parent关键字详解自动生成 CMD命令速查手册.htm isset(),empty()区别不完全研究. PHP通过参数来生成MYSQL语句类基于PHP5的纯静态数据库访问类. 彻底放弃IIS让Apache也支持ASP.NET

　网友评论：（最新10条。只代表网友观点，与本站立场无关！）