麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 學院 > 開發設計 > 正文

將ado方便的轉化為XML文件

2019-11-18 20:15:14
字體：大 中 小
來源：轉載
供稿：網友
<!-- #include file="adovbs.inc" -->
<%
' 刪除已經存在的文件
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 連接
Dim rstXML  ' ADO 記錄集

Set cnnXML = Server.CreateObject("ADODB.Connection")

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
%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 久久九九热re6这里有精品 | 精品国产欧美一区二区 | 欧美性受xxxx白人性爽 | 亚洲国产美女视频 | 黄色特级视频 | 99激情视频 | 精品国产乱码一区二区三区四区 | 亚洲午夜在线视频 | 999久久久| 亚洲精品午夜电影 | 日本在线观看视频网站 | 久久草在线观看视频 | 美女毛片儿 | 国产a一级片 | 国产一区二区三区在线视频 | 久久久aa| 久久久久在线观看 | 色综合欧美| 日本特级a一片免费观看 | 欧洲精品视频在线观看 | 成人在线观看免费观看 | 韩国一级免费视频 | 操毛片 | 特级毛片全部免费播放器 | 欧美成人精品一区二区 | 青青草在线免费观看 | 看免费黄色大片 | 在线观看av国产一区二区 | 国色天香综合网 | 色啪综合| www.99re14.com| 久久久久久久久久久久久久av | 九一免费在线观看 | 国产乱子视频 | 久久久久久久久久久综合 | 欧洲黄色一级视频 | 91精品国产综合久久久欧美 | 欧美不卡视频在线观看 | 午夜激情视频网站 | 久久久久一区二区三区四区五区 | 色污视频在线观看 |