Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

shumi

Grande em bloqueio dependendo da senha!

Por , em ASP Clássico

Recommended Posts

Cidre    0

Cidre
Postado

quando ele se loga você tem um select +/- assim não tem:

 

Select * from usuarios where login= login and senha = senha

ai você faz isso:

<%Session("usuario") = rs("cdusuario")%>

ai quando você for fazer a consulta qua falei no ultimo post para verificar o dono da campanha usa assim:

 

Select * from campanhas where codigododono = session("usuario")

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Esse é meu arquivo que valida o login e a senha.Está certo o Session?<% Set con = Server.CreateObject("ADODB.Connection") con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbsistema.mdb"))Dim Conexcao,sql,rs,verifica,promotor,endereco,numero,complemento,bairro,uf,cidade,telfone,celular,blnEnvioEmail,intRetorno,varcodSQL = "SELECT * FROM cadatendimento WHERE ( (login = '" & strLogin & "') AND (senha = '" & strSenha & "') )"Conexcao.Execute(SQL)Session("login") = rs("senha")If NOT RS.EOF Thenvarcod=rs("login")Session("logado") = TRUEResponse.Redirect "atendimento.aspElseSession ("logado") = FALSEResponse.Redirect "index.asp" End If%>Abraços!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

certo até ta...

 

mas pelo que entendi voce deve gravar o codigo em session tambem

 

If NOT RS.EOF ThenSession("Login")=rs("login")Session("logado") = TRUEResponse.Redirect "atendimento.aspElseSession ("logado") = FALSEResponse.Redirect "index.asp" End If

e isso como ta fora do IF pode dar erro (vai dá erro) se não encontrar o usuario

 

Session("login") = rs("senha")

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cidre    0

Cidre
Postado

Só cuidado com uma coisa, você vai fazer a verificação pela senha o pelo código do usuário, vê o que você gravou na tabela das campanhas

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Só cuidado com uma coisa, você vai fazer a verificação pela senha o pelo código do usuário, vê o que você gravou na tabela das campanhas

