ASP HTMLEncode/HTMLDecode

最新推荐文章于 2023-08-03 12:19:14 发布

转载最新推荐文章于 2023-08-03 12:19:14 发布 · 223 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/wgscd/p/10488490.html

本文介绍在ASP中如何自定义HTMLDecode函数，用于将HTML编码转换回原始字符串。文章提供了一个详细的函数实现示例，并通过具体例子展示了其使用方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

asp 有Server.HTMLEncode 却没有 Server.HTMLDecode.......

需要自定义一个 HTMLDecode 函数：

Function HTMLDecode(sText)
	dim I
	sText = Replace(sText, """, Chr(34))
	sText = Replace(sText, "<", Chr(60))
	sText = Replace(sText, ">", Chr(62))
	sText = Replace(sText, "&" , Chr(38))
	sText = Replace(sText, " ", Chr(32))
	For I = 1 to 255
	sText = Replace(sText, "&#" & I & ";", Chr(I))
	Next
	HTMLDecode = sText
End  Function

例子：

<%

Dim j
Response.Write(Server.HTMLEncode("encode: 555  <p>hhhh</p>jj ffff  888 ") & "<br>-----------------------------<br>")
Response.Write(HTMLDecode("decod: 555 <p>hhhh</p>jj ffff  888 "))
Function HTMLDecode(sText)
	dim I
	sText = Replace(sText, """, Chr(34))
	sText = Replace(sText, "<", Chr(60))
	sText = Replace(sText, ">", Chr(62))
	sText = Replace(sText, "&" , Chr(38))
	sText = Replace(sText, " ", Chr(32))
	For I = 1 to 255
	sText = Replace(sText, "&#" & I & ";", Chr(I))
	Next
	HTMLDecode = sText
End  Function
%>

转载于:https://www.cnblogs.com/wgscd/p/10488490.html