Üyelik Sistemi

uye.asp Dosyasını veriyorum... Bir daha da Boş mesaj yazma @ekoriko----------------------------- uye.asp ----------------------------------<% If Session("Oturum") <> "Acik" Then %>

Kullanıcı

Sifre

/unuttum.gif" border="0" > Üye Ol

/unuttum.gif" border="0" > Şifremi Unuttum

<%set rs=server.createobject("adodb.recordset")rs.open "SELECT * FROM UYELER order by U_ID desc",baglantim,1Session.LCID = lcidSet toplam = baglantim.Execute("Select Count(*) AS muratsoft FROM UYELER ")Set today = baglantim.Execute("Select Count(*) AS muratsoft FROM UYELER WHERE U_TARIHI=date()-0")Set yesterday = baglantim.Execute("Select Count(*) AS muratsoft FROM UYELER WHERE U_TARIHI=date()-1")%>

/group-2.gif" width="23"> Üyelik: /ur-moderator.gif" width="10"> Son Üye: <%=rs("U_ADI")%> /ur-author.gif" width="10"> Bugün: <%=today("muratsoft")%> /ur-admin.gif" width="10"> Dün: <%=yesterday("muratsoft")%> /ur-guest.gif" width="10"> Toplam: <%=toplam("muratsoft")%> /group-3.gif" width="23"> Şu An Bağlı: /ur-anony.gif" width="10"> Ziyaretçi: <%=total%> /ur-member.gif" width="10"> Üye: /ur-registered.gif" width="10"> Toplam: <%Response.Write "" & saytoplam & ""%> /group-1.gif" width="23"> Şu An Bağlı: /point3.gif"><% Session.LCID = 1033liste = DateAdd("n", -1 * dk_g, Now())Set objList=Server.CreateObject("Adodb.Recordset")Sorgu = "SELECT * FROM UYELER WHERE SON_TARIH >= #"&liste&"# ORDER BY SON_TARIH DESC"objList.Open Sorgu, Baglantim, 3, 3Session.LCID = lcid If objList.EOF Then uNumber = "0" Else uNumber = objList.RecordCount End If If uNumber = "0" Then Response.Write " Şu Anda Online Üye Yok " end if If uNumber = "0" AND Session("Oturum") = "Kapali" Then Response.Redirect Request.ServerVariables("HTTP_URL") For I = 1 To uNumber If Session("Oturum") = "Acik" Then Response.Write ""&objList("U_ADI")&", " Else Response.Write ""&objList("U_ADI")& ", " End If objList.MoveNext Next objList.Close Set objList = Nothing%>

<% else %> <% Set objRead = baglantim.Execute("SELECT Count(*) AS toplam FROM MESAJLAR WHERE GIDEN = '"& Session("Uye_Adi") &"' AND GOR = True") Set objSpe = baglantim.Execute("SELECT Count(*) AS ozel FROM MESAJLAR WHERE TYPE=1") Set objNRead = baglantim.Execute("SELECT Count(*) AS okunmayan FROM MESAJLAR WHERE GIDEN = '"& Session("Uye_Adi") &"' AND OKUNDU = False AND GOR = True") Set getName = baglantim.Execute("SELECT * FROM UYELER WHERE U_ID = "& Session("Uye_Id")) Set getresim = baglantim.Execute("SELECT * FROM UYELER WHERE U_ID = "& Session("Uye_Id")) %>

Sitemize hoş geldiniz.

/logout.gif" alt="Güvenli çıkış" border="0">

<%=getName("AD")%> !

Kişisel menünüzdeki size özel bilgilerin güvenliği için siteden ayrılırken lütfen ÇIKIŞ butonunu kullanınız.

<% if SESSION("Uye_Seviye")=1 then %> <% end if %>

/tri_right.GIF"> " style="text-decoration: none"> Üyelik Bilgileri

/tri_right.GIF"> Üyeler

/tri_right.GIF"> &i=ge" style="text-decoration: none"> Mesaj Kutusu (<%=objNRead("okunmayan")%>/<%=objRead("toplam")%>)

/tri_right.GIF"> &i=oz" style="text-decoration: none"> Yönetimden (<%=objSpe("ozel")%>)

/tri_right.GIF"> Yönetici Alanı

<% end if %>******************** Uye_tani.asp ****************************<%If Session("Oturum") <> "Acik" AND Request.Form("avci") <> "mustafa" AND Request.Cookies("xp_uye")("mevcut")="evet" Then uye_adi = Request.Cookies("xp_uye")("kullanici") sifre = Request.Cookies("xp_uye")("sifre") Call Giris_Yap (uye_adi, sifre)ElseIf Request.Form("avci") = "mustafa" AND Session("Oturum") <> "Acik" Then uye_adi = Replace(Request.Form("uyeadi"), "'", "") sifre = Replace(Request.Form("sifre"), "'", "") Call Giris_Yap (uye_adi, sifre)else response.Redirect("default.asp")End If%><%Sub Giris_Yap (uye_adi, sifre) Set objRs = Server.CreateObject("ADODB.RecordSet") StrSQL = "SELECT * FROM UYELER WHERE U_ADI ='"& uye_adi &"' AND U_SIFRE = '"& sifre &"'" objRs.Open StrSQL, baglantim, 3, 3 If NOT objRs.EOF Then If objRs("ACTIVE") <> "1" Then%>

-Muratsoft Güvenlik SİSTEMİ- GÜVENLİK KODU=[00AEF2] MESAJ: Sistem Bu Üyeliği Bloke Etti!. BİLGİ İÇİN: lütfen SİTE YÖNETİCİSİ ile irtibata geçiniz.

<% objRs.Close Set objRs = Nothing Session("Oturum") = "Kapali" Else Set checkIP = baglantim.Execute("SELECT * FROM ZIYARETCI WHERE IP = '" & Request.ServerVariables("REMOTE_ADDR") & "'") If Not checkIP.EOF Then Set updIP = baglantim.Execute("DELETE FROM ZIYARETCI WHERE IP = '" & Request.ServerVariables("REMOTE_ADDR") & "'") End If Session("Oturum") = "Acik" Session("Uye_Adi") = objRs("U_ADI") Session("Uye_Ad") = objRs("AD") Session("Uye_Id") = objRs("U_ID") Session("Uye_Sifre") = objRs("U_SIFRE") Session("Uye_Email") = objRs("EMAIL") Response.Cookies("xp_uye")("kullanici") = objRs("U_ADI") Response.Cookies("xp_uye")("sifre") = objRs("U_SIFRE") Response.Cookies("xp_uye")("mevcut") = "evet" Response.Cookies("xp_uye").Expires = Date() + 365 objRs("LOGIN_SAYISI") = objRs("LOGIN_SAYISI") + 1 objRs.Update objRs.Close Set objRs = Nothing response.Redirect("default.asp") End IfElseobjRs.CloseSet objRs = NothingSession("Oturum") = "Kapali"response.Redirect("warning.asp?yanlis=giris")End IfEnd Sub%>