把字符串进行HTML解码,代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】把字符串进行HTML解码,

作者: / 发布于2011/1/6/ 759

<div>
<div><font face="Verdana"><font color="#008000">' ============================================
' 把字符串进行HTML解码,替换server.htmlencode
' 去除Html格式，用于显示输出
' ============================================</font>
Function outHTML(str)
Dim sTemp
sTemp = str
outHTML = ""
If IsNull(sTemp) = True Then
Exit Function
End If
sTemp = Replace(sTemp, "&", "&amp;")
sTemp = Replace(sTemp, "<", "&lt;")
sTemp = Replace(sTemp, ">", "&gt;")
sTemp = Replace(sTemp, Chr(34), "&quot;")
sTemp = Replace(sTemp, Chr(10), "")
outHTML = sTemp
End Function</font></div>
<div><font face="Verdana"><font color="#008000">' ============================================
</font></font></div>
</div>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　HTML解码　

同语言下

可能有用的

贡献的其它代码Label