ASP中查询数据库记录写入XML文件示例

把下面代码保存为Asp_XML.asp运行即可:

<%
'ByDicky2005-03-2221:52:18AMQQ:25941E-mail:AppleBBS@GMail.Com
ConstIsSql=1'定义数据库类型为SQLServer
CallOpenConn(Conn)'打开数据库连接

DimRs,Sql
SetRs=Server.CreateObject("ADODB.RecordSet")
Sql="SELECT*FROMProductsORDERBYProductName"
Rs.OpenSql,Conn,1,1'以只读方式查询数据记录
IfRs.EofThen
Response.Write"Sorry,norecord!"'如果没有记录
Else
DimobjXMLDOM,objRootNode,objNode
SetobjXMLDOM=Server.CreateObject("MSXML2.DOMDocument")'创建XML文档对象
SetobjRootNode=objXMLDOM.createElement("xml")'创建根节点
objXMLDOM.documentElement=objRootNode

DoWhileNotRs.Eof'循环出所有记录
'Response.WriteRs("ProductName")&"<br>"
SetobjRowNode=objXMLDOM.createElement("row")'创建父节点
SetobjNode=objXMLDOM.createElement("ProductName")'创建子节点
objNode.text=Rs("ProductName")
objRowNode.appendChild(objNode)

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

SetobjNode=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>"
SetobjNode=Nothing'销毁对象
SetobjRowNode=Nothing'销毁对象
SetobjRootNode=Nothing'销毁对象
EndIf
Rs.Close
SetRs=Nothing

CallCloseConn()'关闭数据库连接

FunctionOpenConn(Conn)'打开数据库连接
DimConnStr
IfIsSql=1Then'如果是SQLServer数据库
'SQLServer数据库连接参数:用户名、用户密码、数据库名、连接名（本地用local，外地用IP）
DimSqlUsername,SqlPassword,SqlDatabaseName,SqlLocalName
SqlUsername="sa"
SqlPassword=""
SqlDatabaseName="Northwind"
SqlLocalName="(local)"
ConnStr="Provider=Sqloledb;UserID="&SqlUsername&";Password="&SqlPassword&";InitialCatalog="&SqlDatabaseName&";DataSource="&SqlLocalName&";"
Else'如果是Access数据库
DimDb
'第一次使用请修改本处数据库地址并相应修改数据库名称，如将Dicky.mdb修改为Dicky.asp(防止恶意下载Access数据库)
Db="Dicky.mdb"
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(Db)
EndIf
OnErrorResumeNext
SetConn=Server.CreateObject("ADODB.Connection")
Conn.OpenConnStr
IfErrThen
'Err.Clear
SetConn=Nothing
Response.Write"数据库连接出错，请检查连接字串。"
Response.End
EndIf
SetRs=Server.CreateObject("Adodb.RecordSet")
EndFunction

FunctionCloseConn()'关闭数据库连接
Conn.Close
SetConn=Nothing
EndFunction
%>