Sitenize üyelik sistemi!!

alemci_bln

Stajyer

Mesajlar: 34

Kayıt tarihi: Nov 28th 2006

1

Wednesday, 10.01.2007, 03:50

[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]

Sayfanın en üstüne git

d_e_k_a_n

Acemi

Mesajlar: 6

Kayıt tarihi: Jan 25th 2007

2

Thursday, 25.01.2007, 09:55

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

Sayfanın en üstüne git

cemilbaba

Stajyer

Mesajlar: 58

Kayıt tarihi: Dec 22nd 2006

3

Thursday, 25.01.2007, 10:23

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

Sayfanın en üstüne git

cemilbaba

Stajyer

Mesajlar: 58

Kayıt tarihi: Dec 22nd 2006

4

Thursday, 25.01.2007, 10:48

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

Sayfanın en üstüne git

d_e_k_a_n

Acemi

Mesajlar: 6

Kayıt tarihi: Jan 25th 2007

5

Thursday, 25.01.2007, 11:09

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

Sayfanın en üstüne git

Al-Pi

Orta Düzey

Mesajlar: 397

Kayıt tarihi: Sep 14th 2006

Konum: Mönchengladbach

6

Thursday, 25.01.2007, 11:26

Alıntı sahibi ""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

Sayfanın en üstüne git

dogukancolak

Stajyer

Mesajlar: 19

Kayıt tarihi: Mar 7th 2008

Konum: istanbul

7

Friday, 7.03.2008, 20:38

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

Sayfanın en üstüne git

yaqmur.yureklim

Acemi

Mesajlar: 1

Kayıt tarihi: Sep 18th 2008

Konum: ankara

8

Thursday, 25.09.2008, 13:18

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

Sayfanın en üstüne git

gokhan_m

Acemi

Mesajlar: 5

Kayıt tarihi: Jul 28th 2007

Konum: TRABZON

9

Thursday, 27.11.2008, 12:30

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

Sayfanın en üstüne git

*Deniz*

Bilge

Mesajlar: 5,865

Kayıt tarihi: Feb 27th 2007

Konum: Kocaeli

10

Thursday, 27.11.2008, 12:56

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

Sayfanın en üstüne git

D3NiZLi-Li

Usta

Mesajlar: 3,304

Kayıt tarihi: Jul 29th 2007

Konum: Denizli

11

Thursday, 27.11.2008, 13:11

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

Sayfanın en üstüne git

x..DuyguLaR..PrenSi..x

Profesyonel

Mesajlar: 539

Kayıt tarihi: Aug 5th 2007

Konum: Mersin

12

Thursday, 27.11.2008, 20:33

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

Sayfanın en üstüne git

$sevd/\gul çevrimdışı$ sevd/\gul

Profesyonel

$"sevd/\gul" bir kadın$

Mesajlar: 1,893

Kayıt tarihi: Sep 1st 2008

Konum: ankara

13

Thursday, 27.11.2008, 21:04

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

Sayfanın en üstüne git

D3NiZLi-Li

Usta

Mesajlar: 3,304

Kayıt tarihi: Jul 29th 2007

Konum: Denizli

14

Friday, 28.11.2008, 13:49

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

Sayfanın en üstüne git

$sevd/\gul çevrimdışı$ sevd/\gul

Profesyonel

$"sevd/\gul" bir kadın$

Mesajlar: 1,893

Kayıt tarihi: Sep 1st 2008

Konum: ankara

15

Friday, 28.11.2008, 13:54

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

(

Sayfanın en üstüne git

AllaTurkaa

Sitenize üyelik sistemi!!

Sitenize üyelik sistemi!!

Alıntı sahibi ""cemilbaba""