mestre fyoda

Membros

Perfil Explorar Conteúdo

Total de itens
1.908
Registro em
Janeiro 13, 2004
Última visita
Novembro 5, 2010

Tipo de Conteúdo

Todas Atividades

Perfis

Fóruns

Tudo que mestre fyoda postou

Conexao Bd

pergunta respondeu ao mestre fyoda de mestre fyoda em ASP

eu quero feito em asp , sem querer eu peguei esse script , me passaram um link e eu baixei .
- Julho 9, 2004
- 3 respostas
Conexao Bd

pergunta respondeu ao mestre fyoda de mestre fyoda em ASP

ei dark eu peguei esse codigo , se for possivel você poderia me passar um pronto pra eu estudar ou um Tutoorial sobre deletar varios usuarios de uma só vez com uma checkbox .
- Julho 9, 2004
- 3 respostas
Conexao Bd

uma questão postou mestre fyoda ASP

me ajudem , como faço para fazer uma conexão no bd nesse codigo . <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_giovani_STRING Recordset1.Source = "SELECT * FROM usuarios" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <form action="executa.asp" method="post" name="form1"> <table width="47%" border="0" cellpadding="1" cellspacing="1" bgcolor="#666666"> <tr> <td width="11%" height="20" bgcolor="#CCCCCC"><div align="center"><font color="#333333" size="2" face="Arial, Helvetica, sans-serif"></font></div></td> <td width="29%" bgcolor="#CCCCCC"><div align="center"><font color="#333333" size="2" face="Arial, Helvetica, sans-serif"><strong>Login</strong></font></div></td> <td width="55%" bgcolor="#CCCCCC"><div align="center"><font color="#333333" size="2" face="Arial, Helvetica, sans-serif"><strong>EMail</strong></font></div></td> </tr> <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <tr bgcolor="#FFFFFF"> <td width="11%" height="10" bgcolor="#E7E7E7"><div align="center"> <input name="del" type="checkbox" value="<%=(Recordset1.Fields.Item("id").Value)%>"> </div></td> <td width="29%" height="10" bgcolor="#E7E7E7"> <font size="2" face="Arial, Helvetica, sans-serif"> <font color="#666666"><%=(Recordset1.Fields.Item("login").Value)%></font></font></td> <td width="55%" height="10" bgcolor="#E7E7E7"> <font size="2" face="Arial, Helvetica, sans-serif"> <font color="#666666"><%=(Recordset1.Fields.Item("email").Value)%></font></font></td> </tr> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %> </table> <br> <input type="submit" value="Delete"> </form> </body> </html> <% Recordset1.Close() Set Recordset1 = Nothing %>
- Julho 9, 2004
- 3 respostas
Administração

pergunta respondeu ao mestre fyoda de mestre fyoda em ASP

você teria um tutorial de como deletar usuarios com checkbox , detalhe , de uma só vez deletar 4 usuarios .
- Julho 8, 2004
- 6 respostas
Administração

pergunta respondeu ao mestre fyoda de mestre fyoda em ASP

tipo , tudo vindo do BD . um tutorial de sistema de admin .
- Julho 8, 2004
- 6 respostas
Administração

uma questão postou mestre fyoda ASP

alguém poderia me passar um site ou um Tutorial sobre administração : Deletar Banir e etc
- Julho 7, 2004
- 6 respostas
Alterar Senha

pergunta respondeu ao mestre fyoda de mestre fyoda em ASP

ei cara você poderia me ajudar um pouco mais , você poderia corrigir o meu codigo e apontar o erro ?
- Julho 7, 2004
- 5 respostas
Alterar Senha

pergunta respondeu ao mestre fyoda de mestre fyoda em ASP

