alsıcan
 
alsıcan

Kullanıcı

Yaş,Belirtilmedi
Bayan
Belirtilmedi
İstanbul
26 Ekim 2010
26 Ekim 2010
9 Puan
7 Mesaj

404.asp için yardim edermisiniz

<%
DbYolu="db.mdb"
vt_yol = Server.MapPath(""&DbYolu&"" )
set Connect=server.createobject("adodb.connection" )
Connect.open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & vt_yol & ";"

Set rs = Server.CreateObject("ADODB.Recordset" )
sql="select * from tablo order by id desc"
rs.open sql,Connect,1,3

gelen_adres = Request.ServerVariables("QUERY_STRING" )
adres_parcalari = Split(gelen_adres,"/" )
en_son_parca = adres_parcalari(Ubound(adres_parcalari ) )

Select Case en_son_parca

     Case "Anasayfa"
          Server.Execute("sayfa1.asp" )
          
     Case "cokacayipsayfa"
          Server.Execute("sayfa2.asp" )
          
     Case "enacayipsayfa"
          Server.Execute("sayfa3.asp" )
          
     Case Else
     
          Response.Redirect("default.asp" )

End Select
%>


bu yayinladigim kod 404.asp için hazirlamak istedigim sayfaya ait içinden cikamadigim konu kendimce yapmak istedigim yani Case içinde adlandirdigim "Anasayfa" istegini veri tabanindan istedigim an degistirebilecegim bir veri ile degistirmek yani case istegini veritananindan almak örnek <% case " rs("deger" )" %> bunu nasil yapabilirim acaba?





Noktahost.com - En Uygun Fiyatlar , Yüksek Kalite!

alsıcan
 
alsıcan

Kullanıcı

Yaş,Belirtilmedi
Bayan
Belirtilmedi
İstanbul
26 Ekim 2010
26 Ekim 2010
9 Puan
7 Mesaj

cevap verebilecekmisiniz

ProCracker
 
ProCracker

Süper Adayı

Yaş,Belirtilmedi
Bay
Belirtilmedi
İstanbul
7 Şubat 2008
7 Şubat 2008
58 Puan
41 Mesaj

Merhaba yolladiklarimi kendine göre uyarlarsin hostundan 404 sayfasini açik konuma getir.



Kod Alanı:

data.asp

Kod Alanı:
Function cevir(data ) 

data = Replace (data ,"i","i",1,-1,1 )
data = Replace (data ,"g","g",1,-1,1 )
data = Replace (data ,"ü","u",1,-1,1 )
data = Replace (data ,"s","s",1,-1,1 )
data = Replace (data ,"ö","o",1,-1,1 )
data = Replace (data ,"ç","c",1,-1,1 )
data = Replace (data ,"I","i",1,-1,1 )
data = Replace (data ,"G","g",1,-1,1 )
data = Replace (data ,"Ü","u",1,-1,1 )
data = Replace (data ,"S","s",1,-1,1 )
data = Replace (data ,"I","i",1,-1,1 )
data = Replace (data ,"Ç","c",1,-1,1 )
data = Replace (data ,"Ö","o",1,-1,1 )
data = Replace (data ," ","-",1,-1,1 )
cevir=data
End Function


404.asp
Kod Alanı:
istek1="anasayfa" 

istek2="haberdetay"
istek3="sayfalar"
istek4="iletisim"
istek5="hakkimizda"

Set istekurl = Request.ServerVariables("QUERY_STRING" )
istekbolum = Split(istekurl,"/" )

If istekbolum("3" ) = istek1 Then
    Server.Execute("default.asp" )
    
Elseif istekbolum("3" ) = istek2 Then
    Server.Execute("haberdetay.asp" )
    
Elseif istekbolum("3" ) = istek3 Then
    Server.Execute("sayfalar.asp" )
    
Elseif istekbolum("3" ) = istek4 Then
    Server.Execute("iletisim.asp" )
    
    Elseif istekbolum("3" ) = istek5 Then
    Server.Execute("sayfalar.asp" )
       
Else
Response.Write ("404 Aradiginiz sayfa bulunamadi" )
End if


bunlari hazirla daha sonra link çevirecegin sayfaya
Kod Alanı:
<!--#include file="data.asp"-->

Set istekurl = Request.ServerVariables("QUERY_STRING" )
istekbolum = Split(istekurl,"/" )

id = istekbolum(4 )

yapistir ve gerekli linklerin hepsini
http://www.website.net/urunler/"&rtd2("id" )&"/"&cevir(rtd2("baslik" ) )&".htm
olarak linklerini belirt

