• 16-10-2010, 18:20:13
    #1
    burada bir admın kontrol sayfası yapmak ıstedım netten buldum bır tane fakat kullanıcı adı ve şifremı gırınce bnm istedıgım sayfaya yonlendırmesını nasıl yaparım ?

    yani user pass girince ornek deneme.asp ye yonlenmesını ıstıyorum.


    http://www.tezelgayrimenkul.com/panel/admin.asp
  • 16-10-2010, 18:21:47
    #2
    Garfield41 adlı üyeden alıntı: mesajı görüntüle
    burada bir admın kontrol sayfası yapmak ıstedım netten buldum bır tane fakat kullanıcı adı ve şifremı gırınce bnm istedıgım sayfaya yonlendırmesını nasıl yaparım ?

    yani user pass girince ornek deneme.asp ye yonlenmesını ıstıyorum.


    http://www.tezelgayrimenkul.com/panel/admin.asp
    response.redirect "yonleneceksayfa.asp"
  • 16-10-2010, 18:23:11
    #3
    Bu kodları admin.asp olarak kaydettım baska sayfa yok suan /panel ın ıcınde.

    Alıntı
    <%@ Language="VBScript.Encode" CODEPAGE="1252"%>
    <%
    Response.Buffer = True

    gorevli = "*****"
    sifre = "****"
    Function ayikla(temiz)
    temiz=Replace(temiz,"`","",1,-1,1)
    temiz=Replace(temiz,"=","",1,-1,1)
    temiz=Replace(temiz,"&","",1,-1,1)
    temiz=Replace(temiz,"%","",1,-1,1)
    temiz=Replace(temiz,"!","",1,-1,1)
    temiz=Replace(temiz,"#","",1,-1,1)
    temiz=Replace(temiz,"<","",1,-1,1)
    temiz=Replace(temiz,">","",1,-1,1)
    temiz=Replace(temiz,"*","",1,-1,1)
    temiz=Replace(temiz,"/","",1,-1,1)
    temiz=Replace(temiz,"\","",1,-1,1)
    temiz=Replace(temiz,"And","",1,-1,1)
    temiz=Replace(temiz,"","",1,-1,1)
    temiz=Replace(temiz,Chr(34),"",1,-1,1)
    temiz=Replace(temiz,Chr(39),"",1,-1,1)
    ayikla = temiz
    End Function
    if ayikla(Request.QueryString("giris"))="yapti" then
    admin=ayikla(request.form("admin"))
    sifre2=ayikla(request.form("sifre"))
    if admin=gorevli and sifre2=sifre then
    session(gorevli) = sifre
    Else
    Response.write "Hata bilgiler gecerli degil!"
    Response.End
    End if
    End if
    If session(gorevli) <> sifre Then
    Call login
    Response.End
    End if
    Sub login
    %>
    <table bgcolor="#6D8796" width="100%" height="100%" border="0" cellspacing="0" cellpadding="0" class="tablo_cevre">
    <tr>
    <td>
    <p align="center"><font class="tablo_font">Admin Panel</font></p>
    <div align="center">
    <form name="form1" method="post" action="?giris=yapti">
    <font class="tablo_font">Administrator : </font><input type="text" name="admin" class="form"><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    <font class="tablo_font">Password : </font> <input type="password" name="sifre" class="form"><br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;&nbsp;&nbsp;&nbsp;
    <INPUT TYPE="submit" VALUE="&nbsp;&nbsp;&nbsp;&nbsp;Login&nbsp;&nbsp;&n bsp;&nbsp;" class="buton">
    </form>
    </div>
    </td>
    </tr>
    </table>
    <% End sub %>
  • 16-10-2010, 18:24:14
    #4
    Alıntı
    response.redirect "yonleneceksayfa.asp"
    bunu nereye eklemem gerekiyo ?
  • 16-10-2010, 19:04:48
    #5
    Garfield41 adlı üyeden alıntı: mesajı görüntüle
    bunu nereye eklemem gerekiyo ?
    if admin=gorevli and sifre2=sifre then
    session(gorevli) = sifre
    response.redirect "yonleneceksayfa.asp"
    response.end


    Bu şekilde ekleyebilirsiniz.

    Kolay gelsin.
  • 16-10-2010, 22:41:50
    #6
    makrohizmet adlı üyeden alıntı: mesajı görüntüle
    if admin=gorevli and sifre2=sifre then
    session(gorevli) = sifre
    response.redirect "yonleneceksayfa.asp"
    response.end


    Bu şekilde ekleyebilirsiniz.

    Kolay gelsin.
    tsk ederım saolasın hallettım..
  • 17-10-2010, 18:43:00
    #7
    http://www.tezelgayrimenkul.com/panel/

    ie de niçin ustteki resim görünmüyor diğer tarayıcılarda görünüyor.
  • 17-10-2010, 21:39:19
    #8
    Garfield41 adlı üyeden alıntı: mesajı görüntüle
    http://www.tezelgayrimenkul.com/panel/

    ie de niçin ustteki resim görünmüyor diğer tarayıcılarda görünüyor.
    resmin yolunu kontrol et... bir kaç kez benimde başıma geldi... zaten böyle bir resimde yok. http://www.tezelgayrimenkul.com/1.jpg