Asp'de Bulunduğum Sayfanın Url Adresini Veren Kod?
-
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
-
ş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) -
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.
-
split ile de yapabilirsin 404; den sonrasını alman yeter.
-
Replace daha performanslı föxcüm :/