Isso que ia perguntar agora Cidre!Como eu faço para que meu cadastro de campanha armazene o login e senha no banco???meu cod esta assim:
<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("dbsistema.mdb")Conexcao.openIf NOT (Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd Ifdim Conexcao,sql,sql2,sql3,sql4,sql5,sql6,rs,rs2,rs3,rs4,rs5,rs6,varcod'varcod = request.querystring("varcod")'sql= "select * from promotor where codpromotor='"&varcod&"'"sql= "select * from coligada"sql2= "select * from coligada"sql3= "select * from local"sql4= "select * from local"sql5= "select * from local"sql6= "select * from local"Set rs6=Conexcao.Execute(sql6)Set rs5=Conexcao.Execute(sql5)Set rs4=Conexcao.Execute(sql4)Set rs3=Conexcao.Execute(sql3)Set rs2=Conexcao.Execute(sql2)Set rs=Conexcao.Execute(sql)%><html><head><title>Sistema NewStyle</title><style type="text/css"><!--body {	background-color: #ffffff;}--></style><link href="estilonew.css" rel="stylesheet" type="text/css"><style type="text/css"><!--.style4 {color: #333333}--></style></head><body><center>  Bem vindo a Extranet NewStyle (testes sem layout)</center><form name="form1" method="post" action="campanha_valida.asp">  <table width="610" border="0">	<tr>	  <td width="100">Campanha :</td>	  <td width="500"><input name="campanha" type="text" id="campanha" size="83"></td>	</tr>  </table>  <div align="left">	<table width="609" border="0">	  <tr>		<td width="162">Data Início  :</td>		  <td width="154"><select name="iniciodia" id="iniciodia">			<option>...</option>			<option value="01">01</option>			<option value="02">02</option>			<option value="03">03</option>			<option value="04">04</option>			<option value="05">05</option>			<option value="06">06</option>			<option value="07">07</option>			<option value="08">08</option>			<option value="09">09</option>			<option value="10">10</option>			<option value="11">11</option>			<option value="12">12</option>			<option value="13">13</option>			<option value="14">14</option>			<option value="15">15</option>			<option value="16">16</option>			<option value="17">17</option>			<option value="18">18</option>			<option value="19">19</option>			<option value="20">20</option>			<option value="21">21</option>			<option value="22">22</option>			<option value="23">23</option>			<option value="24">24</option>			<option value="25">25</option>			<option value="26">26</option>			<option value="27">27</option>			<option value="28">28</option>			<option value="29">29</option>			<option value="30">30</option>			<option value="31">31</option>		  </select>			/			<select name="iniciomes" id="iniciomes">			  <option>...</option>			  <option value="01">01</option>			  <option value="02">02</option>			  <option value="03">03</option>			  <option value="04">04</option>			  <option value="05">05</option>			  <option value="06">06</option>			  <option value="07">07</option>			  <option value="08">08</option>			  <option value="09">09</option>			  <option value="10">10</option>			  <option value="11">11</option>			  <option value="12">12</option>			</select>			/			<select name="inicioano" id="inicioano">			  <option>...</option>			  <option value="2005">2005</option>			  <option value="2006">2006</option>			  <option value="2007">2007</option>			  <option value="2008">2008</option>			  <option value="2009">2009</option>			  <option value="2010">2010</option>			  <option value="2011">2011</option>			  <option value="2012">2012</option>			  <option value="2013">2013</option>			</select></td>		  <td width="119"><div align="left">Data Final  :</div></td>		<td width="156"><select name="fimdia" id="fimdia">		  <option>...</option>		  <option value="01">01</option>		  <option value="02">02</option>		  <option value="03">03</option>		  <option value="04">04</option>		  <option value="05">05</option>		  <option value="06">06</option>		  <option value="07">07</option>		  <option value="08">08</option>		  <option value="09">09</option>		  <option value="10">10</option>		  <option value="11">11</option>		  <option value="12">12</option>		  <option value="13">13</option>		  <option value="14">14</option>		  <option value="15">15</option>		  <option value="16">16</option>		  <option value="17">17</option>		  <option value="18">18</option>		  <option value="19">19</option>		  <option value="20">20</option>		  <option value="21">21</option>		  <option value="22">22</option>		  <option value="23">23</option>		  <option value="24">24</option>		  <option value="25">25</option>		  <option value="26">26</option>		  <option value="27">27</option>		  <option value="28">28</option>		  <option value="29">29</option>		  <option value="30">30</option>		  <option value="31">31</option>		</select>/<select name="fimmes" id="fimmes">  <option>...</option>  <option value="01">01</option>  <option value="02">02</option>  <option value="03">03</option>  <option value="04">04</option>  <option value="05">05</option>  <option value="06">06</option>  <option value="07">07</option>  <option value="08">08</option>  <option value="09">09</option>  <option value="10">10</option>  <option value="11">11</option>  <option value="12">12</option></select>/<select name="fimano" id="fimano">  <option>...</option>  <option value="2005">2005</option>  <option value="2006">2006</option>  <option value="2007">2007</option>  <option value="2008">2008</option>  <option value="2009">2009</option>  <option value="2010">2010</option>  <option value="2011">2011</option>  <option value="2012">2012</option>  <option value="2013">2013</option></select></td>	  </tr>	  <tr>		<td>Tipo de ação :</td>		<td><input name="tipoacao" type="text" id="tipoacao"></td>		<td><div align="left">Produto :</div></td>	   <td> <input name="produto" type="text" id="produto"></td>	  </tr>	  <tr>		<td>Coligada :</td>		<td><select name="coligada" size="1" id="coligada">		  <option value>...</option>		  <%		While NOT rs.EOF		%>		  <option value="<%= rs("fantasia") %>"><%= rs("fantasia") %></option>		  <%		rs.MoveNext 		Wend		%>		</select></td>		<td><div align="left">Coligada :</div></td>		<td><select name="coligada" size="1" id="coligada">		  <option value>...</option>		  <%		While NOT rs2.EOF		%>		  <option value="<%= rs2("fantasia") %>"><%= rs2("fantasia") %></option>		  <%		rs2.MoveNext 		Wend		%>		</select></td>	  </tr>	  <tr>		<td>Local :</td>		  <td><select name="local" size="1" id="local">			<option value>...</option>			<%		While NOT rs3.EOF		%>			<option value="<%= rs3("fantasia") %>"><%= rs3("fantasia") %></option>			<%		rs3.MoveNext 		Wend		%>		  </select></td>		  <td><div align="left">Local :</div></td>		  <td><select name="local" size="1" id="local">			<option value>...</option>			<%		While NOT rs4.EOF		%>			<option value="<%= rs4("fantasia") %>"><%= rs4("fantasia") %></option>			<%		rs4.MoveNext 		Wend		%>		  </select></td>	  </tr>	  <tr>		<td>Local : </td>		<td><select name="local" size="1" id="local">		  <option value>...</option>		  <%		While NOT rs5.EOF		%>		  <option value="<%= rs5("fantasia") %>"><%= rs5("fantasia") %></option>		  <%		rs5.MoveNext 		Wend		%>		</select></td>		<td><div align="left">Local :</div></td>		<td><select name="local" size="1" id="local">		  <option value>...</option>		  <%		While NOT rs6.EOF		%>		  <option value="<%= rs6("fantasia") %>"><%= rs6("fantasia") %></option>		  <%		rs6.MoveNext 		Wend		%>		</select></td>	  </tr>	  <tr>		<td>Coordenador :</td>		<td><input name="coordenador" type="text" id="coordenador"></td>		<td><div align="left">Fone do Coord.:</div></td>		<td><input name="telefonecoordenador" type="text" id="telefonecoordenador"></td>	  </tr>	  <tr>		<td>Celular do Coord.:</td>		<td><input name="celularcoordenador" type="text" id="celularcoordenador"></td>		<td><div align="left">Responsável :</div></td>		<td><input name="responsavel" type="text" id="responsavel"></td>	  </tr>	  <tr>		<td>Fone do Responsável:</td>		<td><input name="telefoneresponsavel" type="text" id="telefoneresponsavel"></td>		<td>Celular do Respon.</td>		<td><input name="celularresponsavel" type="text" id="celularresponsavel"></td>	  </tr>	   <tr>		<td>Email :</td>		<td><input name="email" type="text" id="email"></td>		<td><div align="left">Status :</div></td>		<td><select name="status2" id="status2">		  <option value="Ativo">Ativo</option>		  <option value="Inativo">Inativo</option>		</select></td>	   </tr>	</table>  </div>  <center>	 <input type="submit" name="envia" value="Confirmar">	 <input type="reset" name="limpa" value="Limpar">  </center></form></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

onde ta o insert nessa página?

Foi mal te mandei o arquivo errado!é que trampei a madrugada toda e jah não to conseguindo pensar direito.<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("dbsistema.mdb")Conexcao.openIf NOT (Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd IfDim Conexcao,sql,rs,verifica,campanha,iniciodia,iniciomes,inicioano,fimdia,fimmes,fimano,tipoacao,produto,coligada,local,coordenador,telefonecoordenador,celularcoordenador,responsavel,telefoneresponsavel,celularresponsavel,email,status2,blnEnvioEmail,intRetorno,varcodcampanha = Request.Form("campanha")iniciodia = Request.Form("iniciodia")iniciomes = Request.Form("iniciomes")inicioano = Request.Form("inicioano")fimdia = Request.Form("fimdia")fimmes = Request.Form("fimmes")fimano = Request.Form("fimano")tipoacao = Request.Form("tipoacao")produto = Request.Form("produto")coligada = Request.Form("coligada")local = Request.Form("local")coordenador = Request.Form("coordenador")telefonecoordenador = Request.Form("telefonecoordenador")celularcoordenador = Request.Form("celularcoordenador")responsavel = Request.Form("responsavel")telefoneresponsavel = Request.Form("telefoneresponsavel")celularresponsavel = Request.Form("celularresponsavel")email = Request.Form("email")status2 = Request.Form("status2")%><%Response.Expires = 0%><% sSQL = "INSERT INTO campanha(campanha,iniciodia,iniciomes,inicioano,fimdia,fimmes,fimano,tipoacao,produto,coligada,local,coordenador,telefonecoordenador,celularcoordenador,responsavel,telefoneresponsavel,celularresponsavel,email,status2) VALUES ('"& campanha &"','"& iniciodia &"','"& iniciomes &"','"& inicioano &"','"& fimdia &"','"& fimmes &"','"& fimano &"','"& tipoacao &"','"& produto &"','"& coligada &"','"& local &"','"& coordenador &"','"& telefonecoordenador &"','"& celularcoordenador &"','"& responsavel &"','"& telefoneresponsavel &"','"& celularresponsavel &"','"& email &"','"& status2 &"')" Conexcao.Execute sSQL,intRetornoset RS=nothingConexcao.closeSet Conexcao=nothing%><html><head><title>Sistema NewStyle</title></head><body bgcolor="#ffffff" link="#9f0203" alink="#9f0203" ulink="#9f0203" blink="#9f0203"><center><table width="75%" border="0"> <tr> <td><div align="center"></div></td> </tr></table></center><center> <table width="75%" border="0"> <tr> <td><div align="center"> <p> </p> <p> </p> <p><font color="#000000" size="6">Cadastro efetuado com sucesso!</font></p> <p> </p> <p> </p> <table> <tr> <td> </td> <td><div align="left"><a href="http://www.newstyle1.com/sistema/atendimento.asp"><strong><font color="#000000" size="4">VOLTAR</font></strong></a></div></td> <td> </td> </tr> </table> <p> </p> </div></td> </tr></table></center><p> </p></body></html>esse eh o certo!Abraços!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cidre    0

Cidre
Postado

então você teria que ter um campo na tabela para o código dessa pessoa, onde você inseria o conteudo da session como falei antes, ai só a pessoa que cadastrou vai poder visualizar, nem o coordenador nem o responsável poderão

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

então você teria que ter um campo na tabela para o código dessa pessoa, onde você inseria o conteudo da session como falei antes, ai só a pessoa que cadastrou vai poder visualizar, nem o coordenador nem o responsável poderão

Eu tenho que colocar esse campo só no meu banco ou tenho que colocar no meu cadastro tb e a pessoa inseria manualmente ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cidre    0

Cidre
Postado

A pessoa vai se logar e você vai guardar o código dela na session, vai inserir o campo na tabela e qndo for cadastrar a campanha vai inserir esse valor da session no campo

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

A pessoa vai se logar e você vai guardar o código dela na session, vai inserir o campo na tabela e qndo for cadastrar a campanha vai inserir esse valor da session no campo

entao beleza!na na tabela do meu banco criei um campo chamado "dono" para que session ir para la.e como eu faço para ele ir agora?abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

qual o campo e tabela que tem o codigo de cada pessoa que pode se logar no sistema

O nome da tabela é "cadatendimento" e o campo é "login" e o outro é "senha"

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

mas não tem um cdatendimento ou algo parecido????

TEM SIM!!!!nessa tabelas tem os campo:-codAtendimento-login-senha-email-celulaAbraços!

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

então, no campo dono que você criou na outra tabela põe esse codatendimento do cara que cadastrou

então, no campo dono que você criou na outra tabela põe esse codatendimento do cara que cadastrou

Cidre,eu não sei fazer o codatendimento ir para o banco no campo Dono altomaticamente.O que entendi é o seguinte quando quando a pessoa se loga no sistema o login dela fica armazenado em uma Session ai quando ela entra nesse cadastro de campanhas ele ainda está armazenado.Quando ela cadastra a campanha o arquivo que "pega" os dados e joga para o banco teria que pegar a informação da session e jogar para o campo dono certo?Mas eu não consigo fazer a session jogar para esse campo dono!!!!Ontem tava tentando fazer e fiz assim:
<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("dbsistema.mdb")Conexcao.openIf NOT (Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd IfDim Conexcao,sql,rs,verifica,campanha,iniciodia,iniciomes,inicioano,fimdia,fimmes,fimano,tipoacao,produto,coligada,local,coordenador,telefonecoordenador,celularcoordenador,responsavel,telefoneresponsavel,celularresponsavel,email,status2,blnEnvioEmail,intRetorno,varcodcampanha = Request.Form("campanha")iniciodia = Request.Form("iniciodia")iniciomes = Request.Form("iniciomes")inicioano = Request.Form("inicioano")fimdia = Request.Form("fimdia")fimmes = Request.Form("fimmes")fimano = Request.Form("fimano")tipoacao = Request.Form("tipoacao")produto = Request.Form("produto")coligada = Request.Form("coligada")local = Request.Form("local")coordenador = Request.Form("coordenador")telefonecoordenador = Request.Form("telefonecoordenador")celularcoordenador = Request.Form("celularcoordenador")responsavel = Request.Form("responsavel")telefoneresponsavel = Request.Form("telefoneresponsavel")celularresponsavel = Request.Form("celularresponsavel")email = Request.Form("email")status2 = Request.Form("status2")session("login")= Request.Form("dono")Response.Expires = 0	sSQL = "INSERT INTO campanha(campanha,iniciodia,iniciomes,inicioano,fimdia,fimmes,fimano,tipoacao,produto,coligada,local,coordenador,telefonecoordenador,celularcoordenador,responsavel,telefoneresponsavel,celularresponsavel,email,status2,dono) VALUES ('"& campanha &"','"& iniciodia &"','"& iniciomes &"','"& inicioano &"','"& fimdia &"','"& fimmes &"','"& fimano &"','"& tipoacao &"','"& produto &"','"& coligada &"','"& local &"','"& coordenador &"','"& telefonecoordenador &"','"& celularcoordenador &"','"& responsavel &"','"& telefoneresponsavel &"','"& celularresponsavel &"','"& email &"','"& status2 &"','"& dono &"')"	Conexcao.Execute sSQL,intRetornoset RS=nothingConexcao.closeSet Conexcao=nothing%>
Mas da erro, pois concerteza fiz alguma coisa nada a ve!Me da uma ajuda ai no que errei!Valeu!ShUmI

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cidre    0

Cidre
Postado

tenta assim:

 

sSQL = "INSERT INTO campanha& #40;campanha,iniciodia,iniciomes,inicioano,fimdia,fimmes,fimano,tipoacao,produto,coligada,local,coordenador,telefonecoordenador,celularcoordenador,responsavel,telefoneresponsavel,celularresponsavel,email,status2,dono) VALUES ('"& campanha &"','"& iniciodia &"','"& iniciomes &"','"& inicioano &"','"& fimdia &"','"& fimmes &"','"& fimano &"','"& tipoacao &"','"& produto &"','"& coligada &"','"& local &"','"& coordenador &"','"& telefonecoordenador &"','"& celularcoordenador &"','"& responsavel &"','"& telefoneresponsavel &"','"& celularresponsavel &"','"& email &"','"& status2 &"','"& Session("login") &"')"	Conexcao.Execute sSQL,intRetorno

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito