Link personalizado

[hudsonalves 0]

Pode parecer besteira mas estou quebrando a cabeça para fazer, preciso de ajuda

 

 

Preciso criar uma página personalizada onde o usuário define o nome parecido com portais onde seu perfil pode ser acessado apenas digitando a URL

 

Exemplo: usuário do facebook Carlos Borba no link fica assim: www.facebook.com/carlosborba

 

Atualmente estou usando BD access

 

Alguém sabe personalizar o link? É assim que se chama?

[xanburzum 169]

faz uma concatenação na url. Tipo

 

<a href="<%=rs("endereco_web")%>"> <%=rs(""nome_web")%>"> </a>

[hudsonalves 0]

Não saquei.

 

Isso funciona quando o usuário digita: www.site.com/nomedousuario ?

[Fábio BN 17]

- Legal a sua dúvida, eu noto que nesses sites que utilizam deste método, os endereços ficam assim: www.site.com.br/nome_usuario

 

- Percebo ainda que no facebook se fechar o link com uma barra ( / ) ele remove a barra do final do endereço, interessante.

 

- Aqui no Fórum, note que cada tópico utiliza algo bem parecido, porém é fechado com uma barra no final, como se fosse uma pasta.

 

- Eu não sei se é possível carregar páginas assim no ASP, estou querendo aprender também.

 

Abraços!

[xanburzum 169]

isso é url amigáveis, tipo vc pode usar o ISAPI Rewrite ou até mesmo sem componente. 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, "&", "&"), ">", ">"), "<", "<"), """, """")
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

%>

[hudsonalves 0]

Brô!

 

Salvou mais esta, vou adaptar no meu sistema.

[xanburzum 169]

Maravilha...