function.asp

这是一个关于留言本的ASP程序设计,本人也是在网上找的,在这里提供大家学习用!

<%
    '下面的函数用来对客户提交的文本进行处理
	Function myReplace(myString)
		myString=Replace(myString,"&","&amp;")         '替换&为字符实体&amp;
		myString=Replace(myString,"<","&lt;")          '替换<
		myString=Replace(myString,">","&gt;")          '替换>
		myString=Replace(myString,chr(13),"<br>")      '替换回车符  
		myString=Replace(myString,chr(32),"&nbsp;")    '替换空格符
		myString=Replace(myString,chr(9)," &nbsp; &nbsp; &nbsp; &nbsp;")     '替换Tab缩进符
		myString=Replace(myString,chr(39),"&acute;")   '替换单引号
		myString=Replace(myString,chr(34),"&quot;")    '替换双引号
		myReplace=myString                             '返回函数值
	End Function
%>