Arkadaşlar bir yerde takıldım yardımcı olursanız sevinirim
kısaca anlatıyorum
kodlar şunlar
baglanti.asp
oturum kontrol.asp
yukleniyorum.asp
parola.asp
localhost ta hiçbir hata almıyorum
ama hosta verdiğim zaman aldığım hata şu
YARDIMCI OLURSANIZ SEVİNİRİM !
kısaca anlatıyorum
kodlar şunlar
baglanti.asp
Kod:
<%
'--------------------------------------
VeritabaniYolu="VeriTabani.mdb"
'---------------------------------------
Set adoCon=Server.CreateObject("AdoDb.Connection")
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\") & "\gencnet\db\uye.mdb "
%>
oturum kontrol.asp
Kod:
<%
'Eğer Kullanıcı Girişi Yapılmamışsa hata.asp ye yönlendireceğiz
IF NOT Session("Uyegirisi")="Tamamdir" THEN Response.Redirect("hata.asp")
%>
yukleniyorum.asp
Kod:
'Bu sayfa üyelere açık bir sayfadır
'Eğer Kullanıcı Girişi Yapılmamışsa Login.asp ye yönlendireceğiz
%>
<!--#include file="OturumKontrol.asp" -->
<!--#include file="Baglanti.asp" -->
<%
UyeNUMARASI=Session("Uyenumarasi")
'Giriş yaparken üyenin numarasını oturum bilgisine atamıştık
Set Uyebilgi = adoCon.Execute ("SELECT * FROM tbl_users WHERE idno="&UyeNUMARASI&";")
If Uyebilgi.EOF Then Response.Redirect("parola.asp")
'Oturumu açtıktan sonra kullanıcı oturumu kapatana kadar üyelere açık bölümlere girebilecektir
'Fakat diyelim Biz kullanıcıyı üye oturum açtığı sırada sildik yada banladık hala üyelere açık yerlere girebilir
'Onun için hersayfada veritanından kontrol edelimki banlamamiz yada silmemiz işe yarasın
KullanicinADISOYADI=Uyebilgi("AdSoyad")
Uyebilgi.Close
Set Uyebilgi = NOTHING
%>
parola.asp
Kod:
<%
'include yöntemi ile lazım olan dosyaları sayfada çalıştıralım
'include etmek sayfalarda tekrar tekrar aynı şeyleri yazacağımıza bir defa yazıp gerekli yerlerde kullanmamız için iyi olur
%>
<!--#include file="Baglanti.asp" -->
<!--#include file="Koruma.asp" -->
<!--#include file="Md5.asp" -->
<%
IF REQUEST.ServerVariables("REQUEST_METHOD")="POST" THEN
'Giriş Butonuna basılıp Post edlince Çalışacaktır
Dim KullaniciADI
Dim Parolasi
KullaniciADI=(Request.Form("user"))
Parolasi=(Request.Form("pass"))
'Kullanıcı adını ve parolasını tanımladık inputların name lerinden alır değerleri
'Sql injection lara karşı önlemimizide aldık
'Parola için MD5 şifremele yöntemini kullandık
Set Login = adoCon.Execute ("SELECT idno,Username,Password FROM tbl_users WHERE Username='"&KullaniciADI&"' AND Password='"&Parolasi&"';")
If Login.EOF Then
response.redirect "yanlis.asp" 'Kulanıcı Adı Ve Bilgileri Yanlış İse Hata.asp yönledniriyoruz
Else
Session("Uyegirisi")="Tamamdir" 'İstemciye oturum açtık Uyegirisi=Tamamdir dedik
Session("Uyenumarasi")=Login("idno") 'Üyeyi tanımak için idnumarasını alacağız
Response.Redirect("yukleniyorum.asp") 'Kullanıcı Adı Ve Bilgileri Doğru İse index.asp ye yonlendiriyoruz
End If
'Veritabanına bağlanıp tbl_users tablosuna girdik ve KullaniciADI&Parolasi sını sorgulattık eğer böyle bir bilgi varsa
'İstemciye oturum açtık ve Panel.asp ye yönlendirdik
END IF
%>
localhost ta hiçbir hata almıyorum
ama hosta verdiğim zaman aldığım hata şu
PHP:
Script error detected at line 29.
Source line: UyeNUMARASI=Session("Uyenumarasi")
Description: Nesne artık geçerli değil.
YARDIMCI OLURSANIZ SEVİNİRİM !