asp下將數據庫中的信息存儲至XML文件中

2020-07-27 13:10:12

字體：大中小

來源：轉載

供稿：網友

save.asp

<%
' Constants file included above.
' 如果文件存在則刪除
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 connection
Dim rstXML ' ADO recordset
'創建數據連接對象
Set cnnXML = Server.CreateObject("ADODB.Connection")
' 這是連接access數據庫的例子:
'cnnXML.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
' & Server.MapPath("db_scratch.mdb") & ";"
' 下面以Sqlserver為例子講解:
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 <a href=""db_xml.xml"">here</a> to view the file." & vbCrLf
%>

上一篇：asp下如何在Access數據庫中立即得到所插入記錄的自動編號？

下一篇：asp下制做行背景顏色交替變換的表格