asp讀取數據庫中的信息存儲生成XML文件的例子

這裡是一個ASP讀取數據庫中的信息存儲生成XML文件的例子，這種效果通常應用於接口文件
把下面的asp程序保存為一個ASP文件即可，注意一下裡面的表名和字段名

vIEw source print? 01 <!-- #include file="adovbs.inc" --> 02 <% 03 ' Constants file included above. 04 ' 如果文件存在則刪除 05 Dim objFSO 06 Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 07 If objFSO.FileExists(Server.MapPath("db_xml.XML")) Then 08 objFSO.DeleteFile Server.MapPath("db_xml.XML") 09 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 %>