报错-XML页无法显示,下列标记没有被关闭解决方法_

1、报错:XML页无法显示,下列标记没有被关闭解决方法_ 从数据库读出数据，然后以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 vbcrlfhd Response.write vbcrlfvbT

2、abcategory Response.write vbcrlfvbTabvbTabsubsort 连接数据库的语句省略 do while not rs.eof response.write vbcrlfvbTabvbTabvbTabitem response.write vbcrlfvbTabvbTabvbTabvbTabidrs(id)/id response.write vbcrlfvbTabvbTabvbTab/item loop rs.close() set rs=nothing response.write vbcrlfvbTabvbTab/subsort response.wri

3、te vbcrlfvbTab/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 Els

4、e 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,) tem

5、p=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=”GB231