asp读取数据库数据(asp中查询数据库记录写入xml文件示例怎么写)

将以下代码另存为Asp_XML.asp并运行： % 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'scriptalert('恭喜，写入XML 文件已成功的！ ');/script' SetobjNode=Nothing'销毁对象SetobjRowNode=Nothing'销毁对象SetobjRootNode=Nothing'销毁对象EndIf Rs.Close SetRs=Nothing CallCloseConn()'关闭数据库连接FunctionOpenConn(Conn)'打开数据库connection DimConnStr IfIsSql=1Then '如果是SQLServer数据库' SQLServer数据库连接参数： 用户名、用户密码、数据库名、连接名（本地使用本地，国外使用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