Sitenize üyelik sistemi!!

alemci_bln

Trainee

Posts: 34

Date of registration: Nov 28th 2006

1

Wednesday, January 10th 2007, 3:50am

[code:1]
<% 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 6.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> Sifre Hatirlatma 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 color="#FF0000"><b>www.gececi-fm.de.tt</b></font><hr width="310"><br>
<table style="font-size: 11px;" width="300" align=center>
<tr>
<td align=center>A<font color="#000000">diniz ve Soyadiniz Diger Üyelere
Gösterilmes.</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 Adi *
</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="http://www.repage3.de/memberdata/drkdrk/SavagE-AvataR.gif" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
..:: | Sifre *
</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="http://www.repage3.de/memberdata/drkdrk/SavagE-AvataR.gif" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
..:: | Sifre 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="http://www.repage3.de/memberdata/drkdrk/SavagE-AvataR.gif" 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="http://www.repage3.de/memberdata/drkdrk/SavagE-AvataR.gif" 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="http://www.repage3.de/memberdata/drkdrk/SavagE-AvataR.gif" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
..:: | Hatirlatma 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="http://www.repage3.de/memberdata/drkdrk/SavagE-AvataR.gif" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
..:: | Cevabi *
</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="http://www.repage3.de/memberdata/drkdrk/SavagE-AvataR.gif" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
..:: | ICQ
</td>
<td align=left width="50%">
<input type="text" name="icq" class="input" maxlength=20 size="20">
</td>
<td align=left>
<a href="nedir.html#8" onClick="window.name='main_uye'; window.open('nedir.html#8','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="http://www.repage3.de/memberdata/drkdrk/SavagE-AvataR.gif" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
..:: | Sehir
</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="http://www.repage3.de/memberdata/drkdrk/SavagE-AvataR.gif" 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="http://www.repage3.de/memberdata/drkdrk/SavagE-AvataR.gif" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
..:: | Yas Araligi
</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="http://www.repage3.de/memberdata/drkdrk/SavagE-AvataR.gif" 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="http://www.repage3.de/memberdata/drkdrk/SavagE-AvataR.gif" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right valign=top width="50%">
..:: | Aciklama
</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="http://www.repage3.de/memberdata/drkdrk/SavagE-AvataR.gif" 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="http://www.repage3.de/memberdata/drkdrk/SavagE-AvataR.gif" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
Kaydete tiklayinca <a href="kurallar.html" target=_blank>kurallar</a>i
</td>
<td align=left width="50%">
kabul etmis sayilacaksiniz
</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="http://www.repage3.de/memberdata/drkdrk/SavagE-AvataR.gif" 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 adinizi dogru olarak yaziniz!.. (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 sifrenizi dogru olarak yaziniz!.. (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>Veritabanindaki bir hatadan dolayi kayit yapilamiyor</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
%></body></html>[/code:1]

Go to the top of the page

d_e_k_a_n

Beginner

Posts: 6

Date of registration: Jan 25th 2007

2

Thursday, January 25th 2007, 9:55am

çok saol kardeşim. bu linki kaç aydan beri arıyordum bir türlü bulamamıştım..emeğine sağlık..

Go to the top of the page

cemilbaba

Trainee

Posts: 58

Date of registration: Dec 22nd 2006

3

Thursday, January 25th 2007, 10:23am

abi üye girisi nasil olacak üye girisinin kodu varsa onuda yollasan

Go to the top of the page

cemilbaba

Trainee

Posts: 58

Date of registration: Dec 22nd 2006

4

Thursday, January 25th 2007, 10:48am

bide abi gene rahatsiz etcem kaydete basinca kaydetmiyoo onu nasil halletcez nasil olcak bide onu anlatirsan tam olacak

Go to the top of the page

d_e_k_a_n

Beginner

Posts: 6

Date of registration: Jan 25th 2007

5

Thursday, January 25th 2007, 11:09am

Evet bende denedim ama olmadı..Bize yardımcı olun

Go to the top of the page

Al-Pi

Intermediate

Posts: 397

Date of registration: Sep 14th 2006

Location: Mönchengladbach

6

Thursday, January 25th 2007, 11:26am

Quoted from ""cemilbaba""

abi üye girisi nasil olacak üye girisinin kodu varsa onuda yollasan

alemci arkadasimiza burdan tesekkürler fakat, bu islemi yapabilmeniz icin web alaniniz PHP destekli olmali.
ve bircok ayardaha yapmaniz gerekli

Go to the top of the page

dogukancolak

Trainee

Posts: 19

Date of registration: Mar 7th 2008

Location: istanbul

7

Friday, March 7th 2008, 8:38pm

ewet ben alpiye katılıyorum bu iş kısaca biraz uzun ve zor

Go to the top of the page

yaqmur.yureklim

Beginner

Posts: 1

Date of registration: Sep 18th 2008

Location: ankara

8

Thursday, September 25th 2008, 1:18pm

uzun ve zor olan işi bize niye veriyonuz yaf acemiyik ne anlariz yardım edinde yapalım :x

Go to the top of the page

gokhan_m

Beginner

Posts: 5

Date of registration: Jul 28th 2007

Location: TRABZON

9

Thursday, November 27th 2008, 12:30pm

slm benim site html htmle siteye üye yapma kodunu buraya eklemeniz mümkünmü acaba?

Go to the top of the page

*Deniz*

Sage

Posts: 5,865

Date of registration: Feb 27th 2007

Location: Kocaeli

10

Thursday, November 27th 2008, 12:56pm

gokhan_m, bu kod zaten html :roll:

Ama siz eğer nick alma linkini diyorsanız bu şekilde ekleyebilirsiniz

<a href="http://www.flatcast.com/de/WizUsr.aspx">

Tabi Nick Alma menüsüne link olarak vericeksiniz bu kodu

Go to the top of the page

D3NiZLi-Li

Master

Posts: 3,304

Date of registration: Jul 29th 2007

Location: Denizli

11

Thursday, November 27th 2008, 1:11pm

gokhan_m, eger radyo icin nick almak ise deniz arkdasimizin verdigini kodu eklemelisin
ama uyelik diyorsun siten PHP yada ASP destekli olmasi lazim

Go to the top of the page

x..DuyguLaR..PrenSi..x

Professional

Posts: 539

Date of registration: Aug 5th 2007

Location: Mersin

12

Thursday, November 27th 2008, 8:33pm

<a href="http://www.flatcast.com/de/WizUsr.aspx"><strong>Nick AL</strong></a>

Aciklamali Daha iyi ..

Htlm ile OLmaz Gokhan ErbiLin yazdigi Gibi Bir Php Yada Asp Destekli Host Olmasi Gerek

Ücretli yada ücretsiz. Sana Kalmis...

Üyelik istiyorsan ÖyLe Yapa Bilirsin..

Go to the top of the page

$sevd/\gul is offline$ sevd/\gul

Professional

$"sevd/\gul" is female$

Posts: 1,893

Date of registration: Sep 1st 2008

Location: ankara

13

Thursday, November 27th 2008, 9:04pm

bende istiyorum üye girişi yapmayı siteme ama çok zor görünüyor host var lisansli site ama bir türlü yapamdım

( beceriksizmiyim neyim

Go to the top of the page

D3NiZLi-Li

Master

Posts: 3,304

Date of registration: Jul 29th 2007

Location: Denizli

14

Friday, November 28th 2008, 1:49pm

sevd/gul, kendin programaya basalrsan cok uzun is
fakat hazir uyelik sistemleri var google acmaya uyelik scpriti yazdinmi geliyor
faakt radyoyu uyelikli giris yapmak cok zor is oluyor
kodlarda radyoyu gizlemelisin diger turlu bir ise yaramiyor
asagidaki siteyi ornek olarak gosterebilirim

Ornek site : http://www.kizilca.gen.tr/radyo_dinle.asp

Go to the top of the page

$sevd/\gul is offline$ sevd/\gul

Professional

$"sevd/\gul" is female$

Posts: 1,893

Date of registration: Sep 1st 2008

Location: ankara

15

Friday, November 28th 2008, 1:54pm

Cyber.Erbil, radyoya istemiyorum sitemize isityorum hazirlarada baktım bulamadım bulsamda yapamadım

(

Go to the top of the page

AllaTurkaa

Sitenize üyelik sistemi!!

Sitenize üyelik sistemi!!

Quoted from ""cemilbaba""