Neler yeni

Yeni mesajlar Yeni konular En çok mesaj En çok tepki En çok görüntülenen

sitenizi küfürden kötü niyetlikerden koruma kodu

w@rriorhckr

🏅Acemi Tasarımcı🏅
Katılım
9 Şub 2009
Mesajlar
37
Tepkime puanı
1
<%
badwordFilter = "Acik"
Dim badword
badword = "****|suck|***"

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
%>

+rap :worried::worried::worried::worried::kiss1::kiss1::emo1::emo1::emo1:
 
Üst