eger id 4. Slashtan sonra degilse id=istekbolum(3 ) yaparsin


Kolay gele

alsıcan
 
alsıcan

Kullanıcı

Yaş,Belirtilmedi
Bayan
Belirtilmedi
İstanbul
26 Ekim 2010
26 Ekim 2010
9 Puan
7 Mesaj

<%

DbYolu="db.mdb"
vt_yol = Server.MapPath(""&DbYolu&"" )
set Connect=server.createobject("adodb.connection" )
Connect.open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & vt_yol & ";"

Set rs = Server.CreateObject("ADODB.Recordset" )
sql="select * from tablo order by id desc"
rs.open sql,Connect,1,3

Dim istekurl
Dim istekbolum
Dim istek1
Dim istek2
istek1 = rs("link1" )
istek2 = rs("link2" )




Set istekurl = Request.ServerVariables("QUERY_STRING" )
istekbolum = Split(istekurl,"/" )

If istekbolum("3" ) = istek1 Then
    Server.Execute("default.asp" )

Elseif istekbolum("3" ) = istek2 Then
    Server.Execute("webklavye.asp" )




Else %>

alsıcan
 
alsıcan

Kullanıcı

Yaş,Belirtilmedi
Bayan
Belirtilmedi
İstanbul
26 Ekim 2010
26 Ekim 2010
9 Puan
7 Mesaj

bu denememde calismadi yokmu yardim edebilecek birisi

alsıcan
 
alsıcan

Kullanıcı

Yaş,Belirtilmedi
Bayan
Belirtilmedi
İstanbul
26 Ekim 2010
26 Ekim 2010
9 Puan
7 Mesaj

<%

DbYolu="db.mdb"
vt_yol = Server.MapPath(""&DbYolu&"" )
set Connect=server.createobject("adodb.connection" )
Connect.open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & vt_yol & ";"

Set rs = Server.CreateObject("ADODB.Recordset" )
sql="SELECT * FROM link", ObjConn , 3 , 1
rs.open sql,Connect,1,3

Dim istekurl
Dim istekbolum
Dim istek1
Dim istek2
istek1 = replace(rs("link1" )" ","-" )
istek2 = replace(rs("link2" )" ","-" )





Set istekurl = Request.ServerVariables("QUERY_STRING" )
istekbolum = Split(istekurl,"/" )

If istekbolum("2" ) = istek1 Then
    Server.Execute("index.asp" )

Elseif istekbolum("3" ) = istek2 Then
    Server.Execute("webklavye.asp" )


     ObjSettings.Close( )
     Set ObjSettings = Nothing

Else %>



bu seferde 1.1 500 hatasi aliyorum yardim edecek birisi yokmu allah askina

xmasterx
 
xmasterx

Pro Üye

Yaş,Belirtilmedi
Bay
Belirtilmedi
İstanbul
30 Mart 2009
30 Mart 2009
598 Puan
570 Mesaj

size microsoft tüm kafile ile gelse sorununuza çare bulamazki. pro cracker vermis iste hiç dendinizmi? denediyseniz ne hatasi verdi? neden olmadi bunlari yazmadikca dedigim gibi microsoft gelse yardim edemez.


Kod Alanı:

<% 

Dim istekurl
Dim istekbolum
Dim istek1
Dim istek2
Dim istek3
Dim istek4
Dim istek5
Dim istek6
istek1="bilgisayar"
istek2="klawye"
istek3="cep_teli"
istek4="laptop"
istek5="masa_ustu"
istek6="batarya"
Set istekurl = Request.ServerVariables("QUERY_STRING" )
istekbolum = Split(istekurl,"/" )

If istekbolum("3" ) = istek1 Then
    Server.Execute("bilgisayar.asp" )
Elseif istekbolum("3" ) = istek2 Then
    Server.Execute("klawye.asp" )

Elseif istekbolum("3" ) = istek3 Then
    Server.Execute("cep_teli.asp" )
Elseif istekbolum("3" ) = istek4 Then
    Server.Execute("laptop.asp" )
Elseif istekbolum("3" ) = istek5 Then
    Server.Execute("masa_ustu.asp" )
Elseif istekbolum("3" ) = istek6 Then
    Server.Execute("batarya.asp" )
Else

Response.Write ("<strong>Aradiginiz sayfa bulunamadi. Ana Sayfaya yönlendirileceksiniz lütfen bekleyiniz...</strong>" )
response.redirect "http://www.domain.com/"

End if
%>

