fatih dursun - 10 - Üyelik sistemi

Üyelik sistemi

İlk önce bir sayfa açrak onu .asp ye donusturun.
Benim vereceğim kodları yazın...
<% Response.Buffer = True %>
<%on error resume next%>

<%

Set getValues = objConn.Execute("SELECT * FROM AYARLAR WHERE A_ID = 0")

dk_g = getValues("A_TIMEOUT")
recordNo = getValues("A_LINK_RECORD")
nRecordNo = getValues("A_NEWS_RECORD")
lcid = getValues("A_LCID")
Session.LCID = lcid
titleAdd = getValues("A_SITE_NAME")
msgLimit = getValues("A_MSG_LIMIT")
msgTimeout = getValues("A_MSG_TIMEOUT")
bannedIPs = getValues("A_BANNED_IPS")
passRemind = getValues("A_PASS_REMIND")
siteAddr = getValues("A_SITE_ADDR")
siteMail = getValues("A_SITE_EMAIL")
mailServer = getValues("A_MAIL_SERVER")
uyeMetod = getValues("U_METOD")
uExp = getValues("U_EXPIRE")
mailBil = getValues("A_MAIL_BIL")

clientIP = Request.ServerVariables("REMOTE_ADDR")

If InStr(1, bannedIPs, clientIP, 1) <> 0 Then
Response.Write "<b>BU IP ADRESININ SITEYE GİRİŞİ YASAKLANMIŞTIR!...</b>"
Response.END
End If
%>
<head>
<meta name="Generator" content="Microsoft FrontPage 5.0">
<meta name="Author" content="Akif">
<meta name="Keywords" content="Akif">
<meta name="Description" content="Üyelik XP - Üyelik Sistemi">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-9">
<title> Şifre Hatırlatma Sistemi - © NB Studios 2002 </title>
<style>
Body { font-family: verdana,tahoma,arial; font-size: 11px; color: #000000; }
a:link { cursor: none; font-weight: bold; text-decoration: none; color: #1E5ED2; }
a:visited { cursor: none; font-weight: bold; text-decoration: none; color: #1E5ED2; }
a:active { cursor: none; font-weight: bold; text-decoration: none; color: #5691F1; }
a:hover { cursor: none; font-weight: bold; text-decoration: none; color: #5691F1; }

a.news:link { cursor: none; font-weight: none; text-decoration: none; color: #9A9A9A; }
a.news:visited { cursor: none; font-weight: none; text-decoration: none; color: #9A9A9A; }
a.news:active { cursor: none; font-weight: none; text-decoration: none; color: #9A9A9A; }
a.news:hover { cursor: none; font-weight: none; text-decoration: underline; color: #D4D4D5; }

table { font: 11px verdana,tahoma,arial; }
#tdID {border : 1px dashed silver solid; font: 11px verdana,tahoma,arial; vertical-align:middle;}
.input { border-left:1px solid Silver; border-right:1px solid Silver; border-top:1px solid Dashed; border-bottom:1px solid Dashed; Background-Color: #EFEFEF; Color: #000000; Font-Size: 10PX; Font-Weight: Bold; Font-Family: verdana,tahoma,arial }
.input2 { border-left:1px solid Silver; border-right:1px solid Silver; border-top:1px solid Dashed; border-bottom:1px solid Dashed; Background-Color: #EFEFEF; Color: #000000; Font-Size: 9PX; Font-Weight: None; width:132; Font-Family: verdana,tahoma,arial }
.td {border : 1px dashed silver solid; font: none 11px tahoma; vertical-align:above;}
.textarea {border-left:1px solid Silver; border-right:1px solid Silver; border-top:1px solid Dashed; border-bottom:1px solid Dashed; background-color: #EFEFEF; color: #000000; width: 133; font-size: 10px; height: 80; font-family: verdana,tahoma,arial}
.textarea_y {border-left:1px solid Silver; border-right:1px solid Silver; border-top:1px solid Dashed; border-bottom:1px solid Dashed; background-color: #EFEFEF; color: #000000; width: 350; font-size: 10px; height: 125; font-family: verdana,tahoma,arial}
</style>
</head>
<% If Session("Oturum") = "Acik" Then Response.Redirect "default.asp" : Response.End %>
<form action="uye_ol.asp" method=post name="form">
</form>
<table align=center border=0 borderstyle=groove bordercolor=navy width=420>
<tr>
    <td style="border : 1px dashed silver solid; font: none 11px tahoma; vertical-align:above;">
   <center>
   <font style="font-size:19px; font-weight:bold;">SEVCAN ORHAN FUN CLUB   <font style="font-size: 14px; font-weight: none;"><i></i><font style="font-size:19px; font-weight:bold;"></font><i>Üyelik Formu</i></font></font>
   <hr width="310"><br>
<table style="font-size: 11px;" width="300" align=center>
   <tr>
    <td align=center><font color="#000000">Adınız ve soyadınız, diğer üyelere gösterilmez..</font></td>
   </tr>
   <tr>
    <td align=center><a href="default.asp">Ana sayfa</a></td>
   </tr>
</table><br>
<table style="font-size: 11px;" width="420">
   <tr>
     <td align=right width="50%">
  ..:: | Üye Adı *
  </td>
  <td align=left width="50%">
  <input type="text" name="uye_adi" class="input" maxlength=13 size="20">
  </td>
  <td align=left>
  <a href="nedir.html#1" onClick="window.name='main_uye'; window.open('nedir.html#1','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
  <img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
  </a>
  </td>
   </tr>

   <tr>
     <td align=right width="50%">
  ..:: | Şifre *
  </td>
  <td align=left width="50%">
  <input type="password" name="sifre" class="input" size="20">
  </td>
  <td align=left>
  <a href="nedir.html#2" onClick="window.name='main_uye'; window.open('nedir.html#2','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
  <img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
  </a>
  </td>
      </tr>

   <tr>
  <td align=right width="50%">
  ..:: | Şifre Tekrarı *
  </td>
  <td align=left width="50%">
  <input type="password" name="sifre_t" class="input" size="20">
  </td>
  <td align=left>
  <a href="nedir.html#3" onClick="window.name='main_uye'; window.open('nedir.html#3','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
  <img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
  </a>
  </td>
    </tr>

   <tr>
  <td align=right width="50%">
  ..:: | E-Mail Adresi *
  </td>
  <td align=left width="50%">
  <input type="text" name="email" class="input" maxlength=45 size="20">
  </td>
  <td align=left>
  <a href="nedir.html#4" onClick="window.name='main_uye'; window.open('nedir.html#4','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
  <img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
  </a>
  </td>
    </tr>

   <tr>
  <td align=right width="50%">
  ..:: | Ad Soyad *
  </td>
  <td align=left width="50%">
  <input type="text" name="adsoyad" class="input" maxlength=40 size="20">
  </td>
  <td align=left>
  <a href="nedir.html#5" onClick="window.name='main_uye'; window.open('nedir.html#5','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
  <img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
  </a>
  </td>
    </tr>

   <tr>
  <td align=right width="50%">
  ..:: | Hatırlatma Sorusu *
  </td>
  <td align=left width="50%">
  <input type="text" name="h_soru" class="input" maxlength=70 size="20">
  </td>
  <td align=left>
  <a href="nedir.html#6" onClick="window.name='main_uye'; window.open('nedir.html#6','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
  <img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
  </a>
  </td>
    </tr>

   <tr>
  <td align=right width="50%">
  ..:: | Cevabı *
  </td>
  <td align=left width="50%">
  <input type="text" name="h_cevap" class="input" maxlength=70 size="20">
  </td>
  <td align=left>
  <a href="nedir.html#7" onClick="window.name='main_uye'; window.open('nedir.html#7','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
  <img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
  </a>
  </td>
    </tr>

   <tr>
  <td align=right width="50%">
  ..:: | Şehir
  </td>
  <td align=left width="50%">
  <input type="text" name="sehir" class="input" size="20">
  </td>
  <td align=left>
  <a href="nedir.html#9" onClick="window.name='main_uye'; window.open('nedir.html#9','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
  <img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
  </a>
  </td>
    </tr>

   <tr>
  <td align=right width="50%">
  ..:: | Meslek
  </td>
  <td align=left width="50%">
  <input type="text" name="meslek" class="input" size="20">
  </td>
  <td align=left>
  <a href="nedir.html#10" onClick="window.name='main_uye'; window.open('nedir.html#10','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
  <img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
  </a>
  </td>
    </tr>

   <tr>
  <td align=right width="50%">
  ..:: | Yaş Aralığı
  </td>
  <td align=left width="50%">
  <select name="yas" style="Background-Color: #EFEFEF; Color: #000000; Border: 2; Border-Style: Groove; Border-Color: Dashed Silver; Font-Size: 9PX; Font-Weight: bold; width:137; Font-Family: verdana,tahoma,arial;">
  <option>=< 18</option>
  <option>18-24</option>
  <option>24-30</option>
  <option>30+</option>
  </select>
  </td>
  <td align=left>
  <a href="nedir.html#11" onClick="window.name='main_uye'; window.open('nedir.html#11','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
  <img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
  </a>
  </td>
    </tr>

   <tr>
  <td align=right width="50%">
  ..:: | Web Adresi
  </td>
  <td align=left width="50%">
  <input type="text" name="webadresi" class="input" value="http://" size="20">
  </td>
  <td align=left>
  <a href="nedir.html#12" onClick="window.name='main_uye'; window.open('nedir.html#12','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
  <img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
  </a>
  </td>
   </tr>

   <tr>
  <td align=right valign=top width="50%">
  ..:: | Açıklama
  </td>
  <td align=left width="50%">
  <textarea name=aciklama style="background-color: #EFEFEF; color: #000000; border: 2; border-style: groove; border-color: #FFFFFF; width: 133; font-size: 10px; height: 80; font-family: verdana,tahoma,arial" rows="1" cols="20"></textarea>
  </td>
  <td align=left>
  <a href="nedir.html#13" onClick="window.name='main_uye'; window.open('nedir.html#13','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
  <img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
  </a>
  </td>
   </tr>

   <tr>
  <td align=right width="50%">
  ..:: | E-Mail adresim   <br> diğer üyelere görünsün
  </td>
  <td align=left width="50%">
  <input type="checkbox" name="mailg" class="input" checked value="ON">
  </td>
  <td align=left>
  <a href="nedir.html#14" onClick="window.name='main_uye'; window.open('nedir.html#14','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
  <img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
  </a>
  </td>
   </tr>

   <tr>
  <td align=right width="50%">
  Kaydete tıklayınca <a href="kurallar.html" target=_blank>kurallar</a>ı
  </td>
  <td align=left width="50%">
  kabul etmiş sayılacaksınız
  </td>
  <td align=left>
  <a href="nedir.html#15" onClick="window.name='main_uye'; window.open('nedir.html#15','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
  <img src="image/soru.jpg" width="16" height="16" border=0 alt="Kurallar nedir?">
  </a>
  </td>
   </tr>

   <tr>
  <td align=right width="50%">
  <input type="reset" value=". . : : | KayBet | : : . ." style="Background-Color: #EFEFEF; Color: #000000; Border: 2; Border-Style: Groove; Border-Color: #FFFFFF; Font-Size: 10PX; Font-Weight: None; ">
  </td>
  <td align=left width="50%">
  <input type="submit" name="yolla" value=". . : : | KayDet | : : . ." style="Background-Color: #EFEFEF; Color: #000000; Border: 2; Border-Style: Groove; Border-Color: #FFFFFF; Font-Size: 10PX; Font-Weight: None; " onClick="javascript:

  if (form.uye_adi.value == '' || document.form.uye_adi.value.length < 2) { alert('Lütfen üye adını doğru olarak yazınız!.. (En az 2 karakter)'); form.uye_adi.focus(); return false }

if (form.sifre.value == '' || document.form.sifre.value.length < 4 || document.form.sifre.value.length > { alert('Lütfen şifrenizi doğru olarak yazınız!.. (En az 4, en çok 8 karakter)'); form.sifre.focus(); return false }

if (form.sifre.value != form.sifre_t.value) { alert('Şifreniz ve tekrarı, birbirinden farklı!..'); form.sifre.focus(); return false }

if (form.email.value == '' || document.form.email.value.indexOf('@') ==-1 || document.form.email.value.indexOf('.') ==-1) { alert('Lütfen geçerli bir e-mail adresi yazınız!..'); form.email.focus(); return false }

if (form.adsoyad.value == '' || document.form.adsoyad.value.length < 4) { alert('Lütfen Ad ve Soyadınızı doğru olarak yazınız!...'); form.adsoyad.focus(); return false }

if (form.h_soru.value == '' || document.form.h_soru.value.length < 3) { alert('Lütfen hatırlatma sorusu yazınız!...'); form.h_soru.focus(); return false }

if (form.h_cevap.value == '') { alert('Lütfen hatırlatma sorusuna cevap yazınız!..'); form.h_cevap.focus(); return false }

if (form.aciklama.value.length > 125) { alert('Açıklama en fazla 125 karakter olmalı!..'); form.aciklama.focus(); return false }

  else
  {
  form.submit();
  this.disabled=true;
  }
  "><input type=hidden name="xp" value="xp">
  </td>
  <td align=left>
  </td>
   </tr>
</table>
    </td>
</tr>
</form>
<%
Sub hataYaz(str)
Response.write "<center><font color=""#FF0000""><b>" & str & "</b></font><br><a href=""javascript:history.back(1)"">Geri</a></center><br><br>"
End Sub
If Request.Form("xp") = "xp" Then
If InStr(1, Request.Form("uye_adi"), "'", 1) <> 0 OR InStr(1, Request.Form("sifre"), "'", 1) <> 0 Then
Response.write "<center><font color=""#FF0000""><b>Lütfen üye adınız ve şifrenizde kesme işareti (') kullanmayın</b></font><br><a href=""javascript:history.back(1)"">Geri</a></center><br><br>"
Response.end
End If

acik = Replace(Request.Form("aciklama"), "<", "<")
aciklama = Replace(acik, ">", ">")

If Request.Form("mailg") = "on" Then
mailgoster = true
Else
mailgoster = false
End If

If Mid(Request.Form("webadresi"), 1, 7) <> "http://" AND Request.Form("webadresi") <> "" Then
address = Request.Form("webadresi")
adres = Replace(address, address, "http://"&address)
ElseIf Request.Form("webadresi") = "http://" OR Request.Form("webadresi") = "" Then
adres = ""
Else
adres = Request.Form("webadresi")
End If

Set getType = objConn.Execute("SELECT * FROM AYARLAR WHERE A_ID = 0")

Set objRs = Server.CreateObject("ADODB.RecordSet")
objRs.Open "SELECT * FROM UYELER", objConn, 3, 3

Set nameCheck = objConn.Execute("SELECT * FROM UYELER WHERE U_ADI='"&Request.Form("uye_adi")&"'")

If Not nameCheck.EOF Then
call hataYaz("Bu Kullanıcı Adı Sistemde Kayıtlı!...")
Response.End
End If

email = Request.Form("email")
bolge = InStr(1, email, "@", 1)
If Mid(email, bolge+1, 1) = "." Then
call hataYaz("Doğru bir e-mail adresi girin")
Response.End
Else
bolge2 = InStr(bolge, email, ".", 1)
If Mid(email, bolge2+1, 1) = "" Then
call hataYaz("Doğru bir e-mail adresi girin")
Response.End
End If
End If

Set emailCheck = objConn.Execute("SELECT * FROM UYELER WHERE EMAIL='"&Request.Form("email")&"'")

If Not emailCheck.EOF Then
call hataYaz("Bu E-Mail Adresine Sahip Kullanıcı Mevcut!...")
Response.End
End If

objRs.AddNew
objRs("U_ADI") = Request.Form("uye_adi")
objRs("U_SIFRE") = Request.Form("sifre")
objRs("AD") = Request.Form("adsoyad")
objRs("EMAIL") = Request.Form("email")
objRs("H_SORU") = Request.Form("h_soru")
objRs("H_CEVAP") = Request.Form("h_cevap")

If Request.Form("icq") <> "" AND IsNumeric(Request.Form("icq")) Then
objRs("ICQ") = Request.Form("icq")
End If

objRs("SEHIR") = Request.Form("sehir")
objRs("MESLEK") = Request.Form("meslek")
objRs("YAS") = Request.Form("yas")
objRs("WEB") = adres
objRs("ACIKLAMA") = aciklama
objRs("MAILGOSTER") = mailgoster
objRs("LOGIN_SAYISI") = 1
objRs("U_TARIHI") = Date()
If getType("U_METOD") = 0 Then objRs("SON_TARIH") = Now()
objRs("SEVIYE") = "0"
objRs("M_NICKNAME") = Request.Form("uye_adi")
objRs("OS") = os
objRs("BROWSER") = browser

If getType("U_METOD") = 1 Then
objRs("ACTIVE") = "0"
k = "0"
Randomize
sayi = Int((Rnd*9999999999999) + 10000000000000)

For I = 1 To objRs.RecordCount
If sayi = objRs("ACTIVE_CODE") Then k = k + 1
Next

If k > 0 Then
Randomize
sayi = Int((Rnd*9999999999999) + 10000000000000)
objRs("ACTIVE_CODE") = sayi
objRs("ONAY_BEKLE") = "0"
tip = 1
Else
objRs("ACTIVE_CODE") = sayi
objRs("ONAY_BEKLE") = "0"
tip = 1
End If

ElseIf getType("U_METOD") = 0 Then
objRs("ACTIVE") = "1"
objRs("ONAY_BEKLE") = "0"

ElseIf getType("U_METOD") = 2 Then
objRs("ACTIVE") = "0"
objRs("ONAY_BEKLE") = "1"
tip = 2

Else
Response.Write "<b>Veritabanındaki bir hatadan dolayı kayıt yapılamıyor</b><br><br>"
Response.End

End If

objRs.Update
objRs.Close
Set objRs = Nothing

Set idAl = objConn.Execute("SELECT * FROM UYELER WHERE U_ADI = '" & Request.Form("uye_adi") &"'")
idNo = idAl("U_ID")

Set expAl = objConn.Execute("SELECT * FROM AYARLAR WHERE A_ID = 0")
expDur = expAl("U_EXPIRE")
siteMail = expAl("A_SITE_EMAIL")
mailServer = expAl("A_MAIL_SERVER")
titleAdd = expAl("A_SITE_NAME")

If tip = 1 Then
konuA = "Aktivasyon Kodunuz"

hostName = Request.ServerVariables("HTTP_HOST")
urlCont = Request.ServerVariables("URL")
charFoundSlash = InStrRev(urlCont, "/", -1, 1)
stringAfterHost = Mid(urlCont, 1, charFoundSlash)
lastString = "http://"& hostName & stringAfterHost
pathAct = lastString & "activate.asp?RNDNO="& sayi &"&UID="&idNo&""
mesajA = "Aşağıdaki linke tıklayıp, üyeliğinizi aktif hale getirebilirsiniz." & vbCrLf & vbCrLf & pathAct
If mailBil = "CDONTS" Then
yolla = CDONTS (konuA, mesajA, Request.Form("email"))
If NOT yolla Then
Response.Write "<b>HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ</b><br><br>"
Response.End
End If
ElseIf mailBil = "PERSITS" Then
yolla = PERSITS (konuA, mesajA, Request.Form("email"))
If NOT yolla Then
Response.Write "<b>HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ</b><br><br>"
Response.End
End If
ElseIf mailBil = "JMAIL" Then
yolla = JMAIL (konuA, mesajA, Request.Form("email"))
If NOT yolla Then
Response.Write "<b>HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ</b><br><br>"
Response.End
End If
Else
Response.Write "<b>HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ</b><br><br>"
Response.End
End If
Response.Redirect "default.asp?ISN=354763"
ElseIf tip = 2 Then
Response.Redirect "default.asp?ISN=354986"
ElseIf tip = 0 Then

Set objRst = Server.CreateObject("ADODB.RecordSet")
objRst.Open "SELECT * FROM UYELER WHERE U_ADI='"&Request.Form("uye_adi")&"' AND U_SIFRE='"&Request.Form("sifre")&"' AND ACTIVE = 1", objConn, 3, 3

If Not objRst.EOF Then

Session("Oturum") = "Acik"
Session("Uye_Adi") = objRst("U_ADI")
Session("Uye_Id") = objRst("U_ID")
Session("Uye_Sifre") = objRst("U_SIFRE")
Session("Uye_Email") = objRst("EMAIL")
Session("Uye_Login") = objRst("LOGIN_SAYISI")

Response.Cookies("xp_uye")("mevcut") = "evet"
Response.Cookies("xp_uye")("kullanici") = objRst("U_ADI")
Response.Cookies("xp_uye")("sifre") = objRst("U_SIFRE")
Response.Cookies("xp_uye").Expires = Date() + 365

objRst.Close
Set objRs = Nothing

Response.Redirect "default.asp"

End If

End If %><%
End If
%>