0514-86177077

9:00-17:00（工作日）

主页 > 知识库 > asp下实现对HTML代码进行转换的函数

asp下实现对HTML代码进行转换的函数
热门标签：伊春外呼业务系统 电销机器人教育 河北智能外呼系统软件 中国办理电信400电话 福建外呼增值业务线路 宜宾语音外呼系统软件 电销机器人源码网盘下载 绵阳防封电销卡价格 调度系统外呼
%
'******************************
'函数：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, ">", "gt;")
  Str = Replace(Str, "", "lt;")
  Str = Replace(Str, CHR(32), "nbsp;")
     Str = Replace(Str, CHR(9), "nbsp;")
  Str = Replace(Str, CHR(9), "#160;#160;#160;#160;")
  Str = Replace(Str, CHR(34), "quot;")
  Str = Replace(Str, CHR(39), "#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, "gt;", ">")
  Str = Replace(Str, "lt;", "")
  Str = Replace(Str, "nbsp;", CHR(32))
     Str = Replace(Str, "nbsp;", CHR(9))
  Str = Replace(Str, "#160;#160;#160;#160;", CHR(9))
  Str = Replace(Str, "quot;", CHR(34))
  Str = Replace(Str, "#39;", CHR(39))
  Str = Replace(Str, "", CHR(13))
  Str = Replace(Str, "br>", CHR(10))
  HTMLDecode = Str
 End If
End Function
%>

标签：新乡 河池 那曲 优质小号 铜川 电商邀评 延边 苏州

巨人网络通讯声明：本文标题《asp下实现对HTML代码进行转换的函数》，本文关键词  asp,下,实现,对,HTML,代码,；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《asp下实现对HTML代码进行转换的函数》相关的同类信息！
  • 本页收集关于asp下实现对HTML代码进行转换的函数的相关信息资讯供网民参考！
    • 推荐文章

    上一篇：asp 实现对SQL注入危险字符进行重编码处理的函数

    下一篇：asp 验证用户名是否包含有非常字符的函数

    Copyright © 1999-2012 诚信 合法 规范的巨人网络通讯始建于2005年

    苏ICP备15040257号-8

    产品关键词： asp下实现对HTML代码进行转换的函数 asp,下,实现,对,HTML,代码,