Logicas

[DackAle]

E ae galera =)

Bom na minha busca de mais conhecimento ahahahaha tava pensando na logica de duas coisas, uma delas é o de "lembrar senha", bom pensei que funciona assim

- Cara seleciona que quer que lembre a senha

- na hora de fazer o login, se estiver correto salva a opção de lembrar, login e a senha em cookies

- toda vez que o cara entrar no site, o sistema ve nos cookies se a opção de lembrar esta como sim, se estiver pega o login e senha salvos, faz o login e pronto..

é assim mesmo ? tipo

<!--#include file="../includes/config2.asp"-->
<%
usuario = Trim(Replace(request.Form("usuario"),"'","''"))
senha = Trim(Replace(request.form("senha"),"'","''"))

SQL="SELECT * FROM administracao WHERE usuario = '" & usuario & "' AND senha= '" & senha & "'"
RS.Open SQL,Conexao,1,1

if RS.EOF Then
Session("logado") = false
response.write "<script>"
response.write "window.location='admin_erro.asp'"
response.write "</script>"
Else
Session("logado") = true
session("usuario") = RS("usuario")
response.cookies("usuario") = RS("usuario")
response.cookies("senha") = RS("senha")
response.cookies("usuario").expires = date() + 60
response.cookies("senha").expires = date() + 60
response.write "<script>"
response.write "window.location='admin.asp'"
response.write "</script>"
end if

RS.Close
Set RS = Nothing
%>

codigo na hora de faz o login agora codigo de quando o cara entrar na pagina

<!--#include file="../includes/config2.asp"-->
<%
usuario=Request.Cookies("usuario")
senha=Request.Cookies("senha")
SQL="SELECT * FROM administracao WHERE usuario = '" & usuario & "' AND senha= '" & senha & "'"
RS.Open SQL,Conexao

IF NOT RS.EOF Then
Session("logado") = true
session("usuario") = RS("usuario")
response.write "<script>"
response.write "window.location='admin.asp'"
response.write "</script>"
end if
%>

Aparenetemente ele até esta deixando o usuario logado, mas ele não redireciona (caso estiver tudo OK, ele manda pra admin.asp) Bom a logica pelo menos ta certa galera ? =) Segundo, to aprendendo a utilizar o "For Each", bom pensei que pra treinar, iria fazer um sistema de apagar em demenda, tipo o cara escolhe as checkbox, os valores serão as suas ids, na proxima pagina com o for each iria pegar de campo em campo e indo apagar tipo assim:

<input name="apagar" type="checkbox" id="apagar" value="<%=rs("id")%>">

e na que pega

<%
FOR EACH X IN REQUEST.FORM
SQL="DELETE * From noticias WHERE id='" & id & "'"
RS.Open SQL,Conexao
NEXT
%>

Bom só que o "elemento" e a coleção eu não sei qual colocar pra ser sincero...

Se alguém pudesse me dar uma ajuda pra entender melhor o for each =)

Bom abraços e valeuuuu

[bareta]

você já pode fazer ele não verificar o login.... pegando so a variavel logado e colocando ela dentro do cookie depois que for confirmado a sua existencia na primeira vez que o cara logar...

[cyberalexxx]

Se alguém pudesse me dar uma ajuda pra entender melhor o for each =)

Eu faria assim:

<input name="apagar" type="checkbox" id="apagar" value="<%=rs("id")%>">

depois

<%
ids = split(request.form("apagar"),",")
FOR EACH Idselecionado IN ids
SQL="DELETE * From noticias WHERE id='" & Idselecionado & "'"
RS.Open SQL,Conexao
NEXT
%>

[DackAle]

você já pode fazer ele não verificar o login.... pegando so a variavel logado e colocando ela dentro do cookie depois que for confirmado a sua existencia na primeira vez que o cara logar...

boaaa, valeu mais simples, verdade velho =)

Brigadão

Se alguém pudesse me dar uma ajuda pra entender melhor o for each =)

Eu faria assim:

<input name="apagar" type="checkbox" id="apagar" value="<%=rs("id")%>">

depois

<%
ids = split(request.form("apagar"),",")
FOR EACH Idselecionado IN ids
SQL="DELETE * From noticias WHERE id='" & Idselecionado & "'"
RS.Open SQL,Conexao
NEXT
%>

Hmmmm tentei isto e deu este erro

Microsoft JET Database Engine error '80040e07' 

Data type mismatch in criteria expression. 

/netbar/admin/noticias3.asp, line 6 

codigo ficou assim

<!--#include file="../includes/config2.asp"-->
<%
ids = split(request.form("apagar"),",")
FOR EACH Idselecionado IN ids
SQL="DELETE * From noticias WHERE id='" & Idselecionado & "'"
RS.Open SQL,Conexao
NEXT
%>

