Redirecionando domínios para pastas de acordo com o endereço

Bom aspianos esse é um código muito simples e muito eficaz, não sei se a maioria já se perguntou é possivel fazer o espelhamento de dominio para a pasta determina utilizando o ASP? eu fiz esta pergunta para mim mesmo e desenvolvi um codigo para isso, entao vamos maos a obra.

Iniciando o codigo:

'[[default.asp]] - na raiz do site

<%@ Language=VBScript %>

'----------------------------------------------------------------------

'----------------------Script desenvolvido por -------------------

'----------------------Heber Almeida------------------------------

'----------------------heber@heberonline.com.br---------------

'----------------------www.heberalmeida.com------------------

'----------------------------------------------------------------------

Dim sURL, sPath

sURL = Request.ServerVariables("HTTP_HOST")

sPath = Request.ServerVariables("PATH_INFO")

Select Case sURL

Case "www.heberonline.com.br", "heberonline.com.br"

Response.Redirect "2010" & sPath

Case "www.h3ber.com", "h3ber.com"

Response.Redirect "2010" & sPath

Case "www.heberalmeida.com", "heberalmeida.com"

Response.Redirect "2010"

End Select

Carregando...

Heber Almeida

Autor

Em 1999 começou sua história com internet, buscando várias informações sobre o assunto, manteve-se no interesse. Mas somente em 2005 foi que vingou, graduando Tecnlogia de Desenvolvimento de Sistemas Web na Unaes em Campo Grande-ms, escolheu uma linguagem de programação. asp (o que mais programo) e o .net, possui amplo conhecimento gráfico em adobe photoshop, adobe illustrator e adobe fireworks. Possui conhecimento também em adobe flash, javascript, ajax, dhtml, php, mysql e c#.

Ver todas as publicações de Heber Almeida

Você pode se interessar

Conheça Silq: a primeira linguagem criada para popularizar a programação quântica

Artigos

6 visualizações

Artigos

6 visualizações

Conheça Silq: a primeira linguagem criada para popularizar a programação quântica

Carlos L. A. da Silva - 6 de julho de 2020

Time de quatro pesquisadores do Instituto Federal de Tecnologia (ETH) de Zurique, na Suíça, quebrou paradigmas e está prestes a escancarar as portas da computação quântica.