<%
'Email doğrulama fonksiyonu
Function cckemail(email)
if email <> "" Then
Set regex = new regexp
regex.pattern = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
regex.ignorecase = true
If regex.test(email) then cckemail = True else cckemail = false
end If
End Function
%>
<%
'Güvenlik kodu üreten fonksiyon
Function sifreuret(Uzunluk)
Karakterler = "1234567890"
'Karmaşık
'0123456789abcdefghijklmnoprqstuvyzABCDEFGHIJKLMNOPRQSTUVYZ
Randomize
KarakterBoyu = Len(Karakterler)
For z = 1 To Uzunluk
KacinciKarakter = Int((KarakterBoyu * Rnd) + 1)
UretilenSifre = UretilenSifre & Mid(Karakterler,KacinciKarakter,1)
Next
sifreuret = UretilenSifre
End Function
%>FORM ALANIMIZ
ŞİFREMİ UNUTTUM
* Sisteme giriş ile ilgili problem yaşarsanız bize iletişim panelinden ulaşabilirsiniz!
POST ALANI
<%
mode = request.querystring("mode")
'------------------------------ 3. İSTEK
if mode = "unuttum" then
call unuttum
else
end if
%>
<%
' [ 3 ----------------- ŞİFREMİ UNUTTUM ----------------- ]
Sub unuttum
if kontrol(trim(request.form("email"))) then
Response.Redirect Request.ServerVariables("HTTP_REFERER")
else
if trim(request.form("gkodu")) = session("guvenlikkodu") then
set uyesorgula = createobject("adodb.recordset")
uyesorgula.open "select * from uyeler where email='"&trim(request.form("email"))&"'", conn, 3,3
if cckemail(trim(request.form("email"))) = false then
response.write "UYARI!
Geçerli bir e-posta adresi giriniz!
Sizi Anasayfa'ya yönlendiriliyorum.
UYARI!
Bu e-posta adresi veritabanımızda kayıtlı değil!
Sizi Anasayfa'ya yönlendiriliyorum.
"bilgi@sorhocam.com"
SMTPSifre = "xxxxx"
SMTPSunucuAdresi = "smtp.sorhocam.com"
DomainAdi = "sorhocam.com"
SMTPSunucuAdresi = "smtp."+DomainAdi
GonderenAdSoyad = SMTPKullaniciAdi
GonderenKisi = SMTPKullaniciAdi
AliciKisi = trim(request.form("email"))
MailKonusu = "Sorhocam.com - Şifre Unuttum"
Tarih = Formatdate(Now,1)
Mesaj = "
SORHOCAM.COM - ŞİFRE HATIRLATMA SERVİSİ
Kullanıcı Adınız : "&uyesorgula("email")&"
Şifreniz : "&uyesorgula("sifre")&"
Talep Tarihi : "&tarih&"
"
Set MKonf = CreateObject("CDO.Configuration")
Sch = "http://schemas.microsoft.com/cdo/configuration/"
Set Alnlr = MKonf.Fields
With Alnlr
.Item(Sch & "sendusing") = 2
.Item(Sch & "smtpserver") = SMTPSunucuAdresi
.Item(Sch & "smtpserverport") = 587
.Item(Sch & "smtpauthenticate") = 1
.Item(Sch & "sendusername") = SMTPKullaniciAdi
.Item(Sch & "sendpassword") = SMTPSifre
.Update
End With
Set CDOM = CreateObject("CDO.Message")
CDOM.Configuration = MKonf
CDOM.From = GonderenAdSoyad & "<" & GonderenKisi & ">"
CDOM.To = AliciKisi
CDOM.Subject = MailKonusu
CDOM.HtmlBody = Mesaj
CDOM.Send
Set CDOM = Nothing : Set Alnlr = Nothing : Set MKonf = Nothing
uyesorgula.close : set uyesorgula = nothing
response.write "
