save.asp
<!-#includeFile = "adovbs.inc"->
<%
'Constantsfileincludededabove.
'Jika ada file, hapus
Dimobjfso
SetObjfso = server.CreateObject ("Scripting.FilesystemObject")
Ifobjfso.fileexists (server.mappath ("db_xml.xml")) lalu
objfso.deleteFileserver.mappath ("db_xml.xml")
Endif
Setobjfso = tidak ada
'Deklarasi Variabel
Dimcnnxml'adoconnection
DIMRSTXML'Adorecordset
'Buat Objek Koneksi Data
Setcnnxml = server.createObject ("adodb.connection")
'Ini adalah contoh menghubungkan ke database akses:
'cnnxml.open "penyedia = microsoft.jet.oledb.4.0; DataSource =" _
'& Server.mappath ("db_scratch.mdb") & ";"
'Berikut ini adalah contoh untuk dijelaskan:
cnnxml.open "penyedia = sqloledb; dataSource = 10.2.1.214;" _
& "Initialcatalog = sampel; userid = sampel; kata sandi = kata sandi;" _
& "ConnectTimeout = 15; NetworkLibrary = dBMSSoCn;"
Setrstxml = server.createObject ("adodb.recordset")
Setrstxml = cnnxml.execute ("Pilih*dariScratchOrderById;")
Response.write "<p> savingDataasxml ... </p>" & vbcrlf
'Simpan ke format XML.
rstxml.saveserver.mappath ("db_xml.xml"), adpersistxml
'Tutup objek dan lepaskan sumber daya
rstxml.close
Setrstxml = tidak ada
cnnxml.close
Setcnnxml = tidak ada
Response.write "<p> xmlfilewriten ... </p>" & vbcrlf
Response.write "<p> Klik <ahref =" "db_xml.xml" "> di sini </a> toviewthefile. </p>" & vbcrlf
%>