| 标题 | 报错: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 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>” 更容易观察. |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。