输出时处理字符串的问题,下面是三种方式;

<%   
  Function   coder(str)   
    Dim   result,L,i   
    If   IsNull(str)   Then   :   coder=""   :   Exit   Function   :   End   If   
    L=Len(str)   :   result=""   
  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;"       'This   is   the""   
  case   "&"           :   result=result+"&amp;"   
  case   chr(13)   :   result=result+"<br>"   
  case   chr(9)     :   result=result+"&nbsp;   &nbsp;   "   
  case   chr(32)   :   result=result+"&nbsp;"   
  case   else         :   result=result+mid(str,i,1)   
      end   select   
  Next   
    coder=result   
  End   Function   %>   
  -----------------------------------------------------------
  <%   
  function   unHtml(content)   
  unHtml=content   
  if   content   <>   ""   then   
  unHtml=replace(unHtml,"&","&amp;")   
  unHtml=replace(unHtml,"<","&lt;")   
  unHtml=replace(unHtml,">","&gt;")   
  unHtml=replace(unHtml,chr(34),"&quot;")   
  unHtml=replace(unHtml,chr(13),"<br>")   
  unHtml=replace(unHtml,chr(32),"&nbsp;")   
  end   if   
  end   function   
  %>   
  -----------------------------------------------------------
  <%   
  function   HTMLEncode(fString)   
    
          fString   =   replace(fString,   ">",   "&gt;")   
          fString   =   replace(fString,   "<",   "&lt;")   
    
          fString   =   Replace(fString,   CHR(13),   "")   
          fString   =   Replace(fString,   CHR(10)   &   CHR(10),   "</P><P>")   
          fString   =   Replace(fString,   CHR(10),   "<BR>")   
          HTMLEncode   =   fString   
  end   function   
  %>
本文转载自:[url=http://www.beidaqingniao.org]http://www.beidaqingniao.org[/url]