asp 过滤html 敏感字符转换成html编码函数

asp教程 过滤html 敏感字符转换成html编码函数
'本款函数是根据用户传入的参数然后一个个遍历再把html敏感字符转换成html编码形式，这样就过滤敏感html哦。

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

%>