|
|
|
Bugün 9 ziyaretçi (17 klik) kişi burdaydı!
<%
badwordFilter = "Acik"
Dim badword
badword = "fuck|suck|sex"
metin = Request.Form("metin" )
strwords = Split(badword, "|" )
For I = 0 to Ubound(strwords)
metin = Replace(metin, strwords(I), String(Len(strwords(I)),"*" ), 1,-1,1)
next
If badwordFilter= "Acik" Then
Response.Write metin
else
Response.Write metin
End If
%>
|
|
|
|
|
|
|
|