把下面代码保【dài mǎ bǎo】存为📠Asp_XML.asp运行即【yùn háng jí】可【kě】🕒:   
<％    
Const IsSql = 1    ’定义数据库【shù jù kù】🚓类型为🍔SQL Server   
Call OpenConn(Conn) ’打开数【dǎ kāi shù】😾据库连【jù kù lián】😰接【jiē】📉   
   
Dim Rs,Sql   
Set Rs = Server.CreateObject("ADODB.RecordSet")   
Sql = "SELECT * FROM Products ORDER BY ProductName"   
Rs.Open Sql,Conn,1,1 ’以只读方式查询数✒据记录【lù】🎎   
If Rs.Eof Then   
    Response.Write "Sorry,no record!" ’如果没有记录【lù】🚀   
Else   
    Dim objXMLDOM, objRootNode, objNode   
    Set objXMLDOM = Server.CreateObject("MSXML2.DOMDocument") ’创建【chuàng jiàn】XML文档对象【xiàng】⤴   
    Set objRootNode = objXMLDOM.createElement("xml") ’创建【chuàng jiàn】根节点【jiē diǎn】🗜   
    objXMLDOM.documentElement = objRootNode   
   
    Do While Not Rs.Eof       ’循环出所有记录【lù】🚀   
’        Response.Write Rs("ProductName") &"<br>"   
        Set objRowNode = objXMLDOM.createElement("row") ’创建【chuàng jiàn】父🖖节点【jiē diǎn】🗜    
        Set objNode = objXMLDOM.createElement("ProductName") ’创建【chuàng jiàn】子👐节点【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 ’循环结【xún huán jié】束🏢   
       
    objXMLDOM.Save "D:\MyXMLDoc.xml" ’写入XML文件【wén jiàn】 可【kě】🕒以用变量让🔛用户在【yòng hù zài】页面上【yè miàn shàng】🍰自定义【zì dìng yì】文件【wén jiàn】名【míng】   
    Response.Write "<script>alert(’恭喜，写入XML文件【wén jiàn】成功🍼！’);</script>"   
    Set objNode = Nothing      ’销毁对【xiāo huǐ duì】🏛象【xiàng】⤴   
    Set objRowNode = Nothing  ’销毁对【xiāo huǐ duì】🏛象【xiàng】⤴   
    Set objRootNode = Nothing ’销毁对【xiāo huǐ duì】🏛象【xiàng】⤴   
End If   
Rs.Close   
Set Rs = Nothing   
   
Call CloseConn() ’关闭数【guān bì shù】据库【jù kù】🚓连接【lián jiē】📉   
   
Function OpenConn(Conn)     ’打开数【dǎ kāi shù】😾据库连【jù kù lián】😰接【jiē】📉   
    Dim ConnStr   
    If IsSql = 1 Then ’如果是👑SQL Server数据库【shù jù kù】🚓   
        ’SQL Server数据库【shù jù kù】🚓连接【lián jiē】📉参数【cān shù】✒:用户名【míng】、用户密🚾码、数据库【shù jù kù】🚓名【míng】、连接【lián jiē】📉名【míng】（本地用local，外地用【wài dì yòng】🗾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   
        ’第一次【dì yī cì】使用请修改本【xiū gǎi běn】处数据【chù shù jù】🌒库地址并相应修改数【xiū gǎi shù】据库【jù kù】🚓名【míng】称，如将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ù】🚓连接【lián jiē】📉出错【chū cuò】，请检查👳连接【lián jiē】📉字串。"   
        Response.End   
    End If   
    Set Rs = Server.CreateObject("Adodb.RecordSet")   
End Function   
   
Function CloseConn()  ’关闭数【guān bì shù】据库【jù kù】🚓连接【lián jiē】📉   
    Conn.Close   
    Set Conn = Nothing &