asp下实现对HTML代码进行转换的函数

答案：<% 
'****************************** 
'函数：HTMLEncode(reString) 
'参数：reString,待编码转换处理的字符串 
'作者：阿里西西 
'日期：2007/7/15 
'描述：对HTML代码进行转换 
'示例：HTMLEncode("<p>欢迎访问<br>阿里西西</p>") 
'****************************** 
Function HTMLEncode(reString) 
 Dim Str:Str=reString 
 If Not IsNull(Str) Then 
  Str = UnCheckStr(Str) 
  Str = Replace(Str, "&", "&") 
  Str = Replace(Str, ">", ">") 
  Str = Replace(Str, "<", "<") 
  Str = Replace(Str, CHR(32), " ") 
     Str = Replace(Str, CHR(9), " ") 
  Str = Replace(Str, CHR(9), "    ") 
  Str = Replace(Str, CHR(34), """) 
  Str = Replace(Str, CHR(39), "'") 
  Str = Replace(Str, CHR(13), "") 
  Str = Replace(Str, CHR(10), "<br>") 
  HTMLEncode = Str 
 End If 
End Function 
'反转换HTML代码 
Function HTMLDecode(reString)  
 Dim Str:Str=reString 
 If Not IsNull(Str) Then 
  Str = Replace(Str, "&", "&") 
  Str = Replace(Str, ">", ">") 
  Str = Replace(Str, "<", "<") 
  Str = Replace(Str, " ", CHR(32)) 
     Str = Replace(Str, " ", CHR(9)) 
  Str = Replace(Str, "    ", CHR(9)) 
  Str = Replace(Str, """, CHR(34)) 
  Str = Replace(Str, "'", CHR(39)) 
  Str = Replace(Str, "", CHR(13)) 
  Str = Replace(Str, "<br>", CHR(10)) 
  HTMLDecode = Str 
 End If 
End Function 
%> 

上一个：asp 验证用户名是否包含有非常字符的函数
下一个：asp 实现对SQL注入危险字符进行重编码处理的函数