一聚教程网:一个值得你收藏的教程网站

热门教程

asp html互换程序代码

时间:2022-07-02 23:10:31 编辑:袖梨 来源:一聚教程网

<%
const iis3onchsys=false
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
function htmlencode(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 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
       htmlencode=result
   end function
%>

热门栏目