以XML的格式无法显示数据
来源:爱站网时间:2022-10-03编辑:网友分享
本篇文章主要给大家讲述了以XML的格式无法显示数据的解决办法,如果你正在为此而困扰,不妨看看爱站技术频道小编所整理的资料吧!相信这篇文章一定不会让你失望的。
从数据库读出数据,然后以XML的格式显示数据,但是提示hd,category,subsort等没有关闭,可是我已经关闭了呀,不知道具体是什么原因造成了这个问题?
VB code:
复制代码 代码如下:
response.ContentType= "text/xml"
Response.CharSet = "GB2312"
Response.Expires = 0
Response.write ""
Response.write vbcrlf&"
Response.write vbcrlf&vbTab&"
Response.write vbcrlf&vbTab&vbTab&"
‘连接数据库的语句省略
do while not rs.eof
response.write vbcrlf&vbTab&vbTab&vbTab&"
response.write vbcrlf&vbTab&vbTab&vbTab&vbTab&"
response.write vbcrlf&vbTab&vbTab&vbTab&"
loop
rs.close()
set rs=nothing
response.write vbcrlf&vbTab&vbTab&"
response.write vbcrlf&vbTab&"
response.write vbcrlf&"
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("字段名字"))
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 “”
改成
Response.write “”
另外,在开始输出之前,需要清空内容:
Response.Clear
Response.write “”
另外,写成:
Response.write vbCrlf & vbTab & vbTab & “
更容易观察.
有关于以XML的格式无法显示数据的相关知识点,小编就暂时分享到这里了,觉得不错的小伙伴,可以来关注收藏下爱站技术频道网站,里面有各种类型的技术文章内容等待你的挖掘。
上一篇:XML文件完整提示出错怎么解决
下一篇:操作XML元素属性的代码