• 17-08-2010, 22:39:19
    #1
    Asp ile yazdığım oyun sitemdeki
    http://www.siteadi.com/oyunuoyna.asp?Oyunid=87
    şelindeki url adreslerini
    http://www.siteadi.com/zuma-oyunu.html
    şu şekilde nasıl yapabilirim?
    yardımcı olacak arkadaşlara şimdiden teşekkür ederim...
  • 17-08-2010, 23:36:52
    #2
    Eposta Aktivasyonu Gerekmekte
    <%Function Bulut(strmiz)
    Str = strmiz
    Str = Replace(Str, Chr(199), "C" ,1,-1,0)
    Str = Replace(Str, "Ç", "c" ,1,-1,0)
    Str = Replace(Str, Chr(208), "G" ,1,-1,0)
    Str = Replace(Str, "G", "g" ,1,-1,0)
    Str = Replace(Str, Chr(214), "O" ,1,-1,0)
    Str = Replace(Str, "O" , "o" , 1,-1,0)
    Str = Replace(Str, "Ö", "o" ,1,-1,0)
    Str = Replace(Str, Chr(220), "U" ,1,-1,0)
    Str = Replace(Str, "Ü", "u" ,1,-1,0)
    Str = Replace(Str, Chr(221), "I" ,1,-1,0)
    Str = Replace(Str, "I", "i" ,1,-1,0)
    Str = Replace(Str, Chr(222), "S" ,1,-1,0)
    Str = Replace(Str, "S", "s" ,1,-1,0)
    Str = Replace(Str, Chr(231), "c" ,1,-1,0)
    Str = Replace(Str, "ç", "c" ,1,-1,0)
    Str = Replace(Str, Chr(240), "g" ,1,-1,0)
    Str = Replace(Str, "g", "g" ,1,-1,0)
    Str = Replace(Str, Chr(246), "o" ,1,-1,0)
    Str = Replace(Str, "ö", "o" ,1,-1,0)
    Str = Replace(Str, Chr(252), "u" ,1,-1,0)
    Str = Replace(Str, "ü", "u" ,1,-1,0)
    Str = Replace(Str, Chr(253), "i" ,1,-1,0)
    Str = Replace(Str, "i", "i" ,1,-1,0)
    Str = Replace(Str, Chr(254), "s" ,1,-1,0)
    Str = Replace(Str, "s", "s" ,1,-1,0)
    Str = Replace(Str, "<span>", "" ,1,-1,0)
    Str = Replace(Str, "</span>", "" ,1,-1,0)
    Str = Replace(Str, "&nbsp;", "-" ,1,-1,0)
    Str = Replace(Str, "+", "" ,1,-1,0)
    Str = Replace(Str, "'", "" ,1,-1,0)
    Str = Replace(Str, "´", "" ,1,-1,0)
    Str = Replace(Str, ",", "" ,1,-1,0)
    Str = Replace(Str ,";","" ,1,-1,0)
    Str = Replace(Str ,":","" ,1,-1,0)
    Str = Replace(Str ,"(","" ,1,-1,0)
    Str = Replace(Str ,")","" ,1,-1,0)
    Str = Replace(Str ,"[","" ,1,-1,0)
    Str = Replace(Str ,"]","" ,1,-1,0)
    Str = Replace(Str ,"/"," " ,1,-1,0)
    Str = Replace(Str ,"\","" ,1,-1,0)
    Str = Replace(Str ,"`","" ,1,-1,0)
    Str = Replace(Str ,"=","" ,1,-1,0)
    Str = Replace(Str ,"-"," " ,1,-1,0)
    Str = Replace(Str ,"&","" ,1,-1,0)
    Str = Replace(Str ,"%","" ,1,-1,0)
    Str = Replace(Str ,"+","" ,1,-1,0)
    Str = Replace(Str ,"!","" ,1,-1,0)
    Str = Replace(Str ,"#","" ,1,-1,0)
    Str = Replace(Str ,"<","" ,1,-1,0)
    Str = Replace(Str ,">","" ,1,-1,0)
    Str = Replace(Str ,"*","" ,1,-1,0)
    Str = Replace(Str ,"And","" ,1,-1,0)
    Str = Replace(Str ,"'","" ,1,-1,0)
    Str = Replace(Str ,Chr(34),"" ,1,-1,0)
    Str = Replace(Str ,Chr(39),"" ,1,-1,0)
    Str = Replace(Str ,".","" ,1,-1,0)
    Str = Replace(Str ,"?","" ,1,-1,0)
    Str = Replace(Str ,",","" ,1,-1,0)
    Str = Replace(Str ," ","-" ,1,-1,0)
    Str = Replace(Str ,"__","-" ,1,-1,0)
    Str = Replace(Str ,"--","-" ,1,-1,0)
    Str = Replace(Str ,"'" , "-",1,-1,0)
    Bulut = Str
    End Function%>

    <%
    <a href="oyunuoyna.asp?Oyunid=<%=data("id")%>&<%=Bulu t(data("oyunadi"))%>">Oyun Linki</a>
    %>
  • 18-08-2010, 00:08:09
    #3
    Üyeliği durduruldu
    Üstteki mesajla alakası yok...

    2 metot geçerli şu an bu iş için.
    404 hata sayfaları ile yapabilirsin. Yazımın sonunda 1-2 kod atacağım.
    Ya da siten windows 2008 server üzerinde kuruluysa, hosting sağlayıcından bedava olan url rewrite'ı iis.net'ten indirip kurmasını isteyebilirsin.

    -----
    Plesk panel kullanıyorsan, hosting ayarlarından hata sayfaları seçeneği var en altta, onu işaretle. Sonra filemanagerdan hata sayfalarını bul. Yukarıda tab olarak sıralanıyor normalde. Oradan 404leri url seçeneğini seçerek /404.asp olarak ayarla.

    <%
    Dim strURL
    Dim strBolum
    Set strURL = Request.ServerVariables("QUERY_STRING")
    strBolum = Split(strURL,"/")
    If strBolum("3") = "asp" Then
    'göster
    ElseIf strBolum("3") = "sql" Then
    'göster
    ElseIF strBolum("3") = "odbc" Then
    
    End If
    %>
    Deneyerek görebilirsin.
    Sunucu sana aitse daha kolay yaparsın.

    Takılırsan bu konuda sana detaylı şekilde yardımcı olacağım.
  • 18-08-2010, 00:17:12
    #4
    Eposta Aktivasyonu Gerekmekte
    Phantasm adlı üyeden alıntı: mesajı görüntüle
    Üstteki mesajla alakası yok...

    2 metot geçerli şu an bu iş için.
    404 hata sayfaları ile yapabilirsin. Yazımın sonunda 1-2 kod atacağım.
    Ya da siten windows 2008 server üzerinde kuruluysa, hosting sağlayıcından bedava olan url rewrite'ı iis.net'ten indirip kurmasını isteyebilirsin.

    -----
    Plesk panel kullanıyorsan, hosting ayarlarından hata sayfaları seçeneği var en altta, onu işaretle. Sonra filemanagerdan hata sayfalarını bul. Yukarıda tab olarak sıralanıyor normalde. Oradan 404leri url seçeneğini seçerek /404.asp olarak ayarla.

    <%
    Dim strURL
    Dim strBolum
    Set strURL = Request.ServerVariables("QUERY_STRING")
    strBolum = Split(strURL,"/")
    If strBolum("3") = "asp" Then
    'göster
    ElseIf strBolum("3") = "sql" Then
    'göster
    ElseIF strBolum("3") = "odbc" Then
    
    End If
    %>
    Deneyerek görebilirsin.
    Sunucu sana aitse daha kolay yaparsın.

    Takılırsan bu konuda sana detaylı şekilde yardımcı olacağım.


    Alakasımı yok ? Kullanıyorum şuanda.Önemli olan linkin adının - lerle yazılması ise yukardaki işlemde geçerlidir.

    404 hata sayfasıyla yapmakta doğrudur ama onu herkes yapamıyor.Arkadaşın ikinci mesaj olarak ben bunu beceremedim diye dönmemesi için bunu yazdım.Kolay gelsin.
  • 18-08-2010, 01:21:48
    #5
    Üyeliği durduruldu
    Arkadaşın dediği ile biraz alakasız olmuş önerdiğiniz. Ben yanlış kod demiyorum. Sadece isteğe oranla yanlış bir metot diyorum.
    İyi çalışmalar.
  • 18-08-2010, 02:41:46
    #6
    Üyeliği durduruldu
    Adres = Request.ServerVeriables("QUERY_STRING")

    Burada Adres isimli değişkene eşitlediğim kod, Bize o anki sayfanın adresini verecektir.

    404;http://localhost/ diye bir çıktı verir. Eğer localhost/oyun.htm gibi bir link vermişsek o zamanda sonuna /oyun.htm yazacaktır.

    Burada mantık, Split kullanarak " / " (taksim) karakterlerini bölüp "x" den başlayarak ne olduğunu bulmamızdır. Split kullanımını biliyorsanız çok kolay bir şekilde yapabilirsiniz. Örnek olması için:

    Adres = Request.ServerVeriables("QUERY_STRING")
    strTaksim = split(adres,"/") ' burada taksim işaretlerini bölüdük. Adresimiz şöyle olsun:

    404;http://localhost/oyun.htm

    Kırmızı kısım strTaksim(0) 'dır.
    Kahverengi olan / işareti strTaksim(1) 'dir
    Mavi Olan yer strTaksim(2) 'dir
    Siyah olan yer strTaksim(3) 'dür.

    Bizim işimiz 3. den (x) sonra başlıyor. Bundan sonra if - else - endif döngüsünü kullanacağız. Devam Edelim.

    if strTaksim(3) = "oyun.htm" then ' Eğer 3. / den sonra oyun.htm varsa
    Response.write "Oyun Bölümü" 'bunu yaz dedik. Burayı include file="xxxx.asp" ile belirtebiliriz.

    elseif strTaksim(3) = "Anasayfa" then 'yine 3. / dan sonra Anasayfa diye birşey varsa
    response.write "anasayfa burası" 'bunu yaz dedik. Bunun linkide http://localhost/Anasayfa gibi olur

    elseif strTaksim(4) = "Oyna" then 'burda 4. taksimi kullandım. Linkimiz http://localhost/deneme/Oyna ise yani 4.nün Oyna olması gerek
    response.write "oyna bölümü"


    else
    Response.write "Hiçbiri değilsede Bu uyarıyı göster
    end if

    ___________________________________

    Eğer, veritabanı ile işlem yapıyorsak değişecek kısım sadece SQL sorgusudur. Linkimiz, /oyun/12 olsun (12, veritabanındaki ID değeri). O zaman 404 sayfamıza:

    if strTaksim(3) = "oyun" then
    <!--#include file="oyunsayfasi.asp"--> oyunsayfasi.asp yi include ettik.

    bu sayfada ise,

    ' veritabanı bağlantısı yaptıktan sonra (Baglanti isimli değişken)

    set rs = server.createobject("ADODB.recordset")
    SQL = "select * from tablon where id="&strTaksim(4)&""
    rs.open sql,baglanti,1,3

    ' ve sayfaya yazdıracakların.

    Kırmızı olarak belirttiğim yerde biz genel olarak "id" yazarız. Anlamadığın yer olursa konu altından sorabilirsin. Umarım açıklayıcı olmuşumdur
  • 18-08-2010, 20:27:41
    #7
    herkese yardımlarından dolayı teşekkür ederim