
Fabiano Furquim
Membros-
Total de itens
40 -
Registro em
-
Última visita
Tudo que Fabiano Furquim postou
-
Valeu pela dica... E pode deixar q vou me aprofundar no assunto Ocorre um outro problema... A sessão não esta enviando os dados.. Primeiro faço uma consulta para ver se existe o usuario a ser alterado, depois redireciono para a pagina de alteração com as informações na sessão. Mas não esta enviando nada. Já teste a sessão antes de redirecionar a pagina e a sessão esta com as informações. Código da cunsulta <?php ob_start(); //Recebe as variáveis $login = $_POST['exclui']; //Verifica se não esta vazia if ($login == "") {?> <script>alert("Informe o usuário a ser alterado!");</script> <?php } //Conexão com o Banco de dados $conn = mysql_connect("localhost","root",""); //Seleção do Banco de dados if ($conn) { mysql_select_db("bduser",$conn); } //Seleciona as informações do Banco de dados $sql = "SELECT * FROM usuarios WHERE login='$login'"; //Executa o comando sql $rs = mysql_query($sql, $conn); //Retornamos o número de linhas retornadas $num = mysql_num_rows($rs); //Verifica os dados no Banco de dados if ($num > 0) { //Retorna os dados encontrados $rst = mysql_fetch_array($rs); $id = $rst['id']; $nome = $rst['nome']; $senha = $rst['senha']; $curso = $rst['curso']; $modulo = $rst['modulo']; $semestre = $rst['semestre']; $bimestre = $rst['bimestre']; $pagamento = $rst['pagamento']; $situacao = $rst['situacao']; //Inicia a Sessão com os dados retornados da consulta session_start(); $_SESSION["id1"] = $id; $_SESSION["nome1"] = $nome; $_SESSION["login1"] = $login; $_SESSION["senha1"] = $senha; $_SESSION["curso1"] = $curso; $_SESSION["modulo1"] = $modulo; $_SESSION["semestre"] = $semestre; $_SESSION["bimestre"] = $bimestre; $_SESSION["pagamento"] = $pagamento; $_SESSION["situacao"] = $situacao; //encerra conexão mysql_close($conn); header("Location: alteracao.html"); } else {?> <script>alert ("Dados não encontrados");</script> <?php } ?> O form da alteração esta assim: <form name="form1" method="post" action="alteracao.php"> <table width="577" border="0"> <tr> <td width="89" align="right">Nome.:</td> <td width="180"><input name="nome" type="text" width="180" <? echo "<input name='nome' type='text' values='$_SERVER['nome1']"; ?></td> <td width="71" align="right">Login.:</td> <td width="219"><input name="login" type="text" style="text-transform:uppercase" width="180"></td> </tr> <tr> <td align="right">Curso.:</td> <td><input name="curso" type="text" style="text-transform:uppercase" width="180"></td> <td align="right">Módulo.:</td> <td><input name="modulo" type="text" style="text-transform:uppercase" width="180"></td> </tr> <tr> <td align="right">Semestre.:</td> <td><input name="semestre" type="text" style="text-transform:uppercase" width="180"></td> <td align="right">Bimestre.:</td> <td><input name="bimestre" type="text" style="text-transform:uppercase" width="180"></td> </tr> <tr> <td align="right">Pagamento.:</td> <td><input name="pagamento" type="text" style="text-transform:uppercase" width="180"></td> </tr> <tr> <td align="right"><p>Senha</p> </td> <td><input name="senha" type="password" style="text-transform:uppercase" width="180"></td> <td colspan="2" align="center"><input name="submit" type="submit" value="Alterar"></td> </tr> </table> </form> Não completei a passagem de variáveis por não estar funcionando... Pode ser por que já estou usando uma sessão para a parte restrita do site? Porem o nome das variáveis nas sessões estão diferentes. Desde já agradeço pela atenção
-
Desculpe minha ignorância, mas é exatamente isso q não sei como fazer. Não sei onde por o código <?php echo "$_SESSION["nome"]"?> Se você tiver um exemplo de onde coloco o código ajudaria muito mesmo.... Mas mesmo assim a dica foi muito utíl.... Agradeço pela ajuda
-
Boa noite a todos. Estou querendo fazer uma pagina de pesquisa no meu site. Até ai tudo bem, gostaria que apos a pesquisa os dados fossem retornados para um form para q depois eu possa alterar alguma informação, já que esta parte do site estara disponível apenas para o administrador do mesmo. Alguém tem alguma idéia de como posso fazer isso, retornar as inormações da consulta em um form? Sendo q o código de consulta e alteração já estão pronto? Esta faltando só jogar essas informações para o form. Se alguém tiver uma solução fico agradecido. Desde já agradeço pela ajuda de todos.
-
Puts... que distração a minha... Valeu amigo, consegui resolver os dois problemas.....
-
Boa Tarde a todos. Estou com um problema na hora de inserir dados no meu bco de dado mysql, os dado não são inseridos. Tenho um site todo projetado em ASP com bco de dados access, estou reprogramando ele e passando para php e mysql. Não tenho muito conhecimento dessas linguagens, pra dizer a verdade ainda estou aprendendo as duas(ASP,PHP). O estranho é q não me retorna nenhuma msg de erro. Será q alguém poderia dar uma olhada no meu código e dizer o q estou fazendo de errado? Código do Formulário: <form name="form1" method="post" action="incluir.php"> <table width="577" border="0"> <tr> <td width="89" align="right">Nome.:</td> <td width="180"><input type="text" name="nome" width="180" style="text-transform:uppercase"></td> <td width="71" align="right">Login.:</td> <td width="219"><input type="text" name="login" width="180" style="text-transform:uppercase"></td> </tr> <tr> <td align="right">Curso.:</td> <td><input type="text" name="curso" width="180" style="text-transform:uppercase"></td> <td align="right">Módulo.:</td> <td><input type="text" name="modulo" width="180" style="text-transform:uppercase"></td> </tr> <tr> <td align="right">Semestre.:</td> <td><input type="text" name="semestre" width="180" style="text-transform:uppercase"></td> <td align="right">Bimestre.:</td> <td><input type="text" name="bimestre" width="180" style="text-transform:uppercase"></td> </tr> <tr> <td align="right">Pagamento.:</td> <td><input type="text" name="pag" width="180" style="text-transform:uppercase"></td> <td align="right">Situação.:</td> <td><input type="text" name="situacao" width="180" style="text-transform:uppercase"></td> </tr> <tr> <td align="right"><p>Senha</p> </td> <td><input type="text" name="senha" width="180" style="text-transform:uppercase"></td> <td colspan="2" align="center"><input name="submit" type="submit" value="cadastrar"></td> </tr> </table> </form> Código do php.: <?php $nome = $_POST['nome']; $login = $_POST['login']; $senha = $_POST['senha']; $curso = $_POST['curso']; $modulo = $_POST['modulo']; $semestre = $_POST['semestre']; $bimestre = $_POST['bimestre']; $pagamento = $_POST['pag']; $situacao = $_POST['situacao']; if ($nome=="") {?> <script>alert("Campo de Preenchimento obrigatório!!");</script> <?php } if ($login=="") {?> <script>alert("Campo de Preenchimento obrigatório!!");</script><?php } if ($senha=="") {?> <script>alert("Campo de Preenchimento obrigatório!!");</script><?php } if ($curso=="") {?> <script>alert("Campo de Preenchimento obrigatório!!");</script><?php } if ($modulo=="") {?> <script>alert("Campo de Preenchimento obrigatório!!");</script><?php } if ($semestre=="") {?> <script>alert("Campo de Preenchimento obrigatório!!");</script><?php } if ($bimestre=="") {?> <script>alert("Campo de Preenchimento obrigatório!!");</script><?php } if ($pagamento=="") {?> <script>alert("Campo de Preenchimento obrigatório!!");</script><?php } if ($situacao=="") {?> <script>alert("Campo de Preenchimento obrigatório!!");</script><?php }?> <?php $conn = mysql_connect("localhost","root","") or die("Impossível Conectar"); if ($conn) { mysql_select_db("bduser",$conn); } $adiciona = "INSERT INTO usuarios (nome, login, senha, curso, modulo, semestre, bimestre, pagamento, situacao) VALUES (2, '$nome','$senha','$curso','$modulo','$semestre','$bimestre','$pagamento','$situacao')"; mysql_query($add); ?> <script>alert("Dados Inseridos com Sucesso!");</script> <?php mysql_close($conn); header("Location: inserir.html"); ?> Já testei para ver se as variáveis estavam vazia, elas retornam exatamento o q foi passado pelo comando post. a estrutura do banco de dados é a seguinte.: Create table usuarios ( id int(10) not null auto_increment, nome varchar(50) not null, login varchar(10) not null, senha varchar(10) not null, curso varchar(5) not null, modulo varchar(5) not null, semestre varchar(5) not null, bimestre varchar(5) not null, pagamento int(1) not null, situacao varchar(1) not null ); Desde já agradeço pela atenção de todo. OBS.: A clausula header esta retornando um erro. Warning: Cannot modify header information - headers already sent by (output started at C:\wamp\www\authent\incluir.php:69) in C:\wamp\www\authent\incluir.php on line 72
-
Consulta, Alteração E Inclusão No mesmo Form
pergunta respondeu ao Fabiano Furquim de Fabiano Furquim em ASP
Agradeço pelas suas dicas e sugestões Ajudando por gostar de ajudar, e pode ficar certo q vou tentar ao maximo segui-las Obrigado -
O código é o mesmo do inicio, não alterei nada no código.
-
Boa Tarde Pessoal do ScripBrasil!!! Estou precisando fazer um formulário q receba um nome de usuário, retorne as informações na tela e eu possa fazer alterações caso o usuário já esteja cadastrado, do contrario gostaria de deixar o usuário incluir informações no bco de dados. Complicado???? Vou tentar explicar melhor. Tenho um formulário onde o admin entra com o usuário, é retornado todas as informações do bco de dados caso o usuário esteja cadastrado, do contrário será exibida uma mensagem dizendo q o usuário não existe e q se for da vontade dele ele pode incluir esse usuário. Bom estou usando os seguintes código.: Conexão com o BD.: (obs.: Código esse encontrado aqui, feito pela Andreia_sp) <% sub abre_conexao Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("charged.mdb") & ";" end sub sub fecha_conexao Conexao.close Set Conexao = nothing end sub %> Pretendo alterar a seguinte consulta para utilizar.: (Código tb encontrado aki, feito pela Andreia_sp com algumas alterações feitos por Barreta) <!--#include file="conexao.asp"--> <% dim conexao call abre_conexao busca = Resquest.form("busca") rst = "SELECT * FROM users WHERE user = '"& busca &"' " set bd = conexao.execute(rst) If not bd.EOF Then %> <%= bd("nome") %> <br> <%= bd("endereço") %> <br> <%= bd("numero") %> <br> <%= bd("complemento") %> <br> <%= bd("bairro") %> <br> <%= bd("cep") %> <br> <%= bd("cidade") %> <br> <%= bd("uf") %> <br> <%= bd("fome1") %> <br> <%= bd("fone2") %> <br> <%= bd("email") %> <br> <%= bd("MSN") %> <br> <%= bd("icq") %> <br> <%= bd("cpf") %> <br> <%= bd("conhecimentos") %> <br> <%= bd("linguas") %> <br> <%= bd("experienciasprofissionais") %> <br> <%= bd("areaseatuacao") %> <br> <% bd.movenext End If bd.close %> Código do formulário.: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> <style type="text/css"> <!-- .style2 {font-size: 24px} --> </style> </head> <body> <div align="center"><span class="style2">Manuteção do sistema</span></div> <p> </p> <form id="form1" name="form1" method="post" action="consulta.asp"> <label>Usuário.: <input name="busca" type="text" id="busca" /> </label> <label>Nome.: <input name="nome" type="text" id="nome" /> </label> <label>Curso.: <input name="curso" type="text" id="curso" /> </label> <p> <label>Semestre.: <input name="sem" type="text" id="sem" /> </label> <label>Bimestre.: <input name="bim" type="text" id="bim" /> </label> </p> <p> <label>Situação <select name="sit" id="sit"> <option value="A">Ativo</option> <option value="I">Inativo</option> </select> </label> <label>Pagamento <select name="pag" id="pag"> <option value="1">Em Dia</option> <option value="0">Em Atrazo</option> </select> </label> </p> </form> <p> <label></label> </p> <p> <input name="pas_con" type="submit" id="pas_con" value="Consulta" /> <input name="alter" type="submit" id="alter" value="Alteração" /> <input name="inclu" type="submit" id="inclu" value="Inclusão" /> </p> </body> </html> Se alguém puder me ajuda. quanto as código de alteração e inclusão ainda não sei como faze-los por isso não postei-os junto, se tiverem sugestões de como faze-los ficarei grato. Desde já agradeço pela atenção de todos Fabiano Furquim
-
Olá Andreia... Obrigado por me ajudar, o erro foi resolvido, porém retornou um outro erro que tb desconheço. Se possivel poderia me ajudar novamente? O erro é o seguinte.: Provider erro '80004005' Erro não especificado /counter.asp, line 5 Desde já agradeço pela atenção e ajuda Fabiano Furquim
-
Bom dia a todos!!! Estou com um problema em um contador de acesso q estou tentando incluir na minha pragina, mas no entando esta dando o seguinte erro.: Microsoft OLE DB Provider for ODBC Drivers erro '80004005' [Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável. /counter.asp, line 9 Não sei do q se trata, já lí relí o código mas não consegui encontrar o erro se alguém puder me ajudar fico agradecido. Segue o código do counter.asp abaixo.: <% Dim Connection, RS, Page, Counts Page=Request.ServerVariables("SCRIPT_NAME") Set Connection=Server.Createobject("ADODB.Connection") Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("counter.mdb") If Len(Session(Page)) = 0 Then Set RS = Connection.Execute("SELECT * FROM counter WHERE fldPage = '" & Page & "'") If RS.EOF = TRUE Then Connection.Execute("INSERT INTO counter (fldPage, fldCount) VALUES ('"&Page&"', 0)") End If Set RS = Connection.Execute("SELECT * FROM counter WHERE fldPage = '" & Page & "'") Counts=RS("fldCount")+1 Set RS = Connection.Execute("UPDATE counter SET fldCount = " & Counts & " WHERE fldPage = '" & Page & "'") Session(Page) = "something" Connection.Close Else Set RS = Connection.Execute("SELECT * FROM counter WHERE fldPage = '" & Page & "'") Counts=RS("fldCount") End If Response.Write Counts %> Este arquivo utiliza um bco com três campos.: FLDID, FLDPAGE,FLDCOUNT. Estou fazendo a chamada do counter da seguinte maneira.:<!--#include file="counter.asp"--> Desde já agradeço pela atenção Fabiano Furquim
-
Olá. Estou com um outro problema q acho agora ser mais simlpe de resolver... Fiz o q você me disse, consegui recuperar o conteúdo do bco de dados porem o select não esta redirecionando corretamente para a pagina q deveria ir.. já fiz um response.write e o conteúdo da Session esta de acordo com o q esta no bco.... Será q mais uma vez você poderia me ajudar? Abaixo segue meu cod completo.: <% Dim user, pass, pag, stt stt = "A" pag = "1" user = Request.Form("user") pass = Request.Form("pass") Dim conObj Set conObj = Server.CreateObject("ADODB.Connection") conObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("charged.mdb") & ";" 'Session("Tipo_usuario") = conObj("curso") Dim sql, modu, sem, cur sql = "SELECT * FROM users WHERE user='" & user & "' AND pass='" & pass & "' AND situacao='"& stt &"' AND pag='" & pag &"'" ' O código acima verifica se exite o usuario e a senha e se a situação e o pagamento estão em dia sem = "SELECT sem FROM users WHERE user='" & user & "' AND pass='" & pass & "' AND situacao='"& stt &"' AND pag='" & pag &"'" 'Captura o Semestre do usuario e senha digitados acima somente se estiver em dia com os pagamentos modu = "SELECT modu FROM users WHERE user='" & user & "' AND pass='" & pass & "' AND situacao='"& stt &"' AND pag='" & pag &"'" 'Captura o Módulo do usuario e senha digitados acima somente se estiver em dia com os pagamentos cur = "SELECT curso FROM users WHERE user='" & user & "' AND pass='" & pass & "'" 'Captura o curso do usuario e senha digitados digitados Session("semestre") = sem 'Cria sessão semestre para testar em outra pagina Session("Modulo") = modu 'Cria sessão Módulo para testar em outra pagina Session("cur")= cur '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Dim ResPes 'Pega a informação no bco de dados set ResPes = conObj.Execute(cur) Session("tipo_usuario")=ResPes("curso") '================================================================================================== Dim rs Set rs = conObj.Execute(sql) If rs.EOF Then login = false Else login = true End If 'Se todas as condições forem obdecidas então o usuário sera logado e direcionado para pag If login = true Then Session("log") = true Session("dynamiclog") = Session.SessionID Select Case (Session("Tipo_Usuario")) case "adm" 'Administrador Site Response.Redirect("..\authent\online.asp") case "mec" 'Mecânica Response.Redirect("..\authent\pag_mecanica.asp") case "mct" 'Mecatrônica Response.Redirect("..\authent\mecatronica.asp") case "ele" 'Eltrônica Response.Redirect("..\authent\eletronica.asp") case "inf" 'Informática Response.Redirect("..\authent\informatica.asp") case "pro" 'Professores Response.Redirect("..\authent\professores.asp") case "sec" 'Secretaria Response.Redirect("..\authent\secretaria.asp") case else Response.Redirect("erro.asp") End Select Else Response.redirect("erro.asp") End If %> Ele não da erro, mas sempre abre a pagina de erro.asp, onde o usuário é jogado quando a senha, usuário ou outro critério esta fora do padrão... Novamente Agradeço pela atenção Consegui resolver!!!!!!!!!!!! OBRIGADO
-
Pode deixar agora entendi o q estava fazendo de errado... Muito Obrigado por me explicar onde eu estava errando.. Até a proxima e continue assim sempre apoiando.. Vlw e até a proxima
-
Não posso simplesmente igualar a variavél Modu ao q sera retornado de um select para depois usar o Select Case? Vou exemplificar dim curso curso = "select curso from users Where user='" & user &"' AND pass='" & pass &"' AND pag='"pago"'" onde as variavéis User e pass são fornecidas na hora do login e a variável pag tem de ser a mesma sempre ou seja só tera acesso quem esta com o pagamento em dia, para depois eu veirficar qual seria a pagina apropriada para o usuário??
-
Bom não sei se vou poder te ajudar, tb sou novato no asp mas vamos lá. Eu faço a conexão do bco assim.: Dim conexao Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("hbd.mdb") & ";" busca = Request.Form("busca") Dim vbusca vbusca = "SELECT * FROM cadastro WHERE nome='" & busca & "'" Acho q assim pode funcionar pra você...Só é diferente a maneira q você envia a variavel, estou enviando com o post e você com o get qlq coisa é so falar
-
Bom Dia a todos Criei um sistema de login onde são verificados varios paramentros para q o usuário possa acessar o conteúdo exclusovo. Bom até ai tudo bem consegui, ele verifica td certinho, então pensei em usar um select case para redirecionar o usuário deiratamente para sua àrea dependo do seu cadastro, fiz o select e ele não direciona para a pagina. Abaixo Segue código utilizado.: <% Dim user, pass, pag, stt stt = "A" pag = "1" user = Request.Form("user") pass = Request.Form("pass") Dim conObj Set conObj = Server.CreateObject("ADODB.Connection") conObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("charged.mdb") & ";" Dim sql, modu sql = "SELECT * FROM users WHERE user='" & user & "' AND pass='" & pass & "' AND situacao='"& stt &"' AND pag='" & pag &"'" modu = "SELECT curso FROM users WHERE user='" & user & "' AND pass='" & pass & "' AND situacao='"& stt &"' AND pag='" & pag &"'" ' O código acima verifica se exite o usuario e a senha e se a situação e o pagamento estão em dia Dim rs Set rs = conObj.Execute(sql) If rs.EOF Then login = false Else login = true End If 'Se todas as condições forem obdecidas então o usuário sera logado e direcionado para pag If login = true Then Session("nxhvezzduzyslpkadmzlhnvozyoudgcuisj") = true Session("dynamicUserId") = Session.SessionID Select Case modu case "adm" 'Administrador Site Response.Redirect("..\authent\admin.asp") case "mec" 'Mecânica Response.Redirect("..\authent\mecanica.asp") case "mct" 'Mecatrônica Response.Redirect("..\authent\mecatronica.asp") case "ele" 'Eltrônica Response.Redirect("..\authent\eletronica.asp") case "inf" 'Informática Response.Redirect("..\authent\informatica.asp") case "pro" 'Professores Response.Redirect("..\authent\professores.asp") case else 'Secretaria Response.Redirect("..\authent\secretaria.asp") End Select Else Response.redirect("erro.asp") End If %> Será q alguém poderia dar uma opinião sobre o q estou fazendo de errado, pois não consegui enchergar o erro... Desde já agradeço pela atenção de todos Fabiano Furquim