DNF每日簽到送豪
lol7月神秘商店
LOL黑市亂斗怎么
LOL英雄成就標志相關資訊
本類常用軟件
-
福建農村信用社手機銀行客戶端下載下載量：584204
-
Windows優化大師下載量：416896
-
90美女秀(視頻聊天軟件)下載量：366961
-
廣西農村信用社手機銀行客戶端下載下載量：365699
-
快播手機版下載量：325855
騎自行車的正確
在校大學生該如
微信朋友圈怎么這篇文章是一個關于ASP將數據庫中的信息存放到xml文件中的實例分享，希望對大家有幫助。
save.ASP
<!-- #include file="adoVBs.inc" -->
<%
' 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
'創建數據連接對象
Set cnnXML = Server.CreateObject("ADODB.Connection")
' 這是連接access數據庫的例子:
'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 "<p>Saving data as XML...</p>" & vbCrLf
' 保存至xml格式.
rstXML.Save Server.MapPath("db_xml.xml"), adPersistXML
' 關閉對象、釋放資源
rstXML.Close
Set rstXML = Nothing
cnnXML.Close
Set cnnXML = Nothing
Response.Write "<p>XML file written...</p>" & vbCrLf
Response.Write "<p>Click <a href=""db_xml.xml"">here</a> to view the file.</p>" & vbCrLf
%>