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

A
⚪ Konu sahibi son olarak 2620 gün önce görüldü
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" )%>
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri