folder Tahribat.com Forumları
linefolder Asp - Php - Cgi - Perl
linefolder Asp'de Bulunduğum Sayfanın Url Adresini Veren Kod?



Asp'de Bulunduğum Sayfanın Url Adresini Veren Kod?

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    mavi-ay
    mavi-ay's avatar
    Kayıt Tarihi: 29/Nisan/2011
    Erkek

    Arkadaşlar, asp bir sayfada örnek olarak:

     

    http://localhost/urun/425-boncuk-kolye.html?sozler=&sayfa=3

     

    bu sayfada iken sayfanın adresini veren asp kodu istiyorum arkadaşlar. ASP.Net değildir.

    Denediklerim:

     

     

     

    1.denediğim, olmadı:

     

    <%

    Thispage = Request.ServerVariables("script_name") & "?" & Request.Querystring

    %>

     

    <%= Thispage  %>

     

    Çıkan url: /404.asp?404;http://localhost:80/sozler/425-boncuk-kolye.html?sozler=&sayfa=3

    İstediğim: http://localhost/sozler/425-boncuk-kolye.html?sozler=&sayfa=3

     

     

     

    2.denediğim, olmadı:

     

    <%

    Thispage = Request.ServerVariables("script_name") & "?" & Request.Querystring & Request.Form

    %>

     

    <%= Thispage  %>

     

    Çıkan url: /404.asp?404;http://localhost:80/sozler/425-boncuk-kolye.html?sozler=&sayfa=3

    İstediğim: http://localhost/sozler/425-boncuk-kolye.html?sozler=&sayfa=3

     

     

     

     

    3.denediğim, olmadı:

     

    <%

    function curPageURL()

     dim s, protocol, port

     

     if Request.ServerVariables("HTTPS") = "on" then 

       s = "s"

     else 

       s = ""

     end if  

     protocol = strleft(LCase(Request.ServerVariables("SERVER_PROTOCOL")), "/") & s 

     if Request.ServerVariables("SERVER_PORT") = "80" then

       port = ""

     else

       port = ":" & Request.ServerVariables("SERVER_PORT")

     end if  

     curPageURL = protocol & "://" & Request.ServerVariables("SERVER_NAME") &_ 

                  port & Request.ServerVariables("SCRIPT_NAME")

    end function

    function strLeft(str1,str2)

     strLeft = Left(str1,InStr(str1,str2)-1)

    end function

    %>

     

    <%

    response.write(curPageURL() & "?" & Request.ServerVariables("QUERY_STRING"))

    %>

     

    Çıkan url: http://localhost/404.asp?404;http://localhost:80/urun/425-boncuk-kolye.html?sozler=&sayfa=3

    İstediğim: http://localhost/sozler/425-boncuk-kolye.html?sozler=&sayfa=3

     
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    pesimistzombie
    pesimistzombie's avatar
    Kayıt Tarihi: 14/Haziran/2006
    Erkek

    şu şekilde dener misin;

    response.write Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME")&"?"&Request.ServerVariables("QUERY_STRING") 

    edit: gerçi 404 yönlendirmesi yapıyorsan sadece Request.ServerVariables("QUERY_STRING") bu yeterlidir sadece replace ile 404; ve :80 karakterlerini temizle yeterli. 

    edit 2: tam olarak şöyle işe yarar;

    StrQuery=Request.ServerVariables("QUERY_STRING")
    StrQuery=Replace(StrQuery,"404;","")
    StrQuery=Replace(StrQuery,":80","")
    Response.write(StrQuery) 


    :|
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    mavi-ay
    mavi-ay's avatar
    Kayıt Tarihi: 29/Nisan/2011
    Erkek

    pesimistzombie bunu yazdı:
    -----------------------------

    şu şekilde dener misin;

    response.write Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME")&"?"&Request.ServerVariables("QUERY_STRING") 

    edit: gerçi 404 yönlendirmesi yapıyorsan sadece Request.ServerVariables("QUERY_STRING") bu yeterlidir sadece replace ile 404; ve :80 karakterlerini temizle yeterli. 

    edit 2: tam olarak şöyle işe yarar;

    StrQuery=Request.ServerVariables("QUERY_STRING")
    StrQuery=Replace(StrQuery,"404;","")
    StrQuery=Replace(StrQuery,":80","")
    Response.write(StrQuery) 


    -----------------------------

     

    Elinize sağlık hocam,

    StrQuery=Request.ServerVariables("QUERY_STRING")
    StrQuery=Replace(StrQuery,"404;","")
    StrQuery=Replace(StrQuery,":80","")
    Response.write(StrQuery) 

    tam istediğim sonucu verdi. Çok teşekkür ederim.

  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    FOXXLY
    FOXXLY's avatar
    Kayıt Tarihi: 19/Haziran/2006
    Erkek

    split ile de yapabilirsin 404; den sonrasını alman yeter.


    kelimeler albayım bazı anlamlara gelmiyor.
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    pesimistzombie
    pesimistzombie's avatar
    Kayıt Tarihi: 14/Haziran/2006
    Erkek

    Replace daha performanslı föxcüm :/


    :|
Toplam Hit: 2997 Toplam Mesaj: 5