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
%>