
<%@ LANGUAGE="VBSCRIPT" %>
<% Response.Buffer = "True"
'Developed by Chee.ky Studios for public use via 4GuysFromRolla.com
'fl1rt@chee.ky
%>

<%

'replace this string content
myStr = "Ms.Chicken was beginning to feel some what queezy as she piggy-backed on the farm sheep dog.<br>The Cat and horse just looked at other."

'display example
Response.write "Normal String:<br>" & myStr
Response.write "<br><br>"
Response.write "Censored String:<br>" & CensorStr(myStr)


Function CensorStr(NaughtyString)

'this array defines the words to look for and what to replace the word with if found.
	ExpletivesBAD = Array("cat","chicken","dog","horse","pig")
	ExpletivesCEN = Array("c*t","c*****n","d*g","h**se","#!#")

	TotalExpletives = ubound(expletivesBAD)

	for i = 0 to TotalExpletives

		CENSOR = InStr(1, NaughtyString, ExpletivesBAD(i), 1)
		if CInt(CENSOR) > 0 then
			NaughtyString = replace(NaughtyString," " & ExpletivesBAD(i)," " & ExpletivesCEN(i),1,-1,1)
			NaughtyString = replace(NaughtyString,ExpletivesBAD(i) & " ",ExpletivesCEN(i) & " ",1,-1,1)
		end if
	next

	CensorStr = NaughtyString

End Function


Dim str
str = "Concatenation is fun"
Response.Write str & "<BR>" & CensorStr(str)
%>