Valeu dark , você esta correto , mas agora esta acontecendo o seguinte , caso você digite alguma senha que esta no banco de dados ele troca . Ai eu acrescentei login = '"&login&"' na linha 31 . Mas agora ele sempre da que a Senha Atual esta incorreta . porque ?   <% AbreConexao If Request.Form("enviado") = "sim" Then senha = Replace(Request.Form("senha"), "'", "/") nova_senha = Replace(Request.Form("nova_senha"), "'", "/") confirma_nova_senha = Replace(Request.Form("confirma_nova_senha"), "'", "/") Set RS = Conexao.Execute("SELECT * FROM usuarios WHERE login = '"&login&"' AND senha = '"&senha&"'") If not RS.EOF Then Response.Write "Senha Atual incorreta!<BR><a href=alterar.asp>Voltar</a>" Else If nova_senha = "" Then Response.Write " O Campo Nova Senha não está preenchido !<BR><a href=alterar.asp>Voltar</a>" Else If confirma_nova_senha = "" Then Response.Write "O Campo Redigite a Nova Senha não está preenchido!<BR><a href=alterar.asp>Voltar</a>" Else If nova_senha = confirma_nova_senha Then Conexao.Execute("UPDATE usuarios SET senha = '"&nova_senha&"' WHERE login = '"&Session("login")&"'") Response.Write "Dados alterados" Else Response.Write "Erro na Confirmação da Nova Senha" End If End IF End If End IF Else Set dados = Conexao.Execute("SELECT * FROM usuarios WHERE login = '"&Session("login")&"'")%> AQUI VAI O FORMULARIO .... .... <% End If FechaConexao %>
- Julho 7, 2004
- 5 respostas
Alterar Senha

uma questão postou mestre fyoda ASP

Esta acontecendo o seguinte , quando o usuario ele altera a sua senha acaba alterando todas as senhas no banco de dados . alguém poderia me passar o codigo corrigido com a explicação do que foi feito .   <% AbreConexao If Request.Form("enviado") = "sim" Then senha = Replace(Request.Form("senha"), "'", "/") nova_senha = Replace(Request.Form("nova_senha"), "'", "/") confirma_nova_senha = Replace(Request.Form("confirma_nova_senha"), "'", "/") Set RS = Conexao.Execute("SELECT * FROM usuarios WHERE senha = '"&senha&"'") If RS.EOF Then Response.Write "Senha Atual incorreta!<BR><a href=alterar.asp>Voltar</a>" Else If nova_senha = confirma_nova_senha Then Conexao.Execute("UPDATE usuarios SET senha = '"&nova_senha&"'") Response.Write "Dados alterados" Else Response.Write "Erro na Confirmação da Nova Senha" End If End IF Else Set dados = Conexao.Execute("SELECT * FROM usuarios WHERE login = '"&Session("login")&"'")%> <form method="POST" action="alterar_senha.asp"> <input type="hidden" name="enviado" value="sim"> Senha Atual: <input type="text" name="senha" size="20"><BR> Nova Senha: <input type="password" name="nova_senha" size="20"><BR> Redigite a Nova Senha: <input type="password" name="confirma_nova_senha" size="20"><BR> <input type="submit" value="Alterar"> </form> <% End If FechaConexao %>
- Julho 6, 2004
- 5 respostas
Duvida Numa Hospedagem

uma questão postou mestre fyoda ASP

eu me cadastrei gratuitamente nesse site http://www.freewebsites.com/ , mas eles não tem ftp proprio e nem me mandaram por email o ftp via browser . Se alguém puder me ajudar .
- Julho 5, 2004
- 4 respostas
Não Esta Imprimindo O Certo

pergunta respondeu ao mestre fyoda de mestre fyoda em ASP

dark eu já disse , o campo ver_email ele esta no banco de dados como texto . Como que faço pra abrir o valor a ela , você poderia me passar o codigo que abre o valor a ela . Grato pela atenção .
- Julho 5, 2004
- 8 respostas
Não Esta Imprimindo O Certo

pergunta respondeu ao mestre fyoda de mestre fyoda em ASP

Agora ele so esta entando no ver_email = "1" . Detalhe , no Access , esse campo esta como Texto .
- Julho 5, 2004
- 8 respostas
Não Esta Imprimindo O Certo

pergunta respondeu ao mestre fyoda de mestre fyoda em ASP

Na hora do cadastro o usuario vai optar em mostrar o email ou não na paginação do site . O que acontece é o seguinte , ele sempre entra no else DA PAGINAÇÂO . Por Que? Campos do formulario : Deseja Mostrar Seu E-mail:    <input type="radio" name="ver_email" checked value="1">Sim <input type="radio" name="ver_email" value="0" >Não Na Paginação : <% if ver_email = 1 Then %> <%=RS("email")%> <% else %> <font face="Verdana" size="1" class="TD"><b>Por Opção do usuario , você não verá o email dele <% END IF %>
- Julho 5, 2004
- 8 respostas
Não Esta Imprimindo O Certo

