国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(xué)院 > 開發(fā)設(shè)計 > 正文

將ado方便的轉(zhuǎn)化為XML文件

2019-11-18 20:15:14
字體：大 中 小
供稿：網(wǎng)友
<!-- #include file="adovbs.inc" -->
<%
' 刪除已經(jīng)存在的文件
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

' 定義變量，很好的習(xí)慣
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

' 關(guān)閉數(shù)據(jù)庫連接，釋放對象
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
%>

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 公安县| 姜堰市| 文登市| 忻州市| 民丰县| 普格县| 泸西县| 原平市| 林州市| 甘肃省| 东宁县| 华容县| 新宾| 天津市| 法库县| 乌兰察布市| 托克逊县| 太原市| 武安市| 讷河市| 高尔夫| 澄城县| 三穗县| 增城市| 鲁山县| 洮南市| 静乐县| 张家港市| 罗平县| 明溪县| 葵青区| 额尔古纳市| 谢通门县| 彭山县| 富阳市| 天峻县| 凤翔县| 顺昌县| 社会| 郴州市| 买车|