11 replies to this topic

[pchardnet]

Aê moçada, voltei com mais uma duvida daquelas...hehe

É o seguinte: criei um sistema de cadastro e login que está funcionando beleza. (Vc's me ajudaram bastante com ele...hehe).

Preciso dar uma incrementada. Quando o usuário da cidade(leia base) logar no sistema (loga com CNPJ e SENHA) eu quero que ele seja direcionado para a página específica da base dele.

Tenho o seguinte script de autenticação do login.

<%
Dim CNPJ, SENHA, BASE
CNPJ = Request.Form("CNPJ")
SENHA = Request.Form("SENHA")

Dim conObj
Set conObj = Server.CreateObject("ADODB.Connection")
conObj.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DBMAX/DBMAX.mdb") & ";"

Dim LOCALIZA
LOCALIZA = "SELECT CNPJ, SENHA, BASE FROM CADASTRO WHERE CNPJ='"&CNPJ&"' and SENHA='"&SENHA&"'"


Dim RS, LOGIN
Set RS = conObj.Execute(LOCALIZA)
If RS.EOF Then
LOGIN = false
Else
LOGIN = true
End if

tipo = request.QueryString("BASE")


If LOGIN = true Then
Session ("opstiu") = true
    If tipo="MONTES CLAROS" then
    %>
    <script>
    top.window.location.href=('montes_claros.asp')
    </script>
    <%
    elseif tipo="VAZANTE" then
    %>
    <script>
    top.window.location.href=('vazante.asp')
    </script>
    <%
    End if
    End if
Else
  Response.Redirect("erro.asp")
End if
%>

Não sei onde está o erro ou erros nele. Gostaria que alguém pudesse me orientar no desenvolvimento do restante dele.

Farei a minha parte para continuar aprendendo com vc's.

Desde já agradeço!

[yakko]

ola,

vc tem duas opcoes:
1º crie mais um campo nesta tabela com o nome da pagina para onde sera redirecionada, ai vc cria no administrador algo para manipular este campo, e na hr do login vc pega este valor e redireciona para a pagina correta;
2º aproveite o nome da cidade e crie paginas od no espaco apareca o underline e sem acentos, exe.: são paulo -> sao_paulo.asp, entao no login vc pega o nome da cidade, remove os acentos e substitui o espaco por undeline.

[pchardnet]

Quero trabalhar com a segunda opção.

[Rodrigo]

acho mais simples vc ter uma pagina soh, tipo: usuario.asp

e la ser tudo dinamico, naum ha a necessidade de ter uma pagina para cada usuario, o ASP, assim como qq linguagem de desenvolvimento para internet, serve para isso msm.

[pchardnet]

Rodrigo, preciso desta forma por um motivo: Os users da CIDADE X não podem ter acesso ao conteúdo da CIDADE Y.

Existe outra forma para eu fazer isso?
Estou iniciando em ASP então essa foi a forma mais "fácil" que encontrei.

Valeu

[Deigmar]

Faça um sistema de verificação de ID
Por exemplo: os users da cidade X terão um ID e os da cidade y outro ID, ai vc cria uma session ou um cookie com estes ID's e distribui as informações da página dinâmicamente de acordo com a session ou cookie resgato após o login.

blz?

[pchardnet]

Consegui fazer aqui... sem cookie's.

Criei um campo NIVEL no me BD e o acesso será feito comparando NIVEL e CIDADE

Assim
If VBASE = "BOCAIÚVA" and VNIVEL = "2" then
If LOGIN = true Then
Session ("123456") = true
%>
<script>
window.open('http://www.direcionacidades.com.br')
</script>
<%
Else
Response.Redirect("erro.asp")
End if
end if


Nesse caso terei que criar uma sessão para cada condição.


Funciona deste modo?

[yakko]

bom existe n formas de se fazer isto q vc quer.

o q eu aconselho a fazer eh o seguinte:
cadastro do cliente com a cidade
1 pagina para login (redireciona para 1 unica pagina; cidades.asp?cidade=nome da cidade)
nesta pagina onde recebeu o redirecionamento vc verifica as informacoes do login do cara (usando cookies) e exibe somente as informacoes da referida cidade.

[pchardnet]

Se vc tiver um tempinho será que vc pode postar um exemplo pra eu ver como fica?

Não sei como fazer desta forma e ela parece ser bem melhor que como estou fazendo.

Obrigado!

[<%Rafael%>]

Acho que seria mais ou menos assim como o darko falou...

Tipo, ao fazer o login, redireciona para uma página tipo
redirecionacidades.asp?cidade=jundiai

E na página redirecionacidades.asp, você faz a inclusão dinamicamente, tipo...

SQL = "SELECT * FROM informativos WHERE cidade = "&cidade&" ORDER BY id DESC

Algo desse tipo sabe???

Abraços!!!

[yakko]

ve se te ajuda pchardnet,

Dim CNPJ, SENHA, BASE
CNPJ = Request.Form("CNPJ")
SENHA = Request.Form("SENHA")

Dim conObj
Set conObj = Server.CreateObject("ADODB.Connection")
conObj.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DBMAX/DBMAX.mdb") & ";"

Dim LOCALIZA
LOCALIZA = "SELECT CNPJ, SENHA, BASE FROM CADASTRO WHERE CNPJ='"&CNPJ&"' and SENHA='"&SENHA&"'"


Dim RS, LOGIN
Set RS = conObj.Execute(LOCALIZA)
If RS.EOF Then
LOGIN = false
Else
LOGIN = true
End if

tipo = UCase(LOCALIZA("BASE"))
tipo = replace(tipo, "remover acentos", "acentos removidos") <- procure uma maneira para remover os acentos
tipo = replace(tipo, " ", "_") <- substitui o espaco por underline


If LOGIN = true Then
%>
<script>
top.window.location.href=('pagina_cidades.asp?cidade=<%= tipo %>')
</script>
<%
Else
Response.Redirect("erro.asp")
End if

[pchardnet]

Valeu Yakko, estarei testando aqui.

Obrigado.

Ps.: Isso é por querystring??