91久久久久久久久_欧美日韩中文_在线观看中文字幕亚洲_夜夜骑首页_精品久久伊人_天天色天天射天天操

當前位置: 首頁IT技術 → ASP將數據庫中的信息存放到XML文件中的實例分享

ASP將數據庫中的信息存放到XML文件中的實例分享

更多

這篇文章是一個關于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
  %>

熱門評論
最新評論
昵稱:
表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
字數: 0/500 (您的評論需要經過審核才能顯示)
主站蜘蛛池模板: 国产a久久麻豆入口 | 免费网站观看www在线观看 | 在线观看视频一区二区 | av黄色在线观看 | 香蕉视频色版 | 国产精品欧美精品 | 国产欧美日韩视频 | 欧美色图一区二区三区 | 久久久www成人免费精品 | 色婷婷狠狠| 91久久奴性调教 | 成人激情综合网 | 国产一区二区三区久久 | 亚洲天堂色 | 国产成人97精品免费看片 | 18在线观看网站 | 国产精品视频免费在线观看 | 日韩精品一二区 | 天天天天干 | 顶级黄色片 | 欧美三级韩国三级日本三斤在线观看 | 91福利网| 可以免费看的av | 亚洲福利专区 | 激情综合婷婷 | 谁有毛片网站 | 亚洲综合视频在线 | 亚洲激情片 | 男女啪啪免费网站 | 日韩精品观看 | 国产在线视频一区 | 国产精品suv一区二区 | 国产精品av在线 | 亚洲综合另类 | 国产伦理一区二区 | 国产精品一区二区免费 | 亚洲一区二区三区在线播放 | 成人午夜av | 一级黄色片在线观看 | 中文字幕在线观看日本 | 国产成人综合在线 |