Bu hata sayfaniz olacak. hosting kontrol panelden 404 hata sayfanizi bunu tanimlaniz gerek.
örnegin ana sayfanizda link verirken su sekilde olacak

<a href="/bilgisayar/">Bilgisayarlar</a>
<a href="/klawye/">klawyeler</a>
gibi...

istek1="bilgisayar"
istek2="klawye"
istek3="cep_teli"
istek4="laptop"
istek5="masa_ustu"
istek6="batarya"

bu bölümü kendinize göre degisrireceksiniz. querystringde ne kadar istek kullanacaksaniz o kadar artirip veya azaltacaksiniz. adres satirinda
http://domain.com/bilgisayar/ gibi bir istek oldugunda Server.Execute("bilgisayar.asp" ) dosyasi çagirilacaktir. tab burasinida kendi asp dosyanizin adi herneyse onu yazacaksiniz.

kodlari kopyalayip adini ne koyacaksaniz artik panelden 404 hata sayfasi olarak tanitacaksiniz. aslinda yazmayacaktimda baya bir beklemisiniz

akyuz6161
 
akyuz6161

Pro Üye

Yaş,Belirtilmedi
Bay
Belirtilmedi
İstanbul
31 Ağustos 2007
31 Ağustos 2007
133 Puan
105 Mesaj


Kod Alanı:

<% 

DbYolu="db.mdb"
vt_yol = Server.MapPath(""&DbYolu&"" )
set Connect=server.createobject("adodb.connection" )
Connect.open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & vt_yol & ";"

Set rs = Server.CreateObject("ADODB.Recordset" )
sql="select * from tablo order by id desc"
rs.open sql,Connect,1,3

sayfa = rs("sayfa" )
url = rs("url" )

gelen_adres = Request.ServerVariables("QUERY_STRING" )
adres_parcalari = Split(gelen_adres,"/" )
en_son_parca = adres_parcalari(Ubound(adres_parcalari ) )

Select Case en_son_parca

while not rs.eof
     Case ""& sayfa &""
          Server.Execute(""& url &"" )
rs.movenext:wend

     Case Else
      
          Response.Redirect("default.asp" )

End Select
%>

bu sadece bir örnek.tablo ayarlarini kafana göre yaptiktan sonra böylelikle çalistrabiirsin.

alsıcan
 
alsıcan

Kullanıcı

Yaş,Belirtilmedi
Bayan
Belirtilmedi
İstanbul
26 Ekim 2010
26 Ekim 2010
9 Puan
7 Mesaj

akyuz6161 soruma cevap verdigin için cok tesekkür ederim xmasterx ve ProCracker nickli arkadaslarada yardimlarindan dolayi minnettarim simdi cözmem gereken baska bir sorunum var HTTP/1.1 500 Sunucu Hatasi arastirmalarimda sorun kodlama ama enson kendi kodlamalarimda bu hatayi almaya basladim ve akyuz6161 nicli kardesin kodundada sanki degisen hiç bir sey yok gibi hata degismeden devam ediyor bakalim ne olacak: ) ) ) )

alsıcan
 
alsıcan

Kullanıcı

Yaş,Belirtilmedi
Bayan
Belirtilmedi
İstanbul
26 Ekim 2010
26 Ekim 2010
9 Puan
7 Mesaj


Kod Alanı:

<% 

DbYolu="db.mdb"
vt_yol = Server.MapPath(""&DbYolu&"" )
set Connect=server.createobject("adodb.connection" )
Connect.open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & vt_yol & ";"

Set rs = Server.CreateObject("ADODB.Recordset" )
sql="select * from tablo order by id desc"
rs.open sql,Connect,1,3

sayfa = rs("sayfa" )
url = rs("url" )

gelen_adres = Request.ServerVariables("QUERY_STRING" )
adres_parcalari = Split(gelen_adres,"/" )
en_son_parca = adres_parcalari(Ubound(adres_parcalari ) )

Select Case en_son_parca

while not rs.eof
     Case ""& sayfa &""
          Server.Execute(""& url &"" )
rs.movenext:wend

     Case Else
       
          Response.Redirect("default.asp" )

End Select
%>


bu kodlamadan sonra http 1.1 500 sunucu hatasi aliyorum sorun ne olabilir acaba

Üyelik Giriş

Online Durum

Webhocam'da şu anda toplam 58735 kişi online , bugüne kadar en çok 44931 kişi 11/03/2016 tarihinde ziyaret etti. Üyelerimiz toplam 147490 mesaj attılar. Toplamda 137762 adet kayıtlı kullanıcımız bulunmaktadır.