将ADO方便的转化为XML文件-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

将ADO方便的转化为XML文件

<%
\\\' 删除已经存在的文件
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 连接
Dim rstXML \\\' ADO 记录集

Set cnnXML = Server.CreateObject("ADODB.Connection")

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
%>

返回类别: 教程
上一教程: 用户注册及跟踪代码(三)
下一教程: 一段加密函数(BASE64)

您可以阅读与"将ADO方便的转化为XML文件"相关的教程:
· 如何用ASP把SQL SERVER数据转化为EXECL文件
· 把HTML表单提交的数据转化成XML文件
· ADO数据与XML数据间的转变的类
· 使用XMLHTTP和ADODB.STREAM取得远程文件并保存到本地
· ASP操作XML文件的完整实例


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接