ASP//Sakıncalı kelimeleri *** gibi maskelemek

[free!]

<%

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." )%>

 

[MaXXSoFT]

Güzel kod aslında çoğu kelime ye kullanmak lazım
Ellerine sağlık !