服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - asp下实现对HTML代码进行转换的函数

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

2019-10-11 10:47阿里西西 ASP教程

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

  1. <%  
  2. '******************************  
  3. '函数:HTMLEncode(reString)  
  4. '参数:reString,待编码转换处理的字符串  
  5. '作者:阿里西西  
  6. '日期:2007/7/15  
  7. '描述:对HTML代码进行转换  
  8. '示例:HTMLEncode("<p>欢迎访问<br>阿里西西</p>")  
  9. '******************************  
  10. Function HTMLEncode(reString)  
  11.  Dim Str:Str=reString  
  12.  If Not IsNull(Str) Then  
  13.   Str = UnCheckStr(Str)  
  14.   Str = Replace(Str, "&""&")  
  15.   Str = Replace(Str, ">"">")  
  16.   Str = Replace(Str, "<""<")  
  17.   Str = Replace(Str, CHR(32), " ")  
  18.      Str = Replace(Str, CHR(9), " ")  
  19.   Str = Replace(Str, CHR(9), "    ")  
  20.   Str = Replace(Str, CHR(34), """)  
  21.   Str = Replace(Str, CHR(39), "'")  
  22.   Str = Replace(Str, CHR(13), "")  
  23.   Str = Replace(Str, CHR(10), "<br>")  
  24.   HTMLEncode = Str  
  25.  End If  
  26. End Function  
  27.  
  28. '反转换HTML代码  
  29.  
  30. Function HTMLDecode(reString)   
  31.  Dim Str:Str=reString  
  32.  If Not IsNull(Str) Then  
  33.   Str = Replace(Str, "&""&")  
  34.   Str = Replace(Str, ">"">")  
  35.   Str = Replace(Str, "<""<")  
  36.   Str = Replace(Str, " ", CHR(32))  
  37.      Str = Replace(Str, " ", CHR(9))  
  38.   Str = Replace(Str, "    ", CHR(9))  
  39.   Str = Replace(Str, """, CHR(34))  
  40.   Str = Replace(Str, "'", CHR(39))  
  41.   Str = Replace(Str, "", CHR(13))  
  42.   Str = Replace(Str, "<br>", CHR(10))  
  43.   HTMLDecode = Str  
  44.  End If  
  45. End Function  
  46. %>  

延伸 · 阅读

精彩推荐