ASP 转换HTML特殊字符【HTMLEncode(转码)和HTMLDecode(解码)】

最新推荐文章于 2024-02-22 21:18:12 发布

原创最新推荐文章于 2024-02-22 21:18:12 发布 · 928 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#asp #转码解码 #Encode #Decode

收录于

ASP 专栏收录该内容

2 篇文章

订阅专栏

本文详细介绍了一种HTML格式化的实现方法，通过一系列字符串替换操作，将普通文本转换为符合HTML标准的编码形式，并提供了相应的HTML解码函数，帮助开发者理解和掌握HTML文本处理的核心技术。

'********************************
'过程名：HTML格式化
'参  数：无
'********************************
function HTMLEncode(byval fString)
	if isnull(fString) or trim(fString)="" then
		HTMLEncode=""
		exit function
	end if
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10), "<br> ")
    HTMLEncode = fString
end function

function HTMLDecode(byval fString)
	if isnull(fString) or trim(fString)="" then
		HTMLDecode=""
		exit function
	end if
    fString = replace(fString, "&gt;", ">")
    fString = replace(fString, "&lt;", "<")
    fString = Replace(fString,  "&nbsp;"," ")
    fString = Replace(fString, "&quot;", CHR(34))
    fString = Replace(fString, "&#39;", CHR(39))
    fString = Replace(fString, "<br> ", CHR(10))
    HTMLDecode = fString
End function