<%=titleAdd%> - Üyelik Sistemi <%=uye%>

<% If Session("Oturum") = "Acik" AND Session("Uye_Adi") <> "" Then uye = " [ "& Session("Uye_Adi") & " ] " Else uye = "" End If dbPath = Server.MapPath("db/uyelik.mdb") Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbPath) 'objConn.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dbPath) 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 "BU IP ADRESININ SITEYE GİRİŞİ YASAKLANMIŞTIR!..." Response.END End If %> <%=titleAdd%> - Üyelik Sistemi <%=uye%> <% Session.LCID = 1033 dateToProcess = DateAdd("d", -1 * 3, Date()) Set delOldMems = objConn.Execute("DELETE FROM UYELER WHERE ACTIVE = 0 AND P_ADMIN = 0 AND U_TARIHI < #"&dateToProcess&"#") Session.LCID = lcid If Session("Oturum") = "Acik" Then Session.LCID = 1033 Set UpdDate = objConn.Execute("UPDATE UYELER SET SON_TARIH=#"&NOW()&"# WHERE U_ID="&Session("Uye_Id")&"") Session.LCID = lcid Set objLevel = objConn.Execute("SELECT * FROM UYELER WHERE U_ID = "& Session("Uye_Id")) If Not objLevel.EOF Then If objLevel("SEVIYE") = 0 Then Session("Uye_Seviye") = "0" ElseIf objLevel("SEVIYE") = 1 Then Session("Uye_Seviye") = "1" Else Session("Uye_Seviye") = "0" End If End If End If Function editBr(str) str = Replace (str, vbCrLf, "
", 1, -1, 1) editBr = str End Function Function duz(Str) Str = Replace(Str, "<", "<", 1, -1, 1) Str = Replace(Str, ">", ">", 1, -1, 1) Str = Replace(Str, vbCrLf, "
", 1, -1, 1) duz = Str End Function %> <% Sub esasUst () %> <% Set objRead = objConn.Execute("SELECT Count(*) AS toplam FROM MESAJLAR WHERE GIDEN = '"& Session("Uye_Adi") &"' AND GOR = True") Set objNRead = objConn.Execute("SELECT Count(*) AS okunmayan FROM MESAJLAR WHERE GIDEN = '"& Session("Uye_Adi") &"' AND OKUNDU = False AND GOR = True") Set getName = objConn.Execute("SELECT * FROM UYELER WHERE U_ID = "& Session("Uye_Id")) %>

Sitemize Hoşgeldiniz, <%=getName("AD")%>!

4Üye Sayfası

4">Üyelik Bilgileri

4 Çıkış

::. BACA HESABI

<% response.write " [ " response.write tarih response.write " || " response.write time() response.write " ] " %>

<% End Sub 'esasUst %> <% Sub esasAlt() %>

<% End Sub 'esasAlt %> <% Sub tarih_ne (tarih) gun = day(date) ay = month(date) yil = year(date) gun_y = WeekdayName(Weekday(date)) if ay = "1" then ay = "Ocak" elseif ay = "2" then ay = "Şubat" elseif ay = "3" then ay = "Mart" elseif ay = "4" then ay = "Nisan" elseif ay = "5" then ay = "Mayıs" elseif ay = "6" then ay = "Haziran" elseif ay = "7" then ay = "Temmuz" elseif ay = "8" then ay = "Ağustos" elseif ay = "9" then ay = "Eylül" elseif ay = "10" then ay = "Ekim" elseif ay = "11" then ay = "Kasım" elseif ay = "12" then ay = "Aralık" end if if gun_y = "Monday" then gun_y = "Pazartesi" elseif gun_y = "Tuesday" then gun_y = "Salı" elseif gun_y = "Wednesday" then gun_y = "Çarşamba" elseif gun_y = "Thursday" then gun_y = "Perşembe" elseif gun_y = "Friday" then gun_y = "Cuma" elseif gun_y = "Saturday" then gun_y = "Cumartesi" elseif gun_y = "Sunday" then gun_y = "Pazar" end if tarih = ""&gun&" "& ay &" "& yil &" "& gun_y End Sub Call tarih_ne (tarih) Sub copyright() 'Response.Write "

" End Sub %> <%call copyright()%> Üyelik Sistemi - Bu Nedir?

Üye Adı
Üye adı, siteye üye olmak için kullanıcağınız addır. Daha sonra bu üye adıyla siteye giriş yapabilirsiniz.
Kapat

Şifre
Siteye üye adıyla giriş yaparken şifrenizi de yazmalısınız. Şifrenizi bir kenara not ediniz.
Kapat

Şifre Tekrarı
Yazdığınız şifrenin aynısını yazınız. Herhangi bir hataya meydan vermemek için şifreniz ve tekrarı karşılaştırılacaktır.
Kapat

E-Mail
Diğer üyelerin ve site yöneticilerinin size ulaşması için gereklidir.
Kapat

Ad Soyad
Size hitap etmemiz ve hakkınızda biraz daha fazla bilgi edinmemiz için. Lütfen doldurunuz.
Kapat

Hatırlatma Sorusu
Şifrenizi unuttuğunuz takirde hatırlatılması için cevaplamanız gereken soru.
Kapat

Cevabı
Hatırlatma sorusuna vereceğiniz cevap. Lütfen sadece sizin bilebileceğiniz bir cevap yazın.
Kapat

ICQ
Diğer üyelerin size daha kolay ulaşabilmesi için, günümüzün en çok kullanılan iletişim aracı ICQ 'ya kayıtlı iseniz, numaranızı yazabilirsiniz. Yine zorunlu değil.
Kapat

Şehir
Bulunduğunuz şehir. Zorunlu değil
Kapat

Meslek
Şuan meşgul olduğunuz meslek. Boş bırakabilirsiniz
Kapat

Yaş aralığı
Diğer üyelere görünmez. Sizin için uygun olan yaş aralığını seçiniz.
Kapat

Web adresi
Diğer üyelerin haberdar olabileceği, web adresiniz. (varsa)
Kapat

Açıklama
Kendiniz hakkında bilgi veya site hakkındaki görüşleriniz.
Kapat

E-Mail adresim görünsün-görünmesin
Diğer üyelerin sizin e-mail adresinizi görüp görememesi. İşaretlerseniz e-mail adresiniz diğer üyelere görünür.
Kapat