• 07-09-2010, 13:39:06
    #1
    Kimlik doğrulama veya yönetimden onay bekliyor.
    Merhaba arkadaşlar uzun süredir takıldıgım bir konu deli etcek beni 404 sef mantıgını yapmak istiyorum internetten birkaç kod buldum ama sayfa sureklı bulunamadı hatası verıyor.

    404.asp sayfası
    <% 
    Dim adresurl 
    Dim secilialan  
    
    alan1="kategori"
    alan2="urun"
    alan3="anasayfa"
    
    
    On error Resume Next 
    Set adresurl = Request.ServerVariables("QUERY_STRING")  
    secilialan = Split(adresurl,"/") 
    
    If Lcase(secilialan("3")) = alan1 Then 
    Server.Execute("kategori.asp") 
    
    Elseif Lcase(secilialan("3")) = alan2 Then 
    Server.Execute("urun.asp")
    
    Elseif Lcase(secilialan("3")) = alan3 Then 
    Server.Execute("default.asp")
    %>
    
    <% Else%> 
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
    <title>404 - Sayfa Bulunamadı.</title>
    
    <style type="text/css">
    <!--
    body,td,th { font-family: Arial, Helvetica, sans-serif; font-size: 11px; color: #999; }
    body { background-color: #fff; margin: 0px; }
    
    #error { text-align:center; width:300px; margin:0px auto; padding-top:150px; }
    .number { font-size:60px; color:#999999; }
    .dark { color:#000; }
    
    a:link { color: #FF6600; text-decoration: underline; }
    a:visited { text-decoration: underline; color: #FF6600; }
    a:hover { text-decoration: none; color: #FF9900; }
    a:active { text-decoration: underline; color: #FF9900; }
    -->
    </style></head>
    
    <body>
    <div id="error">HATA<br />
    <span class="number">404</span><br />
    	<span class="dark"><font size="3">Üzgünüz, Sayfa Bulunamadı.</font></span><p><span class="style3">
    	<font size="2">Lütfen Url adresini kontrol ediniz.</font></span></p>
    	<p><span class="style3">.</span></div>
    </body>
    </html>
    <%End if%>
    Kategori.asp sayfası
    <%	
    id = Request.QueryString("id")		
    Set title =  Server.CreateObject("adodb.recordset")
    sql=("select * from kategori where id="& id &" ")
    title.open sql , baglanti , 1,3
    %>
    
    <a href="urun/<%=title("id")%>-<%=cevir(title("ad"))%>.html">
    bu şekilde de link yapım var ama hata verıyor 404 hatası , nerede hata yapıyorum
  • 07-09-2010, 13:40:18
    #2
    Üyeliği durduruldu
    Hata sayfasını 404.asp olarak belirtiyormusunuz ?
  • 07-09-2010, 13:42:15
    #3
    ProDAV adlı üyeden alıntı: mesajı görüntüle
    Hata sayfasını 404.asp olarak belirtiyormusunuz ?
    evet 404.asp olarak ayarladım , urun.asp?id=32 olarak çalışıyor 404 de bı hata yapıorum
  • 07-09-2010, 15:47:20
    #4
    Üyeliği durduruldu
    linkleme şeklin .com/kategori/1/kattadi.html ise.
    id nin bulunduğu yer 4. sıra

    Alıntı

    <%
    UST=Request.QueryString
    A=Split(UST,"/")
    ID=A(4)

    Set title = Server.CreateObject("adodb.recordset")
    sql=("select * from kategori where id="& id &" ")
    title.open sql , baglanti , 1,3
    %>
  • 07-09-2010, 20:52:15
    #5
    Üyeliği durduruldu
    <a href="http://localhost/urun/<%=title("id")%>-<%=cevir(title("ad"))%>.html">
    olarak dene birde sonra linke tıkla. Yni 4. slash tan sonra ID gelmesi lazım

    Urundetay sayfandaki seo yu da aşağıdakine göre düzenlersen çalışır

    degisken      = Request.QueryString 
    gelenlink_bol = split(degisken, "/")
    uzanti_bol    = split(gelenlink_bol(4), "-")
    
    
    set Rs = server.CreateObject("ADODB.recordset")
    sql="select * from URUN where UrunID="&uzanti_bol(0)
    Rs.open sql,Conn,1,3
  • 13-09-2010, 13:16:12
    #6
    ShekerChi adlı üyeden alıntı: mesajı görüntüle
    linkleme şeklin .com/kategori/1/kattadi.html ise.
    id nin bulunduğu yer 4. sıra
    link bu sekilde olacak hocam domain.com/id-isim.html
  • 13-09-2010, 13:19:19
    #7
    404.asp kodları
    <!--#include file="config.asp"-->
    <% 
    Dim adresurl 
    Dim secilialan  
    
    alan1="kategori"
    alan2="urun"
    alan3="anasayfa"
    
    
    On error Resume Next 
    Set adresurl = Request.ServerVariables("QUERY_STRING")  
    secilialan = Split(adresurl,"/") 
    
    If Lcase(secilialan("3")) = alan1 Then 
    Server.Execute("kategori.asp") 
    
    Elseif Lcase(secilialan("3")) = alan2 Then 
    Server.Execute("urun.asp")
    
    Elseif Lcase(secilialan("3")) = alan3 Then 
    Server.Execute("default.asp")
    %>
    
    <% Else%> 
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
    <title>404 - Sayfa Bulunamadı.</title>
    
    <style type="text/css">
    <!--
    body,td,th { font-family: Arial, Helvetica, sans-serif; font-size: 11px; color: #999; }
    body { background-color: #fff; margin: 0px; }
    
    #error { text-align:center; width:300px; margin:0px auto; padding-top:150px; }
    .number { font-size:60px; color:#999999; }
    .dark { color:#000; }
    
    a:link { color: #FF6600; text-decoration: underline; }
    a:visited { text-decoration: underline; color: #FF6600; }
    a:hover { text-decoration: none; color: #FF9900; }
    a:active { text-decoration: underline; color: #FF9900; }
    -->
    </style></head>
    
    <body>
    <div id="error">HATA<br />
    <span class="number">404</span><br />
    	<span class="dark"><font size="3">Üzgünüz, Sayfa Bulunamadı.</font></span><p><span class="style3">
    	<font size="2">Lütfen Url adresini kontrol ediniz.</font></span></p>
    	<p><span class="style3">.</span></div>
    </body>
    </html>
    <%End if%>
    urundetay kodları
    <%	
    
    degisken      = Request.QueryString 
    gelenlink_bol = split(degisken, "/")
    uzanti_bol    = split(gelenlink_bol(4), "-") 
    
    
    Set deneme =  Server.CreateObject("adodb.recordset")
    sql="select * from bataryalar where id="& uzanti_bol(0) &" "
    deneme.open sql , baglanti , 1,3
    %>
    maalesef sayfayı bulamıyor , yardımlarınızı bekliorum
  • 13-09-2010, 13:25:10
    #8
    🌐 𝘀𝗼𝗰𝗶𝗳𝗹𝘆.𝗰𝗼𝗺
    404.asp de

    secilialan = Split(adresurl,"/") şu kodun altına

    Response.Write secilialan(3)
    Response.End

    yazıp ne çıktığını buraya yazarmısın
  • 13-09-2010, 13:40:29
    #9
    tolgasen adlı üyeden alıntı: mesajı görüntüle
    404.asp de

    secilialan = Split(adresurl,"/") şu kodun altına

    Response.Write secilialan(3)
    Response.End

    yazıp ne çıktığını buraya yazarmısın
    Ekrana line diye bır yazı cıktı hocam