1
2' 删除已经存在的文件
3Dim objFSO
4Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
5If objFSO.FileExists(Server.MapPath("db_xml.xml")) Then
6objFSO.DeleteFile Server.MapPath("db_xml.xml")
7End IF
8Set objFSO = Nothing
9
10' 定义变量,很好的习惯
11Dim cnnXML ' ADO 连接
12Dim rstXML ' ADO 记录集
13
14Set cnnXML = Server.CreateObject("ADODB.Connection")
15
16cnnXML.Open "Provider=SQLOLEDB;Data Source=10.2.1.214;" _
17& "Initial Catalog=samples;User Id=samples;Password=password;" _
18& "Connect Timeout=15;Network Library=dbmssocn;"
19
20Set rstXML = Server.CreateObject("ADODB.Recordset")
21Set rstXML = cnnXML.Execute("SELECT * FROM scratch ORDER BY id;")
22
23Response.Write "
<p>Saving data as XML...</p>
1" & vbCrLf
2
3' 保存xml各式的文件.
4rstXML.Save Server.MapPath("db_xml.xml"), adPersistXML
5
6' 关闭数据库连接,释放对象
7rstXML.Close
8Set rstXML = Nothing
9cnnXML.Close
10Set cnnXML = Nothing
11
12Response.Write "
<p>XML file written...</p>
1" & vbCrLf
2Response.Write "
<p>Click <a db_xml.xml""="" href="">here</a> to view the file.</p>
1" & vbCrLf