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

 

XMLHelper类 完整代码

 

>

 

 

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="-----"          '数据库服务器用户名
10         DBpwd="------"           数据库服务器用户密码
11         DBname="--------"    '数据库名称
12         
13         conndata="driver={SQL Server};server="&DBServer&";uid="&DBuid&";pwd="&DBpwd&";database="&DBname&""
14         
15         If IsObject(conn) = false Then
16             set conn = Server.CreateObject("ADODB.Connection")
17             conn.Open conndata
18             If Err.Number <> 0 Then
19                Response.Write(Err.Number)
20                Response.write "系统日常维护中1!"
21                Response.End()
22             end if
23         end if
24         Set rs = Server.CreateObject("adodb.recordset")
25         sql = "查询语句"
26         rs.open sql,conn,1,3
27         if not rs.eof then
28             xmlcontrol.RecordSetToXML rs,false
29             Response.Write(rs.recordcount)
30         end if
31         
32         rs.close
33         Set rs = nothing
34         
35         if IsObject(conn) then
36             conn.close
37             Set conn=nothing
38         end if
39 %>