Save.asp
<!-#includeFile = "adovbs.inc"->
<%
'ConstantantsFileIncludedabove.
Wenn die Datei existiert, löschen Sie sie
Dimobjfso
SetObjfso = server.createObject ("scripting.filesystemObject")
IfObjfso.fileExists (server.mappath ("db_xml.xml") dann
objfso.deleteFileServer.Mappath ("db_xml.xml")
Endif
SetObjfso = nichts
'Variable Deklaration
Dimcnnxml'adoconnection
Dimrstxml'adoreCordset
'Erstellen Sie ein Datenverbindungsobjekt
SetCnnxml = server.createObject ("adodb.Connection")
'Dies ist ein Beispiel für eine Verbindung zur Zugriffsdatenbank:
'cnnxml.open "provider = microsoft.jet.oledb.4.0; dataSource =" _
'& Server.mappath ("db_scratch.mdb") & ";"
'Das Folgende ist ein Beispiel zu erklären:
cnnxml.open "Provider = SQLOLEDB; DataSource = 10.2.1.214;" _
& "Initialcatalog = mustples; userId = sample; password = password;" _
& "ConnectTimeOut = 15; networkLibrary = dbmssocn;"
SetRStxml = server.createObject ("adodb.recordset"))
SetRStxml = cnnxml.execute ("SELECT*AUSSCRATCHORDBYID;")
Response.write "<p> SavingDataasxMl ... </p>" & vbcrlf
'Speichern im XML -Format.
rstxml.saveserver.mappath ("db_xml.xml"), adpersistxml
'Schließen Sie das Objekt und geben Sie die Ressource frei
rstxml.close
SetRStxml = nichts
cnnxml.close
SetCnnxml = nichts
Response.write "<p> xmlFileWriten ... </p>" & vbcrlf
Response.write "<p> klicken <aref =" "db_xml.xml" "> hier </a> toViewTheFile. </P>" & vbcrlf
%>