国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 民权县| 南华县| 大关县| 会东县| 二连浩特市| 西乌珠穆沁旗| 普格县| 安化县| 甘孜县| 呼伦贝尔市| 河津市| 宝鸡市| 大城县| 讷河市| 靖江市| 伊春市| 土默特右旗| 梅州市| 怀柔区| 三江| 昌都县| 仙桃市| 高尔夫| 呼玛县| 巩留县| 竹山县| 定边县| 隆德县| 敖汉旗| 江达县| 壤塘县| 湟源县| 龙山县| 桐梓县| 马龙县| 屏南县| 乌兰县| 永丰县| 岐山县| 阆中市| 玉溪市|