save.asp
<!--#includefile="adovbs.inc"-->
<%
'Constantsfileincludedabove.
'如果文件存在則刪除
DimobjFSO
SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")
IfobjFSO.FileExists(Server.MapPath("db_xml.xml"))Then
objFSO.DeleteFileServer.MapPath("db_xml.xml")
EndIF
SetobjFSO=Nothing
'變量聲明
DimcnnXML'ADOconnection
DimrstXML'ADOrecordset
'創建數據連接對象
SetcnnXML=Server.CreateObject("ADODB.Connection")
'這是連接access數據庫的例子:
'cnnXML.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="_
'&Server.MapPath("db_scratch.mdb")&";"
'下面以Sqlserver為例子講解:
cnnXML.Open"Provider=SQLOLEDB;DataSource=10.2.1.214;"_
&"InitialCatalog=samples;UserId=samples;Password=password;"_
&"ConnectTimeout=15;NetworkLibrary=dbmssocn;"
SetrstXML=Server.CreateObject("ADODB.Recordset")
SetrstXML=cnnXML.Execute("SELECT*FROMscratchORDERBYid;")
Response.Write"<p>SavingdataasXML...</p>"&vbCrLf
'保存至xml格式.
rstXML.SaveServer.MapPath("db_xml.xml"),adPersistXML
'關閉對象、釋放資源
rstXML.Close
SetrstXML=Nothing
cnnXML.Close
SetcnnXML=Nothing
Response.Write"<p>XMLfilewritten...</p>"&vbCrLf
Response.Write"<p>Click<ahref=""db_xml.xml"">here</a>toviewthefile.</p>"&vbCrLf
%>