Apontamento CNAME de domínios para url amigável

[onedev 2]

Olá Pessoal tudo bem?

Preciso apontar vários domínios para uma aplicação ASP que gera url amigáveis, por exemplo:

o domínio www.nomedocliente1.com  deverá abrir o conteúdo de www.aplicacao.com/cliente/nomedocliente1    
o domínio www.nomedocliente2.com  deverá abrir o conteúdo de www.aplicacao.com/cliente/nomedocliente2 
o domínio www.nomedocliente3.com  deverá abrir o conteúdo de www.aplicacao.com/cliente/nomedocliente3      

Será necessário criar um registro manual em cada domínio, apontando a entrada CNAME de www.nomedocliente1.com para www.aplicacao.com.

Minha dúvida seria quanto ao código ASP que deve ser desenvolvido na aplicação para reconhecer o acesso de um visitante de um determinado domínio, por exemplo www.nomedocliente1.com e com isso passar a variável do login do cliente "nomedocliente1" para a aplicação, dessa forma permitindo identificação do cliente e exibição do conteúdo correto. 

Esse estratégia é utilizando por grandes plataformas de e-commerce por exemplo, que desenvolvem apenas 1 código fonte para a aplicação que fica compartilhada com milhares de clientes. A questão é como essa aplicação consegue exibir o conteúdo correto para o visitante de acordo com o domínio acessado? 

Acredito que é um assunto interessante, que possa ser útil para outros desenvolvedores. 
Será que alguém que tenha conhecimento sobre como resolver a questão possa dar alguma dica?

Estou pesquisando muito sobre o assunto, conseguindo mais informações vou compartilhar aqui também.
Obrigado desde já.

 

[xanburzum 169]

olha este exemplo,

sistema de url amigável sem o uso do ISAPI Rewrite mas com algumas limitações, não tenho muito conhecimento em programação mas com ajuda de muitos aqui do forum consegui chegar a um resultado satisfatório, aí vem uns e perguntam: mas você pode usar o componente ISAPI-Rewrite que resolve o problema, mas o problema é que eu não posso migrar de servidor pois nem todos tem instalado todos componentes que uso em meus sites, e como tenho sites com mais de 20.000 fotos cadastradas com resolução de 1.200x800 pixels sem contar as miniaturas, então daria um trabalho imenso para migrar tudo isso e mais um pouco.

Então vamos vamos à parte que mais deu trabalho que foi a codificação de caracteres, já faz 15 dias que eu estou tentando de tudo para acertar os benditos acentos, já salvei as páginas com codificação utf-8, iso-8859-1, Latim 1, ASCII.

Já mudei no banco de dados conforme a codificação das páginas, já fiz de tudo e nada, então estou postando todo trabalho para que alguém teste e encontre uma solução:

 

INSTRUÇÕES:

1 - coloque endereço completo em todas âncoras das páginas que levam a exibição dos dados, incluindo o endereço do arquivo .css
2 - crie uma página idêntica à página que recebe os dados, exemplo(produtos.asp) para (produtos2.asp)
3 - coloque o endereço completo de de url em todos os links de todas as páginas, assim como no arquivo .css.
4 - crie pastas com os nomes de todas sessões e/ou categorias existentes separados por (-) ex:(receitas-com-aves) em seu site e dê as devidas permissões de escrita e leitura.
5 - crie uma tabela no bancos de dados chamada "sitemaps" contendo os campos ("id" AUTO_INCREMENT) e ("url" longtext) com as configurações: CHARSET=utf8 COLLATE=utf8_general_ci .
6 - lembre-se de setar as permissões onde os arquivos serão gravados assim como seu seu arquivo sitemap.txt .
7 - crie uma página com o nome "criar-pagina.asp" .

Obs: o problema é que eu acho que não serve para lojas virtuais.

vamos então, abra o arquivo que recebe os dados(produtos.asp) e coloque as instruções abaixo da consulta que mostra os dados:

'Aqui eu informo a sessão do produto substituindo os espaços por traço, eu acho que não preciso mostrar as outras variáveis.

'Aqui eu fiz uma consulta no banco e recuperei a sessão o produto que estava cadastrado.
    sessaoMenu = replace(LCase(strNomeSessao)," ","-")  

    If Request.QueryString("produto") <> "" Then

