版权声明:原创作品,允许转载,转载时请务必以超链接形式标明文章原始出版、作者信息和本声明。否则将追究法律责任。http://blog.csdn.net/mayongzhan - 马永占,myz,mayongzhan
--------------function1.asp-------------
<!--#include file="function.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
%>