basit bir küfür filtresi Asp'de hazırlanmış ziyaretçi defterleri için

Kodla Büyü
rtyucel

rtyucel

Seçkin Üye
Seçkin Üye
Mesajlar
713
arkadaşlar umarım işinizi görür. gerçi şükür bizim okul için gerek olmadı ama ilçe memden istediler. sizlerde de lazım olanlar olursa güle güle kullanın. inş. lazım olmaz :D

Kod: 
<%
dim kufurler
dim x
dim metin

metin="At ile eşşekler, sıpaları doğrurur. sıpalar eşeklerin yavrusudur."

kufurler=Array("eşşek", "eşek", "sıpa")

For each x in kufurler
metin=replace(metin,x,left(x,1) & string(len(x)-2,"*") & right(x,1))
Next

response.write "Metin: " & metin
%>

tabi sizler repertuarınıza göre genişletebilirsiniz. :)
 
Tesekkurler hocam! artık oyle olduk ki filtrelenmesin diye m p 3 diye yazmaya basladik, ya da c r a c k :mrgreen:
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst