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

更新时间：2007年08月08日 12:08:49   作者：

'******************************

'函数：HTMLEncode(reString)

'参数：reString,待编码转换处理的字符串

'作者：阿里西西

'日期：2007/7/15

'描述：对HTML代码进行转换

'示例：HTMLEncode("

欢迎访问
阿里西西

")

'******************************

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), "
")

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, "
", CHR(10))

HTMLDecode = Str

End If

End Function

%>

相关文章

很多网站、博客都采用生成技术把网页生成html静态页面了，以利于搜索引擎的索引排名，减轻服务器负担。2008-08-08

asp 实现对SQL注入危险字符进行重编码处理的函数…2007-08-08

IIS访问ASP页面时报错The requested resource is in use.的解决办法…2007-04-04

ASP+COM不得不注意的问题…2007-03-03

flash与js通讯方法…2007-04-04

不能使用 ''；文件已在使用中。说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息2012-06-06

asp和php删除自身的代码2008-06-06

飞云防CC攻击ASP程序代码插件…2007-08-08

本文给大家汇总介绍了使用asp实现将Excel中数据导入到数据库中的方法，需要的朋友可以参考一下2015-09-09

关于处理GET方式提交的含有特殊字符的参数…2006-08-08

最新评论