内容简介：从数据库读出数据，然后以XML的格式显示数据，但是提示hd,category,subsort等没有关闭从数据库读出数据，然后以XML的格式显示数据，但是提示hd,category,subsort等没有关闭，可是我已经关闭了呀,不知道具体是什么原因造成了这个问题？
VB code:
复制代码 代码如下:
<%
response.ContentType= "text/xml"
Response.CharSet = "GB2312"
Response.Expires = 0
Response.write "<?xml version=""1.0"" encoding=""UTF-8"" ?>"
Response.write vbcrlf&"<hd>"
Response.write vbcrlf&vbTab&"<category>"
Response.write vbcrlf&vbTab&vbTab&"<subsort>"
‘连接数据库的语句省略
do while not rs.eof
response.write vbcrlf&vbTab&vbTab&vbTab&"<item>"
response.write vbcrlf&vbTab&vbTab&vbTab&vbTab&"<id>"&rs("id")&"</id>"
response.write vbcrlf&vbTab&vbTab&vbTab&"</item>"
loop
rs.close()
set rs=nothing
response.write vbcrlf&vbTab&vbTab&"</subsort>"
response.write vbcrlf&vbTab&"</category>"
response.write vbcrlf&"</hd>"
Response.End()
%>
因为输出的内容不能带<>”‘&这几个特殊字符，需要进行XmlEncode编码，如下的代码详情：
VBScript code:
复制代码 代码如下:
Function XMLEncode(var)
On Error Resume Next
Dim strTmp
If (IsNull(var)) Then
var = ""
End If
If (VarType(var) = 11) Then
If (var) Then
strTmp = "1"
Else
strTmp = "0"
End If
Else
strTmp = CStr(var)
strTmp = Replace(strTmp, "&", "&")
strTmp = Replace(strTmp, "<", "<")
strTmp = Replace(strTmp, ">", ">")
strTmp = Replace(strTmp, """", """)
strTmp = Replace(strTmp, "'", "'")
End If
XMLEncode = strTmp
End Function
Function XMLDecode(str)
Dim temp
temp=replace(str,"&","&")
temp=replace(temp,"<","<")
temp=replace(temp,">",">")
temp=replace(temp,""","""")
temp=replace(temp,"'","'")
XMLDecode = temp
End Function
Response.Write XmlEndode(rs("字段名字"))
另外，如果是文件编码问题，则可以将:
Response.write “<?xml version=”"1.0″” encoding=”"UTF-8″” ?>”
改成
Response.write “<?xml version=”"1.0″” encoding=”"GB2312″” ?>”
另外，在开始输出之前，需要清空内容:
Response.Clear
Response.write “<?xml version=”"1.0″” encoding=”"GB2312″” ?>”
另外，写成:
Response.write vbCrlf & vbTab & vbTab & “<subsort>”
更容易观察.
以上就是本文的全部内容，希望本文的内容对大家的学习或者工作能带来一定的帮助，也希望大家多多支持 码农网
猜你喜欢:
- YAML，另一种标记语言？不止是标记语言
- html5 – 用于span标记的Twitter Bootstrap工具提示(不适用于标记)
- 开发 地图标记工具 后记
- WPF标记扩展的笔记
- IOS自动进行View标记
- xml – 在标记中嵌入XSL代码
本站部分资源来源于网络，本站转载出于传递更多信息之目的，版权归原作者或者来源机构所有，如转载稿涉及版权问题，请联系我们。
银行3.0：移动互联时代的银行转型之道
[澳]布莱特·金（Brett King） / 白 宫 施 轶 / 广东经济出版社 / 2014-12 / 88.00元
银行未来会怎样，银行下一步该怎么做？银行如何在客户行为变化、科技变化，以及新的非银行竞争者不断涌入等时代变化的形势下，在未来取得成功？ 这是第一本透彻深入地全面呈现当今银行业的内外形势与状况的书，内容涉及技术变化、客户行为变化、涌现的外部竞争者，银行现有组织架构、流程模式、制度思维、人员结构、互动渠道、营销方式等。具体包括低网点化，ATM、网站、呼叫中心的落伍，以及智能手机、社交媒体、移动支......一起来看看 《银行3.0：移动互联时代的银行转型之道》 这本书的介绍吧!
