asp html转成html编码程序

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+"<"
            case ">"
                 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
}