Küfür Filtresi (ASP)

Asp'de hazırlamış olduğum basit bir küfür filtresini burada paylaşmak istedim.

Genellikler ziyaretçi defterlerinde veya iletişim formlarında yaygın bir biçimde kullanılabilecek basit bir küfür filtresi;

Aşağıda vermiş olduğum kod parçasını çalışmalarınıza ekleyerek sizlerde şayet ziyaretçilerinizden gelen küfürlü mesajlardakı küfürleri okumadan görebilirsiniz.

<%
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
%>

- Kod parçasında metin isimli değişkenimiz küfürlü kelime taraması yapılacak olan değişkenimiz. Bizler buna formumuz içerisindeki mesaj alanından gelen bilgileri aktarabiliriz.

- kufurler isimli dizimi bir diziye sahibiz ve burada küfür içeren kelimeleri tek tek eklemeliyiz. Ne kadar çok küfür içeren kelime eklersek kodumuz o kadar hızlı çalışır.

Eğer kodun çalışmasıyla ilgili herhangi bir sıkıntı yaşarsanız yorum bırakınız.
Küfürsüz günler dileğiyle kolay gelsin ;)

Devamını okuyun...>>

ASP.NET

Sevgili öğrencilerim,
Web tasarım ve programlama dersinde işlediğimiz konulara ve modüllere yardımcı olabileceğini düşündüğüm ASP.NET kitabını indirmek için
Devamını okuyun...>>

ASP Formlarda E-Posta Adresi Kontrolü

ASP'de hazırladığımız formlarda e-posta adreslerinin düzgün girilip girilmediğini kontrol etmek için aşağıdaki kodu kullanabiliriz.

Fonksiyon :

<% Function MailKontrol(email) Dim i,j, first, last, char i = InStr(1, email, "@" , vbtextcompare) If i > 0 and i < dtid="281474976710663"> first = Left(email, i - 1)
last = Mid(email, i+1, Len(email))
Else
MailKontrol = false
exit Function
End If
i = 0
Do Until i = Len(first)
i = i + 1
char = Mid(first, i, 1)
` If char is not in [.z-aA-Z0-9]
If Asc(char) <> 46 and Asc(char) <> 95 and (Asc(46) <> 57) and _
(Asc(char) <> 90) and (Asc(char) <> 122) Then
MailKontrol = false
exit Function
End If
Loop
i = 0
nokta = false
Do Until i = Len(last)
i = i + 1
char = Mid(last, i, 1)
` If char is not in [.z-aA-Z0-9]
If Asc(char) <> 46 and (Asc(46) <> 57) and _
(Asc(char) <> 90) and (Asc(char) <> 122) Then
MailKontrol = false
exit Function
End If
Loop
nokta = false
If InStr(1, last, "." , 1) > 0 Then
nokta = true
End If
MailKontrol = nokta
End Function
%>


<% strMail = "(Buraya Mail Form alanınızın degişkenini atayın. Gelen mail adresi burda değerlendirilcek)" If Not denetle(strMail) Then Response.Write "Lütfen geçerli bir email adresi yazınız" Response.End End If %>

Devamını okuyun...>>