我的一亩三分地 我就喜欢!
13fen  设为主页
 收藏本站
 
当前位置: > 一亩三分地：首页 > 网络学院 > 网络编程 > ASP专区 > Asp安全/XML > ASP中查询数据库记录写入XML文件示例
热门文章排行
热门文章排行 手推车”功能的实现(10-07)
八大法则防范ASP网站漏洞(10-23)
ASP教程十一、调试ASP脚本(10-23)
在JSP中访问数据库大全(10-23)
虚机服务中常见Asp.Net低级错误一览(03-21)
精采文章排行
精采文章排行 ASP.NET实现抓取网页中的链接(11-15)
ASP连接数据库的11种方法(11-10)
如何动态创建网页的RSS内容摘要(11-10)
ASP网站漏洞及入侵防范方法(11-10)
ASP自定义函数：对字符串正则替换(11-10)
技术专题推荐
网管论坛交流
　

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

作者:佚名   来源:一亩三分地   点击:   日期:2007-03-22
把下面代码保存为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中巧用Response属性 ·第六课:ASP脚本循环语句
·在 Web 页上使用条件数值格式 ·连接数据库查询手册（不仅仅适用于asp）
·警惕"给你的FileSystemObject对象加把锁" ·用ASP做全文检索

   文章评论:(条)
  
 请留名： 匿名评论   点击查看所有评论 网管论坛
 

  责任编辑:一分  声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。