ASP Küfür Koruması

S
⚪ Konu sahibi son olarak 3606 gün önce görüldü
Üyelik sistemi olmayan veya üyelik sistemi ile çalışmayan sayfalar kötü niyetli kişiler tarafından kullanılabilir. mesela, yorum ekleme, guestbook gibi alanlara isteyen istedigi bilgiyi yazabilir.Bu kodlar ile küfür koruması yapabiliriz.



<%
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
%>
Genişletmek için tıkla ...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri