Utilizamos variables del servidor como:
Request.ServerVariables("HTTP_HOST")
Request.ServerVariables("SCRIPT_NAME")
y posteriormente obtenemos todos los stings con
Request.QueryString vacio.
CODIGO
<% 'Codigo ofrecido por Tutores.org %>
<%
Dim sitio_web
sitio_web =Request.ServerVariables("HTTP_HOST")' Obtenemos el nombre del dominio
Dim pagina_web
pagina_web =Request.ServerVariables("SCRIPT_NAME")' Obtenemos el nombre del archivo o pagina
Dimquerystring
querystring=Request.QueryString' Obtenemos todas las variables
' Mezclamos todo
Dim url_web
url_web ="http://"& sitio_web
url_web = url_web & pagina_web
iflen(querystring)>0then
url_web = url_web&"?"&querystring
endif
Response.write url_web
%>
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Mostrar url actual con strings" href="http://www.tutores.org/codigo/636/" target="_blank">Mostrar url actual con strings</a>
<!-- Final enlace Tutores.org -->