save.asp

1. <!-- #include file="adovbs.inc" -->  
2. <%  
3. ' Constants file included above.  
4. ' 如果文件存在則刪除  
5. Dim objFSO  
6. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")  
7. If objFSO.FileExists(Server.MapPath("db_xml.xml")) Then  
8.  objFSO.DeleteFile Server.MapPath("db_xml.xml")  
9. End IF  
10. Set objFSO = Nothing  
11. '變量聲明  
12. Dim cnnXML  ' ADO connection  
13. Dim rstXML  ' ADO recordset  
14. '創建數據連接對象  
15. Set cnnXML = Server.CreateObject("ADODB.Connection")  
16. ' 這是連接access數據庫的例子:  
17. 'cnnXML.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _  
18. ' & Server.MapPath("db_scratch.mdb") & ";"  
19. ' 下面以Sqlserver為例子講解:  
20. cnnXML.Open "Provider=SQLOLEDB;Data Source=10.2.1.214;" _  
21.  & "Initial Catalog=samples;User Id=samples;Password=password;" _  
22.  & "Connect Timeout=15;Network Library=dbmssocn;"  
23. Set rstXML = Server.CreateObject("ADODB.Recordset")  
24. Set rstXML = cnnXML.Execute("SELECT * FROM scratch ORDER BY id;")  
25. Response.Write "<p>Saving data as XML...</p>" & vbCrLf  
26. ' 保存至xml格式.  
27. rstXML.Save Server.MapPath("db_xml.xml"), adPersistXML  
28. ' 關閉對象、釋放資源  
29. rstXML.Close  
30. Set rstXML = Nothing  
31. cnnXML.Close  
32. Set cnnXML = Nothing  
33. Response.Write "<p>XML file written...</p>" & vbCrLf  
34. Response.Write "<p>Click <a href=""db_xml.xml"">here</a> to view the file.</p>" & vbCrLf  
35. %>