Save.asp
<!-#includefile = "adovbs.inc"->
<٪
'constantsfileincludedabove.
إذا كان الملف موجودًا ، فقم بحذفه
Dimobjfso
setobjfso = server.createBject ("scripting.filesystemObject")
ifobjfso.filexists (server.mappath ("db_xml.xml") ثم
objfso.deletefileserver.mappath ("db_xml.xml")
Endif
setobjfso = لا شيء
إعلان متغير
dimcnnxml'adoconnection
dimrstxml'adorecordset
"إنشاء كائن اتصال بيانات
setcnnxml = server.createBject ("adodb.connection")
هذا مثال على الاتصال بقاعدة بيانات الوصول:
'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 = samples ؛ password = password ؛" _
& "ConnectTimeout = 15 ؛ NetworkLibrary = DBMSSOCN ؛"
setRSTXML = server.createObject ("adodb.recordset")
setRSTXML = cnnxml.execute ("SELECT*fromScratchOrderByid ؛")
Response.write "<p> SaveDataAsxml ... </p>" & vbcrlf
"حفظ إلى شكل XML.
rstxml.saveserver.mappath ("db_xml.xml") ، adpersistxml
أغلق الكائن وأطلق المورد
rstxml.close
setRSTXML = لا شيء
cnnxml.close
setcnnxml = لا شيء
استجابة. write "<p> xmlfilewriten ... </p>" & vbcrlf
Response.write "<p> انقر فوق <ahref =" "" db_xml.xml ""> هنا </a> toviewTheFile. </p> "& vbcrlf
٪>