PDA

Orijinalini görmek için tıklayınız : Küfür korumasi [sansür koyma]......


NoMercy
08-11-2007, 03:26 PM
Üyelik sistemi olmayan veya üyelik sistemi ile çalismayan sayfalar kötü niyetli kisiler tarafindan kullanilabilir. mesela, yorum ekleme, guestbook gibi alanlara isteyen istedigi bilgiyi yazabilir......



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


Örneğin Bir Habere Yorum Yazacaksınız. Yukarıdaki Kodu Sayfanızın Form Bilgilerinin Olduğu Sayfaya Eklemelisiniz. Yukarıdaki Kod'da "badword" bölümüne istediğiniz kelimeleri "|" ile ayırarak ekleyin. "metin" yazan yerlere ise kendi form adınızı yazın. (örn: yorum)