报错:XML页无法显示,下列标记没有被关闭解决方法_XML/RSS教程-查字典教程网
报错:XML页无法显示,下列标记没有被关闭解决方法
报错:XML页无法显示,下列标记没有被关闭解决方法
发布时间:2016-12-29 来源:查字典编辑
摘要:从数据库读出数据,然后以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>”

更容易观察.

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新XML/RSS学习
    热门XML/RSS学习
    编程开发子分类