function.asp

来自「这是一个关于留言本的ASP程序设计,本人也是在网上找的,在这里提供大家学习用!」· ASP 代码 · 共 23 行

<%
'********************************************
'这里是函数文件，用来保存在各页面中用到的函数
'********************************************

'该函数用来对客户提交的文本进行处理
'这里对很多字符进行了处理，其实也不一定都要处理
Function myReplace(myString)
	myString=Replace(myString,"&","&amp;")         '替换&为字符实体&amp;
	myString=Replace(myString,"<","&lt;")          '替换<为字符实体&lt;
	myString=Replace(myString,">","&gt;")          '替换>为字符实体&gt;
	myString=Replace(myString,chr(13),"<br>")      '替换回车符为换行标记<br>  
	myString=Replace(myString,chr(32),"&nbsp;")    '替换空格符为字符实体&nbsp;
	myString=Replace(myString,chr(9)," &nbsp;&nbsp;&nbsp;&nbsp;")     '替换Tab缩进符为
	myString=Replace(myString,chr(39),"&acute;")   '替换单引号为字符实体&acute;
	myString=Replace(myString,chr(34),"&quot;")    '替换双引号为字符实体&quot;
	myReplace=myString                             '返回函数值
End Function


%>