sauvegarder
<! - # includeFile = "adovbs.inc" ->
<%
«Constantsfileincludedabove.
'Si le fichier existe, supprimez-le
Dimobjfso
SetObjfso = server.createObject ("scripting.fileSystemObject")
IfoBjfso.fileExists (server.mappath ("db_xml.xml")) puis
objfso.deleteFileServer.mappath ("db_xml.xml")
Endire
SetObjfso = rien
'Déclaration variable
Dimcnnxml'adoconnection
Dimrstxml'adorecordset
'Créer un objet de connexion de données
Setcnnxml = server.createObject ("adodb.connection")
«Ceci est un exemple de connexion à la base de données d'accès:
'cnnxml.open "provider = Microsoft.jet.oledb.4.0; dataSource =" _
'& Server.mappath ("db_scratch.mdb") & ";"
«Ce qui suit est un exemple à expliquer:
cnnxml.open "provider = sqloledb; dataSource = 10.2.1.214;" _
& "InitialCatalog = échantillons; userId = échantillons; mot de passe = mot de passe;" _
& "ConnectTimeout = 15; NetworkLibrary = DBMSSOCN;"
SetRSTXML = server.createObject ("adodb.recordSet")
SetRSTXML = cnnxml.execute ("select * fromscratchOrderByid;")
Réponse.write "<p> SAVINGDATAASXML ... </p>" & vbcrlf
«Enregistrer au format XML.
rstxml.saveserver.mappath ("db_xml.xml"), adpersistxml
«Fermez l'objet et libérez la ressource
rstxml.close
SetRSTXML = rien
cnnxml.close
Setcnnxml = rien
Réponse.Write "<p> xmlfilewriten ... </p>" & vbcrlf
Réponse.write "<p> cliquez sur <href =" "db_xml.xml" "> ici </a> ToViewthefile. </p>" & vbcrlf
%>