'Informe todas variáveis do produto na url arquivo (produtos2.asp) que é a cópia criada por você, no meu caso eu estou passando outras variáveis pela url porque preciso delas para compor as metas tags do meu cabeçalho.
    srturl =  ("http://www.seusite.com.br/produtos2.asp?produto="&intProdID&"&nome="&strNomeProduto&"&sessao="&sessaoMenu&"&tag="&strTag&"&descricao="&strDescricao&"&imagem="&strImagem&"")

'Aqui redireciona para a página criar-pagina.asp passando as variáveis informadas acima.
Response.Redirect ("criar-pagina.asp?SURL="&srturl&"")

Else

 

 

'Fechar a condição no final da página.
   end if

criar-pagina.asp

<%

Dim strProdID
Dim strNomeProduto
Dim StrSURL
Dim strSessao
Dim strTag
Dim strNota
Dim strImagem
Dim CAcento
Dim SAcento
Dim titulo
Dim pagina
Dim caminho
Dim link
Dim strSite
Dim strCodigo
Dim codigo
Dim xmlhttp
Dim GRAVAR
Dim FSO
Dim htmlspecialchars_decode
Dim strEnderecoPagina
Dim sitemaps
Dim link_sitemap
Dim caminho_sitemap
Dim ArqTxt

'Função para remover acentos.

   Function TirarAcento(Palavra)
   CAcento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñѺª"
   SAcento = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"
   Texto = ""
   If Palavra <> "" then
           For X = 1 To Len(Palavra)
               Letra = Mid(Palavra,X,1)
               Pos_Acento = InStr(CAcento,Letra)
               If Pos_Acento > 0 Then Letra = mid(SAcento,Pos_Acento,1)
               Texto = Texto & Letra
           Next
           TirarAcento = Texto
   End If
   End Function  