uma questão postou mestre fyoda ASP

Esta acontecendo o seguinte , No cadastro o usuario ele escolhe se deseja apresentar o email na paginação , no caso sempre esta caindo no Else , porque ? O nome do campo é ver_email , ele só recebe Sim ou não . <% 'Efetuando a conexão com a base de dados criada ----------------------- Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("dados.mdb") Conn.open '-------------------------------------------------------------------------- 'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo, 'pois vamos utilizar algumas funções deste objeto Set RS = Server.CreateObject("adodb.recordset") RS.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise. 'Vamos fazer a busca na tabela contatos SQL = "select * from usuarios" RS.Open SQL,Conn,3,3 'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor 'que zero, se é maior que o número total de páginas, etc. IF RS.EOF then Response.Write "nenhum registro encontrado" Response.End 'paramos o programa ELSE 'Definindo em qual pagina o visitante está IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF 'Fim das verificações de exceções 'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta RS.AbsolutePage=intpagina ' Inicia o contador que vai controlar os registros mostrados intrec=0 'Enquanto o contador for menor que a quantidade de registros mostrados ou ' não for o final do arquivo %> <% While intrec < RS.PageSize and not RS.EOF %> <head> <style>  </style> </SCRIPT> <LINK href="images/padrão.css" rel=stylesheet type=text/css> <STYLE type=text/css>#divUpControl { HEIGHT: 13px; LEFT: 518px; POSITION: absolute; TEXT-ALIGN: right; TOP: 340px; WIDTH: 12px; Z-INDEX: 1 } #divDownControl { HEIGHT: 12px; LEFT: 519px; POSITION: absolute; TEXT-ALIGN: right; TOP: 573px; WIDTH: 11px; Z-INDEX: 1 } #divContainer { CLIP: rect(0px 163px 232px 0px); HEIGHT: 232px; LEFT: 353px; OVERFLOW: hidden; POSITION: absolute; TOP: 346px; VISIBILITY: hidden; WIDTH: 163px } #divContent { LEFT: 0px; POSITION: absolute; TOP: 0px } </STYLE> <STYLE type=text/css>.tabela { BACKGROUND: #f5f5f5; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px } .link { COLOR: #000000; TEXT-DECORATION: none } .link:hover { COLOR: #ff8040; TEXT-DECORATION: none } .TD { COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px } .campo { BACKGROUND: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px } .botao { BACKGROUND: #f3f3f3; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #bbbbbd 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #bbbbbd 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px } .botao2 { BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM-COLOR: #ffffff; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #ffffff; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #ffffff; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #ffffff; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt } .Menu:link { BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px } .Menu:visited { BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px } .Menu:unknown { BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px } .Menu:hover { BACKGROUND-COLOR: #f5f5f5; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px } </STYLE> </head> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="32%" id="AutoNumber1" height="17" bgcolor="#C0C0C0" align="center"> <tr> <td width="14%" height="17" bgcolor="#F8F8F8" rowspan="14"> <p align="center">  <img src="=RS("icon").gif" width=32 height=32 align="left" ></td> <td width="86%" height="10" bordercolor="#C0C0C0" bgcolor="#F8F8F8"> <font size="1" face="Verdana" class="TD"><b> Nome: <%=RS("nome")%></b></font></td> </tr> <tr> <td width="86%" height="7" bordercolor="#C0C0C0" bgcolor="#F8F8F8"> <font size="1" face="Verdana" class="TD"><b> Sobre Nome:  <%=RS("sobre_nome")%></b></font></td> </tr> <tr> <td width="86%" height="2" bordercolor="#C0C0C0" bgcolor="#F8F8F8"> <font face="Verdana" size="1" class="TD"><b> Email:  <%=RS("login")%></b></font></td> </tr> <% if ver_email = "Sim" Then %> <tr> <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top"> <p align="left"> <font face="Verdana" size="1" class="TD"><b> Email:  <%=RS("email")%></b> </font></p> </td> </tr> <% else %> <tr> <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top"> <p align="left"> <font face="Verdana" size="1" class="TD"><b>Por Opção do usuario , você não verá o email dele </td> </tr> <% END IF %> <tr> <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top"> <p align="left"> <font face="Verdana" size="1" class="TD"><b> Estado: <%=RS("estado")%> </b> </font></p> </td> </tr> <tr> <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top"> <p align="left"> <font face="Verdana" size="1" class="TD"><b> Bairro: <%=RS("bairro")%></b> </font></p> </td> </tr> </table> <p align="center"> <br> <% RS.MoveNext ' Acrescenta +1 ao contador intrec=intrec+1 'Se for EOF (fim de arquivo), imprimir branco na tela IF RS.EOF then response.write " " END IF Wend 'fim do loop 'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. IF intpagina > 1 then %> <a href="paginacao.asp?pagina=<%=intpagina-1%>" class="TD">Anterior</a>    <a href="paginacao.asp?pagina=<%=intpagina + 1%>" class="TD">     Próxima </a> <% END IF %>
- Julho 4, 2004
- 8 respostas
Duvida Facil De Resolver

