Guest Henderson Postado Novembro 28, 2005 Denunciar Share Postado Novembro 28, 2005 Ae galera, beleza?Seguinte!To fazendo um sistema de encurtador de url pro orkutassim...o orkut tem aquele endereço horrivel que todo mundo conhece:www.orkut.com/profile.aspx?uid=4123156489789aiieu to fazendo um sistema, em que o usuario se cadastra, cria um username e coloca o seu uidai.. quando entrar no endereçowww.meusite.com/usernamevai redirecionar pra www.orkut.com/profile.aspx?uid=uid cadastrado no bancoa programação pra isso, tá em uma páginaque é definida como página de erro 404já que quando acessarwww.meusite.com/usernamea pasta username não vai existir e vai ir para a página de erro né!abaixo a página de erro:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <html> <head> <title>Documento sem título</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <% path = Split(Request.ServerVariables("QUERY_STRING"),"/") username = path(4) set conexao = Server.CreateObject("ADODB.connection") conexao.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("bd/bddosistderedir.mdb") sql = "SELECT * FROM usuarios where username = '"&username&"'" set rs = conexao.execute(sql) if rs.EOF then sql0 = "SELECT * FROM comunidades WHERE nomecmm = '"&username&"'" set rs0 = conexao.Execute(sql0) If rs0.EOF then response.write "A página que você procura não existe" response.write "<br>" response.write username Else cmm = rs0("cmm") id = rs0("idauto") sqlc = "UPDATE comunidades set hits = hits + 1 WHERE idauto = "&id&"" conexao.Execute(sqlc) comu = "http://www.orkut.com/Community.aspx?cmm=" endc = comu & cmm Response.Redirect(endc) End if Else uid = rs("uid") sqlp = "UPDATE usuarios set hits = hits + 1 WHERE username = '"&username&"'" conexao.Execute(sqlp) perfil = "http://www.orkut.com/Profile.aspx?uid=" endp = perfil & uid Response.Redirect(endp) End if %> </body> </html>o problema é que no meu pc... ela funcionapor que por exemplo, se eu entrarwww.meupc.com/abcdvai pra pagina de erro e o endereço no navegador, continuawww.meupc.com/abcdsó que quando upei pro host, se eu entrarwww.meusite.com/abcdfica assimhttp://www.meusite.com/err_404.asp?404;htt...com/err_404.aspsendo que err_404.asp é o nome que eu salvei o arquivo da página de erro!o "abcd" simplesmente some da querystringentão, com o codigo da página acima... o valor da variavel username fica sempre "err_404.asp"não sei o que faço mais!vocês podem me ajudar? Link para o comentário Compartilhar em outros sites More sharing options...
0 web diackne Postado Novembro 28, 2005 Denunciar Share Postado Novembro 28, 2005 Para o pessoal te responder regista-te... Link para o comentário Compartilhar em outros sites More sharing options...
0 bareta Postado Novembro 28, 2005 Denunciar Share Postado Novembro 28, 2005 favor criar um tópico somente.... continua no outro tópico............ Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest Henderson
Ae galera, beleza?
Seguinte!
To fazendo um sistema de encurtador de url pro orkut
assim...
o orkut tem aquele endereço horrivel que todo mundo conhece:
www.orkut.com/profile.aspx?uid=4123156489789
aii
eu to fazendo um sistema, em que o usuario se cadastra, cria um username e coloca o seu uid
ai.. quando entrar no endereço
www.meusite.com/username
vai redirecionar pra www.orkut.com/profile.aspx?uid=uid cadastrado no banco
a programação pra isso, tá em uma página
que é definida como página de erro 404
já que quando acessar
www.meusite.com/username
a pasta username não vai existir e vai ir para a página de erro né!
abaixo a página de erro:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <html> <head> <title>Documento sem título</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <% path = Split(Request.ServerVariables("QUERY_STRING"),"/") username = path(4) set conexao = Server.CreateObject("ADODB.connection") conexao.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("bd/bddosistderedir.mdb") sql = "SELECT * FROM usuarios where username = '"&username&"'" set rs = conexao.execute(sql) if rs.EOF then sql0 = "SELECT * FROM comunidades WHERE nomecmm = '"&username&"'" set rs0 = conexao.Execute(sql0) If rs0.EOF then response.write "A página que você procura não existe" response.write "<br>" response.write username Else cmm = rs0("cmm") id = rs0("idauto") sqlc = "UPDATE comunidades set hits = hits + 1 WHERE idauto = "&id&"" conexao.Execute(sqlc) comu = "http://www.orkut.com/Community.aspx?cmm=" endc = comu & cmm Response.Redirect(endc) End if Else uid = rs("uid") sqlp = "UPDATE usuarios set hits = hits + 1 WHERE username = '"&username&"'" conexao.Execute(sqlp) perfil = "http://www.orkut.com/Profile.aspx?uid=" endp = perfil & uid Response.Redirect(endp) End if %> </body> </html>o problema é que no meu pc... ela funciona
por que por exemplo, se eu entrar
www.meupc.com/abcd
vai pra pagina de erro e o endereço no navegador, continua
www.meupc.com/abcd
só que quando upei pro host, se eu entrar
www.meusite.com/abcd
fica assim
http://www.meusite.com/err_404.asp?404;htt...com/err_404.asp
sendo que err_404.asp é o nome que eu salvei o arquivo da página de erro!
o "abcd" simplesmente some da querystring
então, com o codigo da página acima... o valor da variavel username fica sempre "err_404.asp"
não sei o que faço mais!
vocês podem me ajudar?
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados