asp下將數(shù)據(jù)庫中的信息存儲(chǔ)至XML文件中

2024-05-04 10:58:02

字體：大中小

供稿：網(wǎng)友

save.asp

<%
' Constants file included above.
' 如果文件存在則刪除
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(Server.MapPath("db_xml.xml")) Then
objFSO.DeleteFile Server.MapPath("db_xml.xml")
End IF
Set objFSO = Nothing
'變量聲明
Dim cnnXML ' ADO connection
Dim rstXML ' ADO recordset
'創(chuàng)建數(shù)據(jù)連接對(duì)象
Set cnnXML = Server.CreateObject("ADODB.Connection")
' 這是連接access數(shù)據(jù)庫的例子:
'cnnXML.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
' & Server.MapPath("db_scratch.mdb") & ";"
' 下面以Sqlserver為例子講解:
cnnXML.Open "Provider=SQLOLEDB;Data Source=10.2.1.214;" _
& "Initial Catalog=samples;User Id=samples;Password=password;" _
& "Connect Timeout=15;Network Library=dbmssocn;"
Set rstXML = Server.CreateObject("ADODB.Recordset")
Set rstXML = cnnXML.Execute("SELECT * FROM scratch ORDER BY id;")
Response.Write "Saving data as XML..." & vbCrLf
' 保存至xml格式.
rstXML.Save Server.MapPath("db_xml.xml"), adPersistXML
' 關(guān)閉對(duì)象、釋放資源
rstXML.Close
Set rstXML = Nothing
cnnXML.Close
Set cnnXML = Nothing
Response.Write "XML file written..." & vbCrLf
Response.Write "Click <a href=""db_xml.xml"">here</a> to view the file." & vbCrLf
%>

您可能感興趣的文章:

asp access數(shù)據(jù)庫并生成XML文件范例Javascript+XMLHttpRequest+asp.net無刷新讀取數(shù)據(jù)庫數(shù)據(jù)ASP XML操作類代碼ASP讀取XML實(shí)例優(yōu)酷專輯采集程序雷鋒版ASP XMLDom在服務(wù)器端操作XML文件的主要方法和實(shí)現(xiàn)Asp操作Xml的精煉類,含示例代碼ASP.NET+XML打造網(wǎng)絡(luò)硬盤原理分析asp xmlhttp下載一句話asp.net TreeView與XML三步生成列表樹Asp 解析 XML并分頁顯示源碼ASP.NET中XML轉(zhuǎn)JSON的方法實(shí)例ASP.net處理XML數(shù)據(jù)實(shí)例淺析ASP.NET XmlDocument類詳解asp.net中XML如何做增刪改查操作asp控制xml數(shù)據(jù)庫的經(jīng)典代碼

上一篇：推薦ASP超速入門視頻教程

下一篇：Asp下實(shí)現(xiàn)限制IP訪問的程序代碼