pergunta respondeu ao mestre fyoda de mestre fyoda em ASP

não esta dando certo
- Julho 4, 2004
- 4 respostas
Duvida Facil De Resolver

uma questão postou mestre fyoda ASP

Tem essa parte do meu codigo : set conexao = server.CreateObject("adodb.connection") constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("banco.mdb") conexao.open constr Eu estou hospedado nesse site : http://europe.webmatrixhosting.net , se eu não me engano ele não aceita esse caminho pro BD ("banco.mdb") , o correto seria d:\users\clantibia \... , como que eu colo no codigo acima o d:\users\clantibia \ . Grato.
- Julho 3, 2004
- 4 respostas
Tornar Pasta Particular

uma questão postou mestre fyoda Microsoft Windows

Eu estou no sistema FAT32 , tem como eu tornar a pasta particular ? Esse campo esta desabilitado .
- Julho 1, 2004
- 2 respostas
Windows Xp

uma questão postou mestre fyoda Microsoft Windows

quando você tem um sistema NTFS e você quer formatar o micro , você tem que excluir a partição e depois criar outra ou quando você da o format c: ele automaticamente volta para o FAT 32 ?
- Junho 30, 2004
- 1 resposta
Recursividade

uma questão postou mestre fyoda C, C++

Como exemplo : n=1 -> p n=2 -> p-q n=3 -> p+q n=4 -> p-2q n=5 -> p+2q n=6 -> p-3q n=7 -> p+3q como eu faço isso ?
- Junho 29, 2004
- 2 respostas
Windows Xp

pergunta respondeu ao mestre fyoda de mestre fyoda em Microsoft Windows

ei mano , não deu certo , não tem nenhum botão avançado .
- Junho 28, 2004
- 14 respostas
Windows Xp

pergunta respondeu ao mestre fyoda de mestre fyoda em Microsoft Windows

Esse botão avançado , não tem .
- Junho 28, 2004
- 14 respostas
Windows Xp

pergunta respondeu ao mestre fyoda de mestre fyoda em Microsoft Windows

como faço isso ?
- Junho 27, 2004
- 14 respostas
Windows Xp

pergunta respondeu ao mestre fyoda de mestre fyoda em Microsoft Windows

me ajudem por favor .
- Junho 27, 2004
- 14 respostas
Windows Xp

pergunta respondeu ao mestre fyoda de mestre fyoda em Microsoft Windows

ei mano , eu loguei como administrador e não esta disponivel essa opção . Eu criei essas contas só para um computador , só pra te lembrar .
- Junho 26, 2004
- 14 respostas
Windows Xp

pergunta respondeu ao mestre fyoda de mestre fyoda em Microsoft Windows

essa o~pçao não esta disponivel .
- Junho 26, 2004
- 14 respostas

Entrar

mestre fyoda

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Tudo que mestre fyoda postou

Conexao Bd

Conexao Bd

Conexao Bd

Administração

Administração

Administração

Alterar Senha

Alterar Senha

Alterar Senha

Duvida Numa Hospedagem

Não Esta Imprimindo O Certo

Não Esta Imprimindo O Certo

Não Esta Imprimindo O Certo

Não Esta Imprimindo O Certo

Duvida Facil De Resolver

Duvida Facil De Resolver

Tornar Pasta Particular

Windows Xp

Recursividade

Windows Xp

Windows Xp

Windows Xp

Windows Xp

Windows Xp

Windows Xp

Navegação

Atividades