内容简介：从数据库读出数据，然后以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代码
本站部分资源来源于网络，本站转载出于传递更多信息之目的，版权归原作者或者来源机构所有，如转载稿涉及版权问题，请联系我们。
删除
[英] 维克托•迈尔-舍恩伯格（Viktor Mayer-Schönberger）著 / 袁杰 译 / 浙江人民出版社 / 2013-1 / 49.90元
《删除》讲述了遗忘的美德，为读者展现了大数据时代的取舍之道。 《删除》从大数据时代信息取舍的目的和方法分别诠释了“被遗忘的权利”。维克托首先回溯了人类追寻记忆的过程，之后提出数字技术与全球网络正在瓦解我们天生的遗忘能力。对此，他考察了促进遗忘终止4大驱动力——数字化，廉价的存储器，易于提取，全球性访问。之后，他提出了当前数字化记忆的两大威胁——信息权力与时间，并给出了应对威胁的6大对策——数......一起来看看 《删除》 这本书的介绍吧!
