Türkiye'nin En Mutlu Forumu
Would you like to react to this message? Create an account in a few clicks or log in to continue.

http://yeterince.benimforum.org/
 
AnasayfaLatest imagesAramaKayıt OlGiriş yap

Türkiye'nin En Mutlu Forumu :: Webmaster :: Web dizayn

uyelik sistemi yapımı

 Önceki başlık Sonraki başlık Aşağa gitmek
Yazar Mesaj
Crazy
Yeni Üye
Yeni Üye
avatar

Erkek
Yaş : 34 Kayıt tarihi : 06/10/08 Mesaj Sayısı : 6

Paylaşımlar:
uyelik sistemi yapımı Img_left450/1000uyelik sistemi yapımı Empty_bar_bleue  (450/1000)
Mutluluk:
uyelik sistemi yapımı Img_left600/1000uyelik sistemi yapımı Empty_bar_bleue  (600/1000)
uyelik sistemi yapımı Vide

MesajKonu: uyelik sistemi yapımı uyelik sistemi yapımı Icon_minitime20.10.08 13:38
crazy demiş ki:
<% if Session("durum")="giris_yapmis" then %>
<% Response.Redirect "giris_sayfasi.asp" %>

<%else %>

Kullanıcı Adı:
Şifre:

<% end if %>

<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath
("database/db.mdb")
%>

<%
'Sql Injection 'ı Önlemek ve HTML Kodlarını Pasif Hale Getirmek İçin
Kullanılan
Karakter Temizleme Metodu
function guvenlik(data)
data = Replace (data ,"`","",1,-1,1)
data = Replace (data ,"=","",1,-1,1)
data = Replace (data ,"&","",1,-1,1)
data = Replace (data ,"%","",1,-1,1)
data = Replace (data ,"!","",1,-1,1)
data = Replace (data ,"#","",1,-1,1)
data = Replace (data ,"<","",1,-1,1)
data = Replace (data ,">","",1,-1,1)
data = Replace (data ,"*","",1,-1,1)
data = Replace (data ,"And","",1,-1,1)
data = Replace (data ,"'","",1,-1,1)
data = Replace (data ,"Chr(34)","",1,-1,1)
data = Replace (data ,"Chr(39)","",1,-1,1)
data = Replace (data ,"select","",1,-1,1)
data = Replace (data ,"join","",1,-1,1)
data = Replace (data ,"union","",1,-1,1)
data = Replace (data ,"where","",1,-1,1)
data = Replace (data ,"insert","",1,-1,1)
data = Replace (data ,"delete","",1,-1,1)
data = Replace (data ,"update","",1,-1,1)
data = Replace (data ,"like","",1,-1,1)
data = Replace (data ,"drop","",1,-1,1)
data = Replace (data ,"create","",1,-1,1)
data = Replace (data ,"modify","",1,-1,1)
data = Replace (data ,"rename","",1,-1,1)
data = Replace (data ,"alter","",1,-1,1)
data = Replace (data ,"cast","",1,-1,1)
guvenlik=data
end function
%>

<%
If trim(guvenlik(request.form("kullanici_adi")))="" then
Response.Write
"







UYARI:

Kullanıcı
adınızı yazınız!

color=#e45f0e>Geri Dön
"
response.end
end if

If trim(guvenlik(request.form("sifre")))="" then
Response.Write
"







UYARI:

Şifrenizi
yazınız!

color=#e45f0e>Geri
Dön
"
response.end
end if
%>
<%
Set rs = Server.CreateObject("Adodb.Recordset")
Sorgu = "select id, kullanici_adi, sifre from uyeler where kullanici_adi =
'" &
guvenlik(request.form("kullanici_adi")) & "' and sifre = '" &
guvenlik(Request.form
("sifre")) & "'"
rs.Open Sorgu, Baglanti, 1, 3
If rs.BOF And RS.EOF Then
Response.Write
"







