Şimdi Ara

Şu kodlarda hata varmı...

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
3 Misafir - 3 Masaüstü
5 sn
2
Cevap
0
Favori
410
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • Arkadaşlar iki saattir kodları artık farklı şekillerde deneyerek yazıyorum.Yine hata alıyorum.Kafayı yiyeceğim.Şu kodlara bir bakın hata varmı...PWS de çalışıyor.Hostta çalışmıyor yaa....

    <%response.buffer = True%>
    <!-- #include file="db.asp"-->

    <%
    function tech(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 ,"/","",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)
    tech=data
    end function
    %>
    <%
    mail=tech(request.form("mail"))
    sifre=tech(request.form("sifre"))


    set igiris=Server.CreateObject("Adodb.Recordset")
    sql ="select * from editor where mail='"& mail &"'"
    igiris.open sql,baglanti,1,3

    if not igiris.eof then

    if igiris("sifre")=sifre then

    if igiris("onay")="1" then

    session("kekle") = igiris("kekle")
    session("kduzenle") = igiris("kduzenle")
    session("ksil") = igiris("ksil")
    session("sekle") = igiris("sekle")
    session("sduzenle") = igiris("sduzenle")
    session("ssil") = igiris("ssil")
    session("id") = igiris("id")
    session("girdimi") = "evet"
    response.redirect "default.asp"

    else
    response.write "Editörlüğünüz henüz onaylanmamış.Üye olduktan en geç 24 saat içinde size bilgi e-postası gelecek.Eğer e-posta gelmediyse lütfen bizimle iletişime geçiniz."
    end if


    else
    response.write "Hatalı şifre"
    end if

    else
    response.write "Hatalı Kullanıcı Adı"
    end if
    %>







  • Nerde hata veriyor bir bunu dene istersen...

    mail=request.form("mail")
    sifre=request.form("sifre")

    set igiris=Server.CreateObject("Adodb.Recordset")
    sql ="select * from editor where mail="&mail
    igiris.open sql,baglanti,1,3

    birde böle dene bakalım..
  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.