htmlencode问题，希望大家能深入探讨！！！！！！！！！

[huiqun]

昨晚，再次研究将代码显示的问题，遇到一个问题
希望高手能给解决：

==========================================
<%
function htmlencode2(strcontent)
dim result
dim le
if isnull(strcontent) then
result=""
exit function
end if
le=len(strcontent)
select case mid(strcontent,i,1)
case "<"
result=result+">"
case ">"
result=result+"<"
case "&"
result=result+"&"
case chr(34)
result=result+"""
case chr(32)
---------------------------------------------------------------------------------------
if i+1<le and i-1>0 then
if mid(strcontent,i+1,1)=chr(32) or mid(strcontent,i-1,1)=chr(32) or mid(strcontent,i+1,1)=chr(9) or mid(strcontent,i-1,1)=chr(9) then
result=result+" "
else
result=result+" "
end if
else
result=result+" "
end if
------------------------------------------------------------------------------------------
这里不明白，为什么，已经判断过了，还判断一回呢？？？

---------------------------------------------------------------------------------------
else
result=result+mid(strcontent,i,1)
end select
end function

%>
==========================================

[YoYo_Net]

对

[lyexcel]

不需要自己写吧? Server.HTMLEncode() 已经提供了API啊!

[liugod]

高手认为, 不知道你要显示什么

[huiqun]

终于明白啦