Şimdi Ara

db oluşturma

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

adidas ULTIMASHOW 2.0 Kadın Spor Ayakkabı, linen green, 38 https://www.amazon.com.tr/dp/B0D2RQBJDB 2 sa. önce paylaşıldı

adidas Unisex Yetişkin UCL CLB Top BRBLUE/WHITE/SILVMT 5 https://www.amazon.com.tr/dp/B0DNBG541N 2 sa. önce paylaşıldı

PUMA Erkek/Unisex Puma Club II SL-PUMA Black-PUMA Gold Low Boot 43 https://www.amazon.com.tr/dp/B0D6VX4D9R 2 ay önce paylaşıldı

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir - 2 Masaüstü

5 sn

5
Cevap

0
Favori

512
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

0 oy

Öne Çıkar

Cevapla

Sayfa: 1

Giriş

Mesaj

//giris.asp 
  <% if Session("durum")="giris_yapmis" then %> 
  <% Response.Redirect "giris_sayfasi.asp" %> 
   
  <%else %> 
  <FORM name=loginform action="giris_kontrol.asp" method=post> 
  <FONT face=verdana size=2>Kullanıcı Adı:</FONT></td><td><input name=kullanici_adi></td></tr> 
  <tr><td><FONT face=verdana size=2>Şifre:</FONT></td><td><input type=password name=sifre></td></tr> 
  <tr><td><center><input type=submit value=Gönder></center></FORM> 
  <% end if %> 
   
  //giris_kontrol.asp 
  <%  
  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  
  "<center><br><br><br><br><br><br><br><b>UYARI:</b><br><br>Kullanıcı  
  adınızı yazınız!<br><br><a href='javascript:history.back(1)'><FONT  
  color=#e45f0e><u>Geri Dön</u></a></b></center>"  
  response.end  
  end if  
   
  If trim(guvenlik(request.form("sifre")))="" then  
  Response.Write  
  "<center><br><br><br><br><br><br><br><b>UYARI:</b><br><br>Şifrenizi  
  yazınız!<br><br><a href='javascript:history.back(1)'><FONT  
  color=#e45f0e><u>Geri  
  Dön</u></a></b></center>"  
  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  
  "<center><br><br><br><br><br><br><br><b>UYARI:</b><br><br>Kullanıcı  
  adınız ya da şifreniz yanlıştır!<br><br><a  
  href='javascript:history.back(1)'><FONT  
  color=#e45f0e><u>Geri Dön</u></a></b></center>"  
  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  
  %> 
   
  //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 "<center>Üye bilgisi bulunmamaktadır!</center>" 
  else 
  %> 
  <b>Kullanıcı Adı:</b> <%=rs("kullanici_adi")%> 
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=14254667&url=cikis_yap.asp" data-href="cikis_yap.asp"><b>ÇIKIŞ YAP</b></a> 
  <% end if %> 
   
  <%else %> 
  </p> 
  <center><br><br><br><br><br><br><br><b>UYARI:</b><br><br>Lütfen giriş yapınız!<br><br><a href='giris.asp'><FONT color=#e45f0e><u>Anasayfa</u></a></b></center> 
  <% end if %> 
   
  //cikis_yap.asp 
  <% 
  Session("durum")=""  
  Response.Cookies("TekTech")("kullanici_adi")="" 
  Response.Cookies("TekTech")("sifre")="" 
  Session("id")=""  
  %> 
  <% Response.Redirect "giris.asp" %>

Arkadaşlar Yukarda Yazan SCriptin bana db sini yapabilecek bir arkadaş varmı ? yeni başlıyorumda ben yaptım bitanem ama sorun çıktı

id ye otomatik sayı verdim
kullanici_adi not
sifre not

dedim ama olmadı hata verdi giris_kontrol.asp de 64. satırda hata verdi. Şimdiden Tşkler

_____________________________

Drupal Developer

_____________________________

¨°oO bir bitene çare yok birde yitip gidene asla inanmamalı hep varım diyene

_____________________________

Drupal Developer

_____________________________

Drupal Developer

ben kodları denememiştim ama çok yanlış var düzelttim buyur .

giris.asp
<% if Session("durum")="giris_yapmis" then %>
<% Response.Redirect "giris_sayfasi.asp" %>

<%else %>
<FORM name=loginform action="giris_kontrol.asp" method=post>
<FONT face=verdana size=2>Kullanici Adi:</FONT></td><td><input name=kullanici_adi></td></tr>
<tr><td><FONT face=verdana size=2>Sifre:</FONT></td><td><input type=password name=sifre></td></tr>
<tr><td><center><input type=submit value=Gönder></center></FORM>
<% end if %>

giris_kontrol.asp
<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
%>
<%
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("sifre")))="" then
with response
.write "<script language=javascript>"
.write "alert('Yanlış Şifre !')"
.write "</script>"
.write "<script language=javascript>"
.write "history.go(-1)"
.write "</script>"
end with
Response.End()
end if
%>
<%
Set uye = Server.CreateObject("Adodb.Recordset")
Sql="Select * From uyeler where kullanici_adi = '"&guvenlik(Request.Form("kullanici_adi"))&"' and sifre = '"&guvenlik(Request.Form("sifre"))&"'"
uye.open Sql,baglanti,1,3
if uye.eof then
with response
.write "<script language=javascript>"
.write "alert('Geçersiz kullanici adi veya sifre !')"
.write "</script>"
.write "<script language=javascript>"
.write "history.go(-1)"
.write "</script>"
end with
Response.End()
Else
Session("durum") = "giris_yapmis"
Session("id") = uye("id")
Session("kullanici_adi") = uye("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
%>

giris_sayfasi.asp
<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("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 "<center>Üye bilgisi bulunmamaktadır!</center>"
else
%>
<b>Kullanıcı Adı:</b> <%=rs("kullanici_adi")%>
<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=14296445&url=cikis_yap.asp" data-href="cikis_yap.asp"><b>ÇIKIŞ YAP</b></a>
<% end if %>
<%else %>
</p>
<center><br><br><br><br><br><br><br><b>UYARI:</b><br><br>Lütfen giriş yapınız!<br><br><a href='giris.asp'><FONT color=#e45f0e><u>Anasayfa</u></a></b></center>
<% end if %>

cikis_yap.asp
<%
Session("durum")=""
Response.Cookies("TekTech")("kullanici_adi")=""
Response.Cookies("TekTech")("sifre")=""
Session("id")=""
%>
<% Response.Redirect "giris.asp" %>

kodları (: kim yapmışsada biraz atmış kafadan gibi geldi.

_____________________________

¨°oO bir bitene çare yok birde yitip gidene asla inanmamalı hep varım diyene

Sayfa: 1

Benzer içerikler

Ip işlemleri

Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara

KAPAT X

%40
Kazan

%2,8
Kazan

%6,5
Kazan

%25
Kazan

%1,6
Kazan

%3,2
Kazan

%5,5
Kazan

%3,2
Kazan

%5
Kazan

%3,2
Kazan

%5
Kazan

%2
Kazan

Alışveriş Yaptıkça Para Kazan Harekete Geç »