ASP生成XML数据

时间：2009-05-21 来源：hkebao

1. XML

在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以"<![CDATA[" 标记开始，以"]]>"标记结束:

 
2.       编写DBConnection.asp 连接DB的代码 
<% 
'返回连接DB对象 
Function ConnOpenNewConnectionClub 
       Dim Conn 
       Set Conn = Server.CreateObject("ADODB.Connection") 
       If Err.Number <> 0  Then 
           Set ConnOpenNewConnectionClub = Nothing 
           Exit Function 
       End If 
       login_user = Application("Connection_RuntimeMyTianyaUserName")   '定义到了asa文件中去了。 
       login_passwd = Application("Connection_RuntimeMyTianyaPassword") 
       conn.ConnectionTimeout = Application("Connection_ConnectionTimeout") 
       conn.CommandTimeout = Application("Connection_CommandTimeout")    '设置游标属性 
       conn.Open "DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user , login_passwd  '密码存在文件中 
       If Err.Number <> 0  Then 
          Set ConnOpenNewConnectionClub = Nothing 
       Else 
          Set ConnOpenNewConnectionClub = conn                 '返回回来一个连接对象 
       End If 
End Function 
Dim oConn 
Set oConn = ConnOpenNewConnectionClub()                     '引用此函数得到一个连接对象 
%>    返回出来一个连接对象 
3.       开始编写XML数据生成 
<!--#include file="DBConnection.asp"--> 
<% 
Response.ContentType = "text/xml" 
%> 
<% 
'======================================== 
'生成接口数据，接收参数bbs表的ID 
'输出XML数据： User_Name,Topic,Content 
'======================================== 
%> 
<% 
       Dim strId               '传入ID 
       Dim strSQL,strUserName,strTopic,strContent,strOut 
       strId = Trim(Request.QueryString("id"))       
       response.Write "<?xml version='1.0' encoding='gb2312' ?>" &vbCrLf       
       If IsNumeric(strId) = False Then  
                     response.write "<errors><![CDATA[ 传入参数异常 ]]></errors>" 
                     response.End 
       End If  
       strSQL = "SELECT User_Name,Topic,Content FROM bbs WHERE ID = "&strId 
       If oConn Is Nothing Then  
              response.write "<errors><![CDATA[ 数据库连接异常！请检查数据库连接 ]]>" 
              response.End 
       End If 
       Set bbs_rs = Server.CreateObject("ADODB.RecordSet") 
       'response.End 
       bbs_rs.open strSQL,oConn,1,1 
       If bbs_rs Is Nothing Then  
              response.write "<errors><![CDATA[对不起！数据连接出现错误，无法完成当前操作。请重试或和网站管理员联系]]>" 
              Response.End 
       End If 
       '连接没问题开始遍历 
       If bbs_rs.eof Or bbs_rs.bof Then  
              response.write "<errors><![CDATA[ 对不起！目前没有您要的数据！]]>" 
              response.End 
       Else 
              response.Write "<mydata>"&vbcrlf 
              Do While not bbs_rs.eof 
                     strUserName = Trim(bbs_rs("User_Name")) 
                     strTopic = Trim(bbs_rs("Topic")) 
                     strContent = Trim(bbs_rs("Content")) 
                     strOut = "" 
                     strOut = strOut & "<row>" &vbCrLf 
                     strOut = strOut & "<userName>"&"<![CDATA["&strUserName&"]]></userName>"&vbCrLf 
                     strOut = strOut & "<Topic>"&"<![CDATA["&strTopic&"]]></Topic>"&vbCrLf 
                     strOut = strOut & "<Content>"&"<![CDATA["&strContent&"]]></Content>"&vbCrLf 
                     strOut = strOut & "</row>"&vbCrLf 
                     response.write strOut 
                     bbs_rs.moveNext 
              Loop 
              response.write "</mydata>" 
       End If  
       '关闭DB连接 
       oConn.close 
       Set oConn = Nothing 
%>
这样做将DB封装得非常不错。