悠悠博客 关注Ajax技术与web开发

function htmlencode(str)
   on error resume next
   dim result
   dim l
   if isnull(str) then
      htmlencode=""
      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(13)
                   result=result+"<br>"
              case chr(9)
                   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 else
                   result=result+mid(str,i,1)
        end select
      next
      if err.number<>0 then err.clear
      htmlencode=result
  end function