UYARI:

Kullanıcı
adınız ya da şifreniz yanlıştır!

href='javascript:history.back(1)'>color=#e45f0e>Geri Dön
"
Else
Session("durum") = "giris_yapmis"
Session("id") = rs("id")
Session("kullanici_adi") = rs("kullanici_adi")
Response.Cookies("TekTech")("kullanici_adi") = Request.Form("kullanici_adi")
Response.Cookies("TekTech")("sifre") = Request.Form("sifre")
Response.Cookies("TekTech").Expires = Now()+15
Response.Redirect "giris_sayfasi.asp"
End If
%>

http://giris_sayfasi.asp
<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/db.mdb")
%>

<% if Session("durum")="giris_yapmis" then %>

<%
Set rs = Server.CreateObject("Adodb.Recordset")
id = Session("id")
Sorgu = "Select * from uyeler where id= " & id
rs.Open Sorgu, Baglanti, 1, 3
if rs.eof then
Response.Write "
Üye bilgisi bulunmamaktadır!
"
else
%>
Kullanıcı Adı: <%=rs("kullanici_adi")%>
ÇIKIŞ YAP
<% end if %>

<%else %>









UYARI:

Lütfen giriş yapınız!

Anasayfa

<% end if %>

http://cikis_yap.asp
<%
Session("durum")=""
Response.Cookies("TekTech")("kullanici_adi")=""
Response.Cookies("TekTech")("sifre")=""
Session("id")=""
%>
<% Response.Redirect "giris.asp" %>.
Sayfa başına dön Aşağa gitmek
HunteR_KonT
™Administrator™
™Administrator™
HunteR_KonT

Erkek
Yaş : 30 Kayıt tarihi : 05/08/08 Mesaj Sayısı : 859

Paylaşımlar:
uyelik sistemi yapımı Img_left1000/1000uyelik sistemi yapımı Empty_bar_bleue  (1000/1000)
Mutluluk:
uyelik sistemi yapımı Img_left1000/1000uyelik sistemi yapımı Empty_bar_bleue  (1000/1000)
uyelik sistemi yapımı Vide
MesajKonu: Geri: uyelik sistemi yapımı uyelik sistemi yapımı Icon_minitime28.10.08 18:19
paylaşım için saol.
Sayfa başına dön Aşağa gitmek
HunteR_KonT
™Administrator™
™Administrator™
HunteR_KonT

Erkek
Yaş : 30 Kayıt tarihi : 05/08/08 Mesaj Sayısı : 859

Paylaşımlar:
uyelik sistemi yapımı Img_left1000/1000uyelik sistemi yapımı Empty_bar_bleue  (1000/1000)
Mutluluk:
uyelik sistemi yapımı Img_left1000/1000uyelik sistemi yapımı Empty_bar_bleue  (1000/1000)
uyelik sistemi yapımı Vide
MesajKonu: Geri: uyelik sistemi yapımı uyelik sistemi yapımı Icon_minitime18.01.09 10:03
fatih vural bunu koydu bizim sitenin başına ama olmuyor :S kodda hata war galiba.
Sayfa başına dön Aşağa gitmek

uyelik sistemi yapımı

 Önceki başlık Sonraki başlık Sayfa başına dön
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var: Bu forumdaki mesajlara cevap veremezsiniz
Türkiye'nin En Mutlu Forumu :: Webmaster :: Web dizayn -
Powered by phpBB © phpBB Group
Copyright © 2009 By Skip & The Vural


Sitemizden Yararlanmak İçin

Lütfen Üye Olun..


Hoşgeldin
İndiregandi Yapıcan demi çakal?
Üye olalım yağları eridelim!
Yeterince Mutlu Foruma Üye Olmak İçin Tıklayalım lütfen
forum kurmak | ©phpBB | Bedava yardımlaşma forumu | Suistimalı göstermek | Son tartışmalar