一个在ASP下实现HTML代码转换的函数。

<
******************************
功能：HTMLEncode（限定）
参数：限定，字符串进行编码
作者：Ali Cici
日期：2007 7 15
说明：HTML代码的转换
的例子：HTMLEncode（欢迎alixixi ）
******************************
函数的HTMLEncode（限定）
昏暗的STR：STR =重置
如果Not IsNull（STR）然后
STR = uncheckstr（STR）
替换
替换（STR，>，>）
替换
STR =取代（STR，CHR（32），）
STR =取代（STR，CHR（9），）
STR =取代（STR，CHR（9），）
STR =取代（STR，CHR（34），）
STR =取代（STR，CHR（39），）
STR =取代（STR，CHR（13），）
STR =取代（STR，CHR（10），）
HtmlEncode = str
最后如果
端功能

反向转换HTML代码

函数的HTMLDecode（限定）
昏暗的STR：STR =重置
如果Not IsNull（STR）然后
替换
替换（STR，>，>）
替换
替换
替换
替换
替换
STR =取代（STR，、chr（39））
替换
替换
htmldecode = str
最后如果
端功能
%>