asp 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 "&lt;"
            case ">"
                 result=result "&gt;"
            case chr(34)
                 result=result "&quot;"
            case "&"
                 result=result "&amp;"
              case chr(32)           
                 result=result "&nbsp;"
                 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 "&nbsp;"
                    else
                       result=result " "
                    End if
                 else
                    result=result "&nbsp;"                    
                 End if
            case chr(9)
                 result=result "    "
            case else
                 result=result mid(str,i,1)
         End select
       next
       htmlencode2=result
   End function
}