下面这个不支持贴图，请问怎样解决？

<%
function htmlencode2(str)
dim result
dim l
if isNULL(str) then
htmlencode2=""
exit function
end if
l=len(str)
result=""
    dim i
    for i = 1 to l
     select case mid(str,i,1)
     case "<"
     result=result+"<"
     case ">"
     result=result+">"
case chr(13)
     result=result+"
"
     case chr(34)
     result=result+"""
     case "&"
     result=result+"&"
case chr(32)    
     'result=result+" "
     if i+1<=l and i-1>0 then
     if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then    
     result=result+" "
     else
     result=result+" "
     end if
     else
     result=result+" "    
     end if
     case chr(9)
     result=result+" "
     case else
     result=result+mid(str,i,1)
end select
next
htmlencode2=result
end function
%>