filter.inc

ASP+SQL Server动态网站开发从基础到实践教程

<%
				'Lower Case
				strMessage = rsQuery("Message").Value
				strMessage = Replace(strMessage,"scheisse","schei***")
				strMessage = Replace(strMessage,"arsch","ar***")
				strMessage = Replace(strMessage,"fucking","****")
				strMessage = Replace(strMessage,"fuckin","****")
				strMessage = Replace(strMessage,"shit","****")
				strMessage = Replace(strMessage,"fuck","****")
				strMessage = Replace(strMessage,"pussy","****")
				strMessage = Replace(strMessage,"pussie","****")
				strMessage = Replace(strMessage,"dick","****")
				strMessage = Replace(strMessage,"cunt","****")
				strMessage = Replace(strMessage,"fag","****")
				strMessage = Replace(strMessage,"bitch","****")
				
				'Upper case
				strMessage = Replace(strMessage,"SCHEISSE","SCHEI***")
				strMessage = Replace(strMessage,"ARSCH","AR***")
				strMessage = Replace(strMessage,"FUCKING","****")
				strMessage = Replace(strMessage,"FUCKIN","****")
				strMessage = Replace(strMessage,"SHIT","****")
				strMessage = Replace(strMessage,"FUCK","****")
				strMessage = Replace(strMessage,"PUSSY","****")
				strMessage = Replace(strMessage,"PUSSIE","****")
				strMessage = Replace(strMessage,"DICK","****")
				strMessage = Replace(strMessage,"CUNT","****")
				strMessage = Replace(strMessage,"FAG","****")
				strMessage = Replace(strMessage,"BITCH","****")
				
				'Proper Gramma
				strMessage = Replace(strMessage,"Scheisse","Schei***")
				strMessage = Replace(strMessage,"Arsch","Ar***")
				strMessage = Replace(strMessage,"Fucking","****")
				strMessage = Replace(strMessage,"Fuckin","****")
				strMessage = Replace(strMessage,"Shit","****")
				strMessage = Replace(strMessage,"Fuck","****")
				strMessage = Replace(strMessage,"Pussy","****")
				strMessage = Replace(strMessage,"Pussie","****")
				strMessage = Replace(strMessage,"Dick","****")
				strMessage = Replace(strMessage,"Cunt","****")
				strMessage = Replace(strMessage,"Fag","****")
				strMessage = Replace(strMessage,"Bitch","****")
%>