subdominios dinamicos

andresalrevez · #1 (**permalink**) 24/10/2003, 01:20

como puedo hacer para que cuando alguien escriba un subdominio, yo pueda recibir este como parametro para consultarlo en la base de datos?

ejem: yo tengo un dominio www.amarillas.com si alguien escribe www.graficas.amarillas.com, yo pueda recibir "graficas" para poder buscarlo dentro de la base de datos, y redireccionarlo a otra pagina.

para no tener que registrar un subdominio para cada empresa, pq son muchas.

algo como lo que hacen en la pagina: www.esgay.com (perdon por el ejemplo, pero fue el unico que encotre).
si uds escriben www.juan.esgay.com (o cualquier otro subdominio) ese sitio toma la palabra juan, y la pone en toda la pagina.

gracias

AlZuwaga · #2 (**permalink**) 24/10/2003, 13:19

Se me ocurrió algo así. Funciona definiendo la variable URL con el ejemplo que pasaste, pero descomentando la siguiente línea debería funcionar bien en un caso real:

<%
URL = "www.graficas.amarillas.com"
'URL = request.servervariables("SERVER_NAME")

PrimerPunto = InStr(URL, ".")
SegundoPunto = InStr(PrimerPunto + 1, URL, ".")
Subdominio = Mid(URL, PrimerPunto + 1, SegundoPunto - 5)
Response.Write Subdominio
%>

Seguro es más sencillo.. pero fue lo primero que se me ocurrió ;)

lexus · #3 (**permalink**) 25/10/2003, 10:59

y que pasaria si alguien escribe el subdominio como es normal.. sin las www.
asi: http://graficas.amarillas.com

tambien funcionaria?

AlZuwaga · #4 (**permalink**) 25/10/2003, 12:47

no. pero se puede validar fácilmente preguntando primero si el url comienza por "www". si es así, se aplica lo anterior. sino, se aplicaría otra cosa que podría ser...

PrimerPunto = InStr(URL, ".")
subdomino = Left(url, PrimerPunto - 1)

o sea que quedaría masomenos así:

<%
URL = "www.graficas.amarillas.com"
'URL = request.servervariables("SERVER_NAME")

If LCase(Left(URL, 3)) = "www" Then

PrimerPunto = InStr(URL, ".")
SegundoPunto = InStr(PrimerPunto + 1, URL, ".")
Subdominio = Mid(URL, PrimerPunto + 1, SegundoPunto - 5)
Response.Write Subdominio

Else

PrimerPunto = InStr(URL, ".")
subdomino = Left(url, PrimerPunto - 1)
Response.Write Subdominio

End if
%>

... aunque no lo verifiqué

lexus · #5 (**permalink**) 25/10/2003, 23:43

perfecto

Zerg · #6 (**permalink**) 27/10/2003, 13:33

me gustó la idea, pero una consultita.

ese código lo inserto en el index que quiero que cargue al ingresar el subdominio en la barra de direcciones?

gracias, disculpen la ignorancia.

andresalrevez · #7 (**permalink**) 19/03/2004, 18:08

si, claro debes usar el script en el index, o en la pagina donde quieras tomar el subdominio!

fermar21 · #8 (**permalink**) 20/08/2004, 05:31

Y como hago para que al escribir cualquier subdominio (Ej. loquesea.dominio.com) se me redirecciones siempre a la misma pagina? Algo asi como un catchall de subdominios

Gracias,
Saludos

perceval · #9 (**permalink**) 24/11/2004, 11:13

La verdad es que a mi me seria de una enorme utilidad saber como redirigirlo todo a un mismo sitio, si alguien lo sabe que lo postee, por favor.

Zerg · #10 (**permalink**) 19/02/2005, 01:13

se le coloca una sesion que nunca existio y le damos a donde queremos que se dirija

ejemplo.

<%
if session("5645454654") = "" then response.redirect "http://www.pagina.com"%>
<html>
.....
</html>