บันทึก.
<!-#includefile = "adovbs.inc"->
-
'Constantsfileincludedabove
'ถ้าไฟล์มีอยู่ให้ลบออก
dimobjfso
setObjfso = server.createObject ("scripting.filesystemobject")
ifoBjfso.fileexists (server.mappath ("db_xml.xml"))) จากนั้น
objfso.deletefileserver.mappath ("db_xml.xml"))
endif
setObjfso = ไม่มีอะไร
'การประกาศตัวแปร
dimcnnxml'adoconnection
dimrstxml'adorecordset
'สร้างวัตถุการเชื่อมต่อข้อมูล
setcnnxml = server.createObject ("adodb.connection"))
'นี่เป็นตัวอย่างของการเชื่อมต่อกับฐานข้อมูลการเข้าถึง:
'cnnxml.open "ผู้ให้บริการ = microsoft.jet.oledb.4.0; dataSource =" _
'& server.mappath ("db_scratch.mdb") & ";"
'ต่อไปนี้เป็นตัวอย่างที่จะอธิบาย:
cnnxml.open "ผู้ให้บริการ = sqloledb; dataSource = 10.2.1.214;" _
& "initialCatalog = samples; userId = samples; รหัสผ่าน = รหัสผ่าน;" _
& "ConnectTimeOut = 15; NetworkLibrary = DBMSSOCN;"
setRstxml = server.createObject ("adodb.recordset"))
setrstxml = cnnxml.execute ("เลือก*fromscratchorderbyid;")
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
-