ASP字符替换,vbscript

最新推荐文章于 2025-03-19 14:11:48 发布

最新推荐文章于 2025-03-19 14:11:48 发布 · 196 阅读

文章标签：

#VBScript #ASP #ASP.net #出版 #.net

本文介绍了一个使用ASP编写的留言系统中的文本处理方法，通过替换特殊字符为HTML实体来防止XSS攻击，并确保留言内容能在网页中正确显示。具体包括对&、<、>等符号及回车符、空格符等进行转义。

--------------function1.asp-------------

<%
Dim title,body
title=myReplace(Request.Form("title"))'返回留言信息
body=myReplace(Request.Form("body"))'返回留言内容
%>

--------------function.asp-------------

'(字符串,要替换的,替换成的)
<%
Function myReplace(myString)
myString=Replace(myString,"&","&")'替换&为字符实体&
myString=Replace(myString,"<","&It;")'替换<
myString=Replace(myString,">",">")'替换>
myString=Replace(myString,"chr(13)","<br>")'替换回车符
myString=Replace(myString,"chr(32)"," ")'替换空格符
myString=Replace(myString,"chr(9)","    ")'替换TAB缩进符
myString=Replace(myString,"chr(39)","´")'替换单引号
myString=Replace(myString,"chr(34)",""")'替换双引号
myReplace=myString'返回函数值
End Function
%>