'Função para decodificar o conteúdo.
    Function htmlspecialchars_decode(someString)
    htmlspecialchars_decode = replace(replace(replace(replace(someString, "&amp;", "&"), "&gt;", ">"), "&lt;", "<"), "&quot;", """")
    End Function

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

'Recupera as variáveis.
          strNomeProduto = Request.QueryString("nome")
          strSURL = Request.QueryString("SURL")
          strSessao = Request.QueryString("sessao")
          strTag = Request.QueryString("tag")
          strDescricao = Request.QueryString("descricao")
          strImagem = Request.QueryString("imagem")

'Tratando as variáveis com replace para substituir espaços por traço e em letras minúsculas, e removendo acentos.
          strNomeProduto = replace(TirarAcento(LCase(strNomeProduto))," ","-")
          strSessao = replace(TirarAcento(LCase(strSessao))," ","-")

'Informe aqui o endereço do seu site, não remova a barra.
          strSite = "http://www.seusite.com.br/"

'Aqui vamos montar o nome da nova página com a extensão html.
          titulo = strNomeProduto&".html"

'Aqui informamos a pasta onde será gravada a nova página.
          pasta = strSessao&"/"&titulo

'Aqui informamos o link da página a ser acessada.
         link =  strSURL&"&nome="&strNomeProduto&"&descricao="&strDescricao&"&tag="&strTag&"&imagem="&strImagem

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

'Aqui acessamos a página informada e pegamos o código fonte dela.
Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlhttp.Open "GET",link, False
xmlhttp.setRequestHeader "ContentType","text/html"
xmlhttp.setRequestHeader "charset","utf-8"       'use a codificação que melhor lhe atender
xmlhttp.setRequestHeader "Encoding","utf-8"      'use a codificação que melhor lhe atender
xmlhttp.Send
strCodigo =  xmlhttp.ResponseText
codigo = Server.HTMLEncode(strCodigo)

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

'Aqui criamos o objeto para gravar a página na pasta conforme sua sessão.
   Set FSO = Server.CreateObject("Scripting.FileSystemObject")
   caminho = Server.MapPath(pasta)
   
   Set GRAVAR = FSO.CreateTextFile(caminho,true)

'Aqui gravamos todo código fonte dentro da nova página.
   gravar.write htmlspecialchars_decode(codigo)
   gravar.close

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

'Aqui informamos o endereço completo da nova página.
    strEnderecoPagina = strSite&pasta

'Gravamos o endereço da nova página no banco de dados,e verificamos se já existe o mesmo nome gravado, OBS. coloque um include que faz a conexão com seu banco de dados.
   Set sitemaps = abredb.Execute("SELECT * FROM sitemaps WHERE url='"& strEnderecoPagina &"';")

   if sitemaps.eof and sitemaps.bof then
     link_sitemap = strEnderecoPagina

     sitemaps = "INSERT INTO sitemaps (url) VALUES ('"&link_sitemap&"')"
     abredb.execute(sitemaps)

'Com a mesma condição vamos gravar um novo link no arquivo sitemap.txt.
     Set FSO = Server.CreateObject("Scripting.FileSystemObject")
     caminho_sitemap = "c:/domains/seusite.com.br/wwwroot/sitemap.txt"

'O parâmetro forReading é utilizado somente para leitura.
     Const forReading = 1, forWriting = 2, forAppending = 8

'Instancia o objeto FSO.
    Set Fso = CreateObject("Scripting.FileSystemObject")

'Abre o arquivo com o método OpenTextFile.
    Set ArqTxt = Fso.OpenTextFile(caminho_sitemap,8,True)

'Arquivo aberto, escreve no arquivo.
    ArqTxt.WriteLine link_sitemap

'Fecha o arquivo com o método Close.
    ArqTxt.Close

'Destrói o objeto.
    Set ArqTxt = nothing

  else

  strEnderecoPagina = strEnderecoPagina

  end if

  sitemaps.close
  sitemaps.nothing

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

'Pronto, fazemos um redirecionamento para a página recém criada.
Response.Redirect strEnderecoPagina

%>

[onedev 2]

xanburzum, sua resposta não tem nenhuma relação com o assunto do tópico. Mas nenhuma mesmo kkkkk... você deve estar bem chapado.

Bom, pesquisei bastante e a forma de resolver é instalando um componente de ASP DNS no servidor para conseguir fazer DNS reverso no domínio que está acessando o código fonte e com isso conseguir pegar o código de identificação inserido em um registro CNAME nesse domínio. Dessa forma conseguiremos o código de identificação da conta.

 

[Gustavo Emygdio Barboza 24]

onedev, para cada dominio  www.nomedocliente1.com terá uma página default.asp? ou todos os dominios abrem uma mesma página padrão?

 

 www.nomedocliente1.com  deverá abrir o conteúdo de www.aplicacao.com/cliente/nomedocliente1

 

dominio = Request.ServerVariables("server_name")

 

nomedocliente = replace(dominio,"www.","")

nomedocliente = replace(dominio,".com","")

 

linkmontado = "www.aplicacao.com/cliente/" & nomedocliente

 

só abrir o linkmontado num iframe assim não vai mudar a url original

 

[leosbotelho 1]

CNAME é a nível da resolução de nomes de dominíos, -no [protocolo de comunicação] HTTP- o header Host vai apontar pro alias do seu CNAME (i.e o que foi digitado na barra de endereços).

Aponta o alias e processa esse header na implementação da funcionalidade/comportamento intendido.Simples.

Haveria alguma dúvida de como fazer isso em ASP ou alguma stack específica?

 

P.s

Quote

Bom, pesquisei bastante e a forma de resolver é instalando um componente de ASP DNS no servidor para conseguir fazer DNS reverso no domínio que está acessando o código fonte e com isso conseguir pegar o código de identificação inserido em um registro CNAME nesse domínio. Dessa forma conseguiremos o código de identificação da conta.

 

Não fez muito sentido o que você falou.Tá pensando sem base conceitual alguma.

 

"fazer DNS reverso [sic] no domínio [sic] que está acessando o código fonte [sic] e com isso conseguir pegar o código de identificação inserido em um registro CNAME [sic] nesse domínio [sic]" [sic]

 

"Remendo":

"fazer DNS reverso [sic] no domínio [cliente] que está acessando o código fonte [a aplicação] e com isso conseguir pegar o código de identificação inserido [sic] em um registro CNAME [sic] nesse domínio [para/associados a esse domínio]"

 

Não quero me extender mais.

[onedev 2]

Funcionou com alias de domínio do plesk. Então vários domínios usam um mesmo código ASP, e nesse código ASP eu consigo identificar qual é o domínios através de Server Variables e com isso filtro apenas os dados no banco de um domínio específico. 

O problema é que demanda uma ação manual no plesk para registrar cada domínio no servidor. 

Alguém saberia me dar uma dica de como automatizar esse processo? Estou criando uma pequena plataforma de serviços e preciso permitir que os usuários possam utilizar domínio próprio para usar os serviços dessa plataforma. Então os usuários teriam primeiro que se cadastrar na plataforma informando o seu domínio, depois alterar a entrada DNS de seu domínio para o servidor da plataforma que conseguirá identificar o domínio do usuário para filtrar seus dados.

Alguém pode ajudar? To levando vários dias estudando isso e não finalizo.