Forum
Aktif konular
Üyeler
Kurallar
Arama
Üyelik Aktif Etmek [Asp] Buyrun Üyelik Aktif Etmek [Asp] Buyrun
-
Öncelikle üyeler tablosunda bir Onay hucresi olması lazım. Onay hucresi 1 olanlar aktif edilmiş demek.
Bunun için önce "Onay" hucresini 1 yapan bir sayfa yapmamız lazım.
------------------AktifEt.asp-----------
<%
Dim Id,Adi,Soyadi
Id=request.QueryString("Id")
Adi=request.QueryString("Adi")
Soyadi=request.QueryString("Soyadi")
sql="Update Uyelerimiz Set Onay=1 Where Id=" & Id & " and Adi='" & Adi & "' and Soyadi='" & Soyadi & "'"
baglanti.execute sql
baglanti.close
%>
Burda ne yapmış olduk. AktifEt.asp sayfasına gelen ID, Adi, Soyadi bilgili kişinin Onay hücresini 1 yap demiş olduk. Bu sayfayı oluşturduktan sonra, üye olan kişiye bu sayfanın linkini mail ile yollamak kaldı.
-----------------------
Bunun için bir mail bileşeni gerekiyor yada Gmail in mail gönderme kodlarıyla yapılabilir. İşte mail kodu. Aşağıdaki link yerine iyi bak
<%
Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message" )
Set iConf = CreateObject("CDO.Configuration" )
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing" ) = 2
Flds.Item(schema & "smtpserver" ) = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport" ) = 465
Flds.Item(schema & "smtpauthenticate" ) = 1
Flds.Item(schema & "sendusername" ) = "Gmail mailiniz"
Flds.Item(schema & "sendpassword" ) = "gmail şifreniz"
Flds.Item(schema & "smtpusessl" ) = 1
Flds.Update
With iMsg
.To = kayıt olan kişinin epostasını yazacaksın. recordsetten çagırabilirsin.
.From = "Kariyer Video <info@kariyervideo>"
.Subject = "Aktivizasyon Linkiniz (KariyerVideo)"
.HTMLBody = "<b>KariyerVideo.com</b> ' a üye olduğunuz için teşekkür ederiz.<br><br> Üyeliğinizi tamamlamak için aşağıda bulunan aktivizasyon linkine tıklayınız.<br><br> Eğer bu mail sizi ilgilendirmiyorsa lütfen siliniz.<br><br> http://www.kariyervideo.com/AktifEt.asp?Id=" & rs("Id") & "&Adi=" & rs("Adi") & "&Soyadi=" & rs("Soyadi")
.Sender = "KariyerVideo.com Ailesi"
.Organization = "www.kariyervideo.com"
.ReplyTo = "info@kariyervideo.com"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
set iMsg = nothing
set iConf = nothing
set Flds = nothing
%>
bu şekilde bir aktifleme sistemi kullanabilirsinalıntıdır.
-
kariyer videodan allıntı galiba adem aktepenin sitesi. güzel başarılı bir site herkese tavsiye edebilirim.
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla