具体内容如下：在我们从数据库读取数据，并以XML格式显示的时候，电脑就有提示出hd,category,subsort等没有关闭，但是检查已经关闭了，所以问题不出在这里，那我们就一起来找找吧，首先看看源代码。%response。ContentType= text/xmlResponse。
CharSet = GB2312Response。Expires = 0Response。write ?xml version=1。0 encoding=UTF-8 ?Response。write vbcrlfhdResponse。write vbcrlfvbTabcategoryResponse。
write vbcrlfvbTabvbTabsubsort‘连接数据库的语句省略do while not rs。eofresponse。write vbcrlfvbTabvbTabvbTabitemresponse。write vbcrlfvbTabvbTabvbTabvbTabidrs(id)/idresponse。
write vbcrlfvbTabvbTabvbTab/itemlooprs。close()set rs=nothingresponse。write vbcrlfvbTabvbTab/subsortresponse。write vbcrlfvbTab/categoryresponse。
write vbcrlf/hdResponse。End() %看了一下代码，发现代码中含有很多【 ' 】特殊符号，而真正在XML格式文件中，不能含有这些特殊符号，需要进行XmlEncode编码，改了之后我们在看看代码：Function XMLEncode(var)On Error Resume NextDim strTmpIf (IsNull(var)) Thenvar = End IfIf (VarType(var) = 11) ThenIf (var) ThenstrTmp = 1ElsestrTmp = 0End IfElsestrTmp = CStr(var)strTmp = Replace(strTmp, , )strTmp = Replace(strTmp, , )strTmp = Replace(strTmp, , )strTmp = Replace(strTmp, , )strTmp = Replace(strTmp, ', ')End IfXMLEncode = strTmpEnd FunctionFunction XMLDecode(str)Dim temptemp=replace(str,,)temp=replace(temp,,)temp=replace(temp,,)temp=replace(temp,,)temp=replace(temp,',')XMLDecode = tempEnd FunctionResponse。
Write XmlEndode(rs(字段名字))除此之外，如果还有其他问题，我们还可以改动一下代码：Response。write “?xml version=”1。0″” encoding=”UTF-8″” ?改成Response。write “?xml version=”1。
0″” encoding=”GB2312″” ?Response。ClearResponse。write “?xml version=”1。0″” encoding=”GB2312″” ?另外，写成Response。write vbCrlf vbTab vbTab “subsort将一些代码改成这样，更利于我们观察，同时也更好的显示出来。
答：详情>>
