char.inc

这个也是一个功能强大的企业整站的ASP源代码

<%
function htmlencode(str)
  dim result
  if isNULL(str) then 
    htmlencode=""
    exit function
  end if	 
  result=str
  result = replace(result, "&", "&amp;")
  result = replace(result, ">", "&gt;")
  result = replace(result, "<", "&lt;")
  result = replace(result, chr(34),"&quot;")
  result = replace(result,chr(32),"&nbsp;",1)
  result = replace(result, chr(13)&chr(10), "<BR>",1)
  HTMLEncode = result  
end function
   
function HTMLDecode(str) 
   dim result
   if isNULL(str) then 
     htmlencode=""
     exit function
   end if	 
   result=str    
   result = replace(result, "&gt;", ">")
   result = replace(result, "&lt;", "<")
   result = replace(result,"&nbsp;",chr(32))
   result = replace(result, "&quot;",chr(34))   
   result = replace(result, "<BR>", chr(13)&CHR(10))
   result = replace(result, "&amp;","&" )
   HTMLDecode = result
end function

%>