ASP中查詢數據庫記錄寫入XML文件示例-WEBASP.NET

精彩推薦

分類最新教程

分類熱點教程

ASP中查詢數據庫記錄寫入XML文件示例

作者：未知

日期：2005-04-12

人氣：

投稿：(轉貼)

來源：未知

字體：大中小

收藏：加入瀏覽器收藏

以下正文：

把下面代碼保存為Asp_XML.asp運行即可:
<%
』By Dicky 2005-03-22 21:52:18 AM QQ:25941 E-mail:AppleBBS@GMail.Com
Const IsSql = 1    』定義數據庫類型為SQL Server
Call OpenConn(Conn) 』打開數據庫連接

Dim Rs,Sql
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql = "SELECT * FROM Products ORDER BY ProductName"
Rs.Open Sql,Conn,1,1 』以只讀方式查詢數據記錄
If Rs.Eof Then
    Response.Write "Sorry,no record!" 』如果沒有記錄
Else
    Dim objXMLDOM, objRootNode, objNode
    Set objXMLDOM = Server.CreateObject("MSXML2.DOMDocument") 』創建XML文檔對像
    Set objRootNode = objXMLDOM.createElement("xml") 』創建根節點
    objXMLDOM.documentElement = objRootNode

    Do While Not Rs.Eof       』循環出所有記錄
』        Response.Write Rs("ProductName") &"<br>"
        Set objRowNode = objXMLDOM.createElement("row") 』創建父節點
        Set objNode = objXMLDOM.createElement("ProductName") 』創建子節點
        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 』循環結束

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

Call CloseConn() 』關閉數據庫連接

Function OpenConn(Conn)     』打開數據庫連接
    Dim ConnStr
    If IsSql = 1 Then 』如果是SQL Server數據庫
        』SQL Server數據庫連接參數:用戶名、用戶密碼、數據庫名、連接名（本地用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數據庫
        Dim Db
        』第一次使用請修改本處數據庫地址並相應修改數據庫名稱，如將Dicky.mdb修改為Dicky.asp(防止惡意下載Access數據庫)
        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 "數據庫連接出錯，請檢查連接字串。"
        Response.End
    End If
    Set Rs = Server.CreateObject("Adodb.RecordSet")
End Function

Function CloseConn()  』關閉數據庫連接
    Conn.Close
    Set Conn = Nothing
End Function
%>

相關文章：