[原创]ASP中RecordSet转换成XML文档并输出

 

XMLHelper类 完整代码

 

 1<%
 2    '--------------------------------------
 3    '类名称    ：XML文档操作类
 4    '类用途    ：提供XML文档的常用操作方法
 5    '类入口函数：InitClass
 6    '作者      ：Kennyluo
 7    '版权所有  ：珠海睿达信息科技有限公司
 8         '公司网址  ：www.voswin.com
 9    '版本      ：1.0
    '版本更新  ：2008-09-02
    '--------------------------------------
    class XMLHelper
        private filename_
        private xmlfile_
        private objxml_
        
        property Let filename(value)
            filename_=filename
        end property
        
        property Get filename
            filename =filename_
        end property
        
        property Get objxml
            objxml=objxml_
        end property
        
        public function LoadXml(ByVal filename)
            if filename <>"" then
                filename_=filename
            end if
            xmlfile_=server.MapPath(filename_)
            set objxml_=server.CreateObject("MSXML2.DOMDocument")
            objxml_.load(sxmlfile)
            objxml_.async=false
            if objxml_.parseError.ErrorCode = 0 then
                loadfile=true
            else
                CreateXMLFile
            end if
        end function
        
        private sub CreateXMLFile()
            Set oPI=objxml_.createProcessingInstruction("xml", "version=""1.0"" encoding=""GB2312""")
            objxml_.insertBefore oPI,objxml_.childNodes(0) 
            SaveXML
        end sub
        
        private sub SaveXML()'保存文件
            objxml_.save(xmlfile_)
        end sub
        
        private sub SaveXMLForce()'保存文件
            DelXML()
            CreateXMLFile()
            objxml_.save(xmlfile_)
        end sub
        private sub DelXML()
            Set fso = Server.CreateObject("Scripting.FileSystemObject")
            if fso.FileExists(xmlfile_) then                
                fso.DeleteFile(xmlfile_)
            end if
            Set fso = nothing
        end sub
        public sub RecordSetToXML(ByVal Rs,ByVal ForceUpdate)
            Dim objRootNode,objRowNode,objNode
            Set objRootNode = objxml_.createElement("table") '创建根节点 
            objxml_.documentElement = objRootNode
            Do While Not Rs.Eof       '循环出所有记录 
                Set objRowNode = objxml_.createElement("row") '创建父节点
                 
                for i = 0 to Rs.Fields.count - 1 '循环出所有字段
                    Set objNode = objxml_.createElement(Rs.Fields(i).Name) '创建子节点 
                    objNode.text = trim(Cstr(Rs.Fields(i).Value)) 
                    objRowNode.appendChild(objNode)  
                next
                objRootNode.appendChild(objRowNode) 
            Rs.MoveNext:Loop '循环结束
            if ForceUpdate then 
                 SaveXMLForce '强制输出XML文件
            else
                SaveXML '输出XML文件
            end if
            Set objNode = Nothing      '销毁对象 
            Set objRowNode = Nothing  '销毁对象 
            Set objRootNode = Nothing '销毁对象
        end sub
    end class
%>

 

 

XMLHelper 类使用示例

 

 

 1 <!--#include file="XMLHelper.asp"-->
 2 <%
 3         dim xmlcontrol,sql
 4         Set xmlcontrol = new XMLHelper
 5         'xmlcontrol.filename="xml.xml"
 6         xmlcontrol.LoadXml("xml.xml")
 7         '--MsSQL 数据库连接--
 8         DBServer="---"  '数据库服务器IP地址
 9         DBuid="-----"          '数据库服务器用户名
         DBpwd="------"           数据库服务器用户密码
         DBname="--------"    '数据库名称
         
         conndata="driver={SQL Server};server="&DBServer&";uid="&DBuid&";pwd="&DBpwd&";database="&DBname&""
         
         If IsObject(conn) = false Then
             set conn = Server.CreateObject("ADODB.Connection")
             conn.Open conndata
             If Err.Number <> 0 Then
                Response.Write(Err.Number)
                Response.write "系统日常维护中1!"
                Response.End()
             end if
         end if
         Set rs = Server.CreateObject("adodb.recordset")
         sql = "查询语句"
         rs.open sql,conn,1,3
         if not rs.eof then
             xmlcontrol.RecordSetToXML rs,false
             Response.Write(rs.recordcount)
         end if
         
         rs.close
         Set rs = nothing
         
         if IsObject(conn) then
             conn.close
             Set conn=nothing
         end if
 %>