将ado方便的转化为XML文件

 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   
Published At
Categories with Web编程
Tagged with
comments powered by Disqus