save.asp
<!-#includefile = "adovbs.inc"->
<%
'Constantsfileincludedabove.
'Если файл существует, удалите его
Dimobjfso
SetObjfso = server.createObject ("scripting.filesystemobject")
Ifobjfso.fileexists (server.mappath ("db_xml.xml"))
objfso.deletefileserver.mappath ("db_xml.xml")
Эндиф
Setobjfso = ничего
'Переменная объявление
Dimcnnxml'adoconnection
Dimrstxml'adorecordset
'Создать объект соединения данных
SetCnnxml = server.createObject ("adodb.connection")
'Это пример подключения к базе данных Access:
'cnnxml.open "Provider = microsoft.jet.oledb.4.0; dataSource =" _
'& Server.mappath ("db_scratch.mdb") & ";"
'Ниже приведен пример объяснения:
cnnxml.open "Provider = sqloledb; dataSource = 10.2.1.214;" _
& "InitialCatalog = samples; userId = образцы; пароль = пароль;" _
& "ConnectTimeOut = 15; networkLibrary = dbmssocn;"
Setrstxml = server.createObject ("adodb.recordset")
SetrStxml = cnnxml.execute ("select*forcratchorderbyid;")
Response.write "<p> savingdataasxml ... </p>" & vbcrlf
'Сохранить в формате XML.
rstxml.saveserver.mappath ("db_xml.xml"), adpersistxml
'Закройте объект и выпустите ресурс
rstxml.close
Setrstxml = ничего
cnnxml.close
SetCnnxml = ничего
Response.write "<p> xmlfilewriten ... </p>" & vbcrlf
Response.write "<p> Нажмите <ahref =" "db_xml.xml" "> здесь </a> toviewthefile. </P>" & vbcrlf
%>