ASP一个常用的自定义替换函数

<%
Function myReplace(myString)'
myString=Replace(myString,"&","&") '替换&为字符实体&
myString=Replace(myString,"<","<") '替换<为字符实体<
myString=Replace(myString,">",">") '替换>为字符实体>
myString=Replace(myString,chr(13),"<br>") '替换回车符为换行标记<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
%>