Sabe o que pode ser ?

Abraçoss e valeu aos dois

[dark0]

um simples erro de aspa simples:

<!--#include file="../includes/config2.asp"-->

<%

ids = split(request.form("apagar"),",")

FOR EACH Idselecionado IN ids

SQL="DELETE * From noticias WHERE id=" & Idselecionado & " "

RS.Open SQL,Conexao

NEXT

%>

como pode ver, eu tirei a aspa simples, desse modo usa-se para campos numero!

t+

[DackAle]

um simples erro de aspa simples:

<!--#include file="../includes/config2.asp"-->

<%

ids = split(request.form("apagar"),",")

FOR EACH Idselecionado IN ids

SQL="DELETE * From noticias WHERE id=" & Idselecionado & " "

RS.Open SQL,Conexao

NEXT

%>

como pode ver, eu tirei a aspa simples, desse modo usa-se para campos numero!

t+

Boaaa funcionou perfeitamente =)))

Mas abusando um pouco de vocês (No bom sentido claro...rs)

alguém poderia me explicar as funções utilizadas neste codigo

"ids = split(request.form("apagar"),",")

FOR EACH Idselecionado IN ids

SQL="DELETE * From noticias WHERE id=" & Idselecionado & " "

Tipo "split" o ,"," idselecionado (da onde surgiu ele ?)

O resto entendi =)

Abração e valeu =)))

[DackAle]

err ninguém ? rsss

Mas mesmo assim já valeu desde já =)

Abraçosss

[dark0]

Bem, fica dificil dizer de onde surgiram as variaveis, o que elas fazem, sem saber para que o sistema serve, como foi criado, como o programador costuma fazer seus codigos..

Pois, com certeza cada codigo desses aí faz alguma coisa importante.

Em geral, o SPLIT, serve para quebrar uma string grande em um vetor, conforme a condição.

por ex:

você tem uma variavel que tem: João, Maria, José.

E você quer separar cada palavra antes da virgula. então você usa split. Assim, sempre que o split encontrar a virgula, ele colocará como uma nova posição do vetor.

O For Each é um comando de repetição, que deve deletar todos os campos marcados.

IdSelecionado, parece ser o id marcado atual.. onde esta sendo feito o delete.

Não sei em certo, pois não conheço o sistema todo ..

[cyberalexxx]

Boaaa funcionou perfeitamente =)))

Mas abusando um pouco de vocês (No bom sentido claro...rs)

alguém poderia me explicar as funções utilizadas neste codigo

"ids = split(request.form("apagar"),",")

FOR EACH Idselecionado IN ids

SQL="DELETE * From noticias WHERE id=" & Idselecionado & " "

Tipo "split" o ,"," idselecionado (da onde surgiu ele ?)

O resto entendi =)

Abração e valeu =)))

Bom como fui eu que fiz o código deixa eu explicar e desculpa a demora é que esta semana, c der pra mim pra mim aparecer aki 5 minutos por dia, vais ser muito, to completamente enrolado. mais vamos la:

ids = split(request.form("apagar"),",")

Seguinte: No seu formulário aparecem varios checkbox com o nome apagar, sendo assim se você der um response.write na variavel request.form("apagar") ela vai ter mais de uma valor expresso assim idx,idy,idz,idetc o que o split faz é criar um vetor Ids, fazendo a quebra pela virgula ficando o resultado assim:

Ids(0) = idx Ids(1) = idy Ids(2) = idz Ids(3) = idetc

quanto ao:

FOR EACH Idselecionado IN ids

traduzindo:

Para cada Idselecionado(essa variavel é você que da o nome) no vetor Ids(vetor esse criado através do split e que armazena os dados das ids selecionadas).

Sendo assim a variavel Idselecionado teria o valor da id selecionada no form, que depois é excluida através da instrução SQL que usa WHERE id='" & Idselecionado & "'"

Ajudei um pouco??? acho q não, não tenho uma didática muito boa, mais qqer duvida volta ai

[DackAle]

Bommm valeu, eu juro que entendi ahahah serio, valeu pra todos, brigado, desculpe ter enxido, mas penso que não adianta apenas copiar, afinal quero aprender e fazer sozinho depois e dpeois ajudar a outras pessoas =)

Brigado ambos já me ajudaram muito =)

Abraçãooo

[cyberalexxx]

Bommm valeu, eu juro que entendi ahahah serio, valeu pra todos, brigado, desculpe ter enxido, mas penso que não adianta apenas copiar, afinal quero aprender e fazer sozinho depois e dpeois ajudar a outras pessoas =)

Brigado ambos já me ajudaram muito =)

Abraçãooo

Concordo com vc!! O importante é aprender e compartilhar conhecimento.

T +