将ado方便的转化为XML文件 -pc6资讯

您的位置：首页 → 技术开发 → ASP技巧 → 将ado方便的转化为XML文件

将ado方便的转化为XML文件 时间：2004/11/7 4:12:00来源：本站整理作者：蓝点我要评论(0)

<%

' 删除已经存在的文件

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 here to view the file.

" & vbCrLf

%>

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。