 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
把下面代码保存为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 %> 返回类别: 教程 上一教程: 如何从数据库得到一个列表表单 下一教程: ASP 3.0高级编程(四十) 您可以阅读与"ASP中查询数据库记录写入XML文件示例"相关的教程: · ASP中通过GETROWS实现数据库记录分页的一段代码 · ASP应用中数据库记录的选取与过滤 · ASP中利用数组实现数据库记录的批量录入方式 · 不刷新页面查询数据库中数据的方式-XML方式 · ASP实现单页查询数据库 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
