手机
当前位置:查字典教程网 >编程开发 >XML/RSS >报错:XML页无法显示,下列标记没有被关闭解决方法
报错:XML页无法显示,下列标记没有被关闭解决方法
摘要:从数据库读出数据,然后以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页无法显示,下列标记没有被关闭解决方法】相关文章:

XSLT轻松入门第二章:XSLT的实例

XML简易教程之二

测试模式 - XSL教程 - 5

XML卷之实战锦囊(3):动态分页

WML学习之二基本格式和文件头

一个用xslt样式将xml解析为xhtml的类TransformBinder(兼容FF和IE7.0)

XSL简明教程(3)在客户端的实现

读大数据量的XML文件的读取问题

XML加ASP实现网页“本地化”

XML 轻松学习手册(比较不错)第1/3页

精品推荐
分类导航