asp html转成html编码程序

2015-08-12 16:02:53来源:作者:人点击

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
}

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台