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

Etkileşimli Web Uygulamaları Modülleri 1-2

Bilişim Teknolojileri Alanı Web Tasarımı Dalı 11.sınıf Web Tasarımı ve Programlama Dersi 2.dönem 1.sınavı konularını kapsayan Etkileşimli Web Uygulamaları 1 ve Etkileşimli Web Uygulamaları 2 Modüllerini aşağıdaki linklerden indirebilirsiniz.

Etkileşimli Web Uygulamaları 1
Etkileşimli Web Uygulamaları 2

Ayrıca Bilgisayar Teknik Servisi Dalı dersleri için Uğur Bey'den dosyalar gelir gelmez siteye eklenecektir.

Ağ Temelleri dersi için ise ders notları en kısa sürede eklenecektir.

Ayrıca okulumuzda 31 Mart 2008 Pazartesi gününden itibaren Yaz Saati uygulamasına Giriş-Çıkış saatleri değişecektir. Yeni giriş - çıkış saatleri için okulumuzun sitesindeki haberleri ziyaret edin.

http://www.yerkoyeml.k12.tr
Devamını okuyun...>>