MaxiASP Kategori  [ASP ve Kodlamalar]

  Konu Başlığı | Kötü Kelime Filtresi.. |
  Gönderen     | mmda | Mail  murat@muratalak.com
  Bu yazıyı toplam 9546 kişi okudu.  
  <%
'deği$kenler..
kelimeler="Aptal,manyak"
     ayikla= Split(kelimeler,"," )     
     Say= Ubound(ayikla)
%>

<%
     Function temizle(deger)
          For i=0 To Say
               deger = Replace(deger, ayikla(i),"*****" )
          Next
               temizle = deger
     End Function
%>

<% cumle= "Aptalsın manyaksın !" %>
<% Response.Write temizle(cumle) %>


  Bu yazıya puan                                                                    kapat