save.asp

<>

<%

'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

%>