ASP中查詢數(shù)據(jù)庫(kù)記錄寫入XML文件示例

我要評(píng)論 2010/02/16 19:13:02 來(lái)源：綠色資源網(wǎng) 編輯：綠色資源站 [大中小] 評(píng)論:0 點(diǎn)擊:480次

把下面代碼保存為Asp_XML.asp運(yùn)行即可:
<％
Const IsSql = 1    ’定義數(shù)據(jù)庫(kù)類型為SQL Server
Call OpenConn(Conn) ’打開數(shù)據(jù)庫(kù)連接

Dim Rs,Sql
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql = "SELECT * FROM Products ORDER BY ProductName"
Rs.Open Sql,Conn,1,1 ’以只讀方式查詢數(shù)據(jù)記錄
If Rs.Eof Then
    Response.Write "Sorry,no record!" ’如果沒有記錄
Else
    Dim objXMLDOM, objRootNode, objNode
    Set objXMLDOM = Server.CreateObject("MSXML2.DOMDocument") ’創(chuàng)建XML文檔對(duì)象
    Set objRootNode = objXMLDOM.createElement("xml") ’創(chuàng)建根節(jié)點(diǎn)
    objXMLDOM.documentElement = objRootNode

    Do While Not Rs.Eof       ’循環(huán)出所有記錄
’        Response.Write Rs("ProductName") &"<br>"
        Set objRowNode = objXMLDOM.createElement("row") ’創(chuàng)建父節(jié)點(diǎn)
        Set objNode = objXMLDOM.createElement("ProductName") ’創(chuàng)建子節(jié)點(diǎn)
        objNode.text = Rs("ProductName")
        objRowNode.appendChild(objNode)

        Set objNode = objXMLDOM.createElement("UnitPrice")
        objNode.text = Rs("UnitPrice")
        objRowNode.appendChild(objNode)

        Set objNode = objXMLDOM.createElement("UnitsInStock")
        objNode.text = Rs("UnitsInStock")
        objRowNode.appendChild(objNode)

        objRootNode.appendChild(objRowNode)
    Rs.MoveNext:Loop ’循環(huán)結(jié)束

    objXMLDOM.Save "D:\MyXMLDoc.xml" ’寫入XML文件可以用變量讓用戶在頁(yè)面上自定義文件名
    Response.Write "<script>alert(’恭喜，寫入XML文件成功！’);</script>"
    Set objNode = Nothing      ’銷毀對(duì)象
    Set objRowNode = Nothing  ’銷毀對(duì)象
    Set objRootNode = Nothing ’銷毀對(duì)象
End If
Rs.Close
Set Rs = Nothing

Call CloseConn() ’關(guān)閉數(shù)據(jù)庫(kù)連接

Function OpenConn(Conn)     ’打開數(shù)據(jù)庫(kù)連接
    Dim ConnStr
    If IsSql = 1 Then ’如果是SQL Server數(shù)據(jù)庫(kù)
        ’SQL Server數(shù)據(jù)庫(kù)連接參數(shù):用戶名、用戶密碼、數(shù)據(jù)庫(kù)名、連接名（本地用local，外地用IP）
        Dim SqlUsername,SqlPassword,SqlDatabaseName,SqlLocalName
        SqlUsername = "sa"
        SqlPassword = ""
        SqlDatabaseName = "Northwind"
        SqlLocalName = "(local)"
        ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & ";
Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
    Else  ’如果是Access數(shù)據(jù)庫(kù)
        Dim Db
        ’第一次使用請(qǐng)修改本處數(shù)據(jù)庫(kù)地址并相應(yīng)修改數(shù)據(jù)庫(kù)名稱，如將Dicky.mdb修改為Dicky.asp(防止惡意下載Access數(shù)據(jù)庫(kù))
        Db = "Dicky.mdb"
        ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(Db)
    End If
    On Error Resume Next
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open ConnStr
    If Err Then
’        Err.Clear
        Set Conn = Nothing
        Response.Write "數(shù)據(jù)庫(kù)連接出錯(cuò)，請(qǐng)檢查連接字串。"
        Response.End
    End If
    Set Rs = Server.CreateObject("Adodb.RecordSet")
End Function

Function CloseConn()  ’關(guān)閉數(shù)據(jù)庫(kù)連接
    Conn.Close
    Set Conn = Nothing &