aRMiNa
Elite Üye
-
- Katılım
- 10 Nisan 2011
-
- Mesajlar
- 43.116
-
- Tepkime puanı
- 33
-
- ForumSAL Yaşı:
- 15 yıl 6 ay
- Kıdem:
- Forumun Hafızası
-
- Yaş
- 46
ASP//Sakıncalı kelimeleri *** gibi maskelemek
<%
Private Function yassak ( yokla )
const sakinca = "freemmitnick,mitnick,free,kevin"
dim ara, c
ara = Split(sakinca, "|")
For c = 0 to CInt(UBound(ara))
if InStr(yokla, ara(Int(c))) <> 0 then _
yokla = Replace(yokla, ara(Int(c)), String(Len(ara(Int(c))),"*"), 1, -1, 1)
next
yassak = yokla
End Function
%>
<%=yassak( "freemitnick - yandaki yıldızlar sakıncalı kelimeleri kamufle eder" )%>
<%
Private Function yassak ( yokla )
const sakinca = "freemmitnick,mitnick,free,kevin"
dim ara, c
ara = Split(sakinca, "|")
For c = 0 to CInt(UBound(ara))
if InStr(yokla, ara(Int(c))) <> 0 then _
yokla = Replace(yokla, ara(Int(c)), String(Len(ara(Int(c))),"*"), 1, -1, 1)
next
yassak = yokla
End Function
%>
<%=yassak( "freemitnick - yandaki yıldızlar sakıncalı kelimeleri kamufle eder" )%>