Ir para conteúdo
Fórum Script Brasil

jow

Membros
  • Total de itens

    546
  • Registro em

  • Última visita

Tudo que jow postou

  1. jow

    Problemas com tags

    você tem q ter apenas um htm, body ... e apenas um head pra funcionar .... a estrutura do html deverá ser apenas um ... ou seja você não pode ter duas vez <html><head></head><body></body></html> na mesma página ..... Talves tenha a mesma estrutura ou algo parecido na sua página e no seu include ... verifica isso ... caso não seja isso também poste a página q recebe o include ... abraçosss
  2. você está testando dentro da pasta WWWROOT "localhost" correto ??? ... posta como tá o seu código agora ....
  3. Olá conforme o Rafael Spilki citou vamos por partes OK ??? Vamos lá, op's o seu script está em PHP, este subforúm é para dúvidas em asp dúvidas em php deverão ser postadas no subforúm de php, pois lá acredito q você irá encontrar a melhor resposta para o seu script ....
  4. Abaixo um script, onde é possivel controlar as págnias q os usuários podem acessar :: config/conexao.asp <% dim cnn sub abre_conectar set cnn=server.CreateObject("adodb.connection") 'Abrimos uma conexão com o banco de dados - [IMPORTANTE] altere os dados abaixo com as informações de sua base de dados cnn.Open("DRIVER={MySQL ODBC 3.51 Driver};SERVER=ACRIAR;PORT=3306;DATABASE=ACRIAR;USER=ACRIAR;PASSW ORD=ACRIAR;OPTION=3;") end sub sub fecha_conectar cnn.close Set cnn = nothing end sub %> ACRIAR = a suas configurações de acesso includes/verifica.asp // está página apenas verifica se o usuário se logou ou não ... <% if session("login") <> true then response.redirect "default.asp" end if %> default.asp <form name="login" method="post" action="login.asp"> <table width="250" border="0" align="center" cellpadding="4" cellspacing="2"> <tr> <td width="33%"><div align="right">Usu&aacute;rio:</div></td> <td width="67%"><input name="login" type="text" size="20" maxlength="20"></td> </tr> <tr> <td><div align="right">Senha:</div></td> <td><input name="senha" type="password" size="11" maxlength="15"> </td> </tr> <tr> <td colspan="2"><center><input name="enviar" type="submit" value="Enviar" border="0"> </center> </tr> </table> </form> login.asp <!--#include file="config/conexao.asp"--> <% call abre_conectar login=Request.Form("login") senha=Request.Form("senha") sql = "SELECT * FROM users WHERE login='"&login&"' AND senha='"&senha&"' " set tab = cnn.execute(sql) ' Caso os dados não estiverem corretos o usuário é enviado para a entrar.htm if tab.eof then response.write "Login ou Senha inválidos" else Session("nivel")= tab("nivel") Session("login")=TRUE Response.Redirect"pagina.asp" end if call fecha_conectar set tab = nothing %> membros.asp <form action="inserir_membro.asp" method="post" name="form" onSubmit="return valida_campo()"> <table width="100%" border="0" cellpadding="0" cellspacing="6"> <tr> <td width="12%" class="titulo1">Nome</td> <td width="88%"><input name="nome" type="text" class="formulario"></td> </tr> <tr> <td class="titulo1">Email</td> <td><input name="email" type="text" class="formulario" onBlur="confere()"></td> </tr> <tr> <td class="titulo1">Celular</td> <td><input name="celular" type="text" class="formulario"></td> </tr> <tr> <td class="titulo1">Login</td> <td class="titulo1"><input name="login" type="text" class="formulario"> <span class="style1">*</span></td> </tr> <tr> <td class="titulo1">Senha</td> <td class="titulo1"><input name="senha" type="password" class="formulario"> <span class="style1">*</span></td> </tr> <tr> <td class="titulo1">Nivel</td> <td class="titulo1"><input name="nivel" type="text" class="formulario"> <span class="style1">*</span></td> </tr> <tr> <td><input type="submit" class="formulario" value="Salvar"></td> </tr> </table> </form></div> inserir_membro.asp <!--#include file="../includes/verifica.asp"--> <% if session("login") <> true then response.redirect "../default.asp" end if %> <!--#include file="../config/conexao.asp"--> <% call abre_conectar nome=request.Form("nome") celular=request.Form("celular") email=request.Form("email") login=request.Form("login") senha=request.Form("senha") nivel=request.Form("nivel") sql = "insert into users (nome, celular, email, login, senha, nivel)" sql = sql & " values ('"&nome&"', '"&celular&"', '"&email&"', '"&login&"', '"&senha&"', '"&nivel&"')" set tab = cnn.execute(sql) call fecha_conectar set tab = nothing response.write "Cadastro realizado com sucesso" %> <a href="membros.asp">Voltar</a> OBS: Nas páginas onde o conteúdo é restrito ... basta usar um if no topo dá página, ou em algum conteúdo restrito... if session("nivel") = 1 'este numero é o mesmo número q foi gravado na tabela como a permissão do usuário, 'ou seja pode ser alterado de acordo com o usuário q você queira restringir response.write "Aki você insere o conteúdo dá página" else response.write "Acesso Restrito" end if Bom galera espero ter ajudado ... Abraçossss
  5. jow

    autenticação de usuarios

    Com sessions ou cookies você consegue fazer isso, mas também tem como fazer isso apenas como o banco de dados ... ao cadastrar o login e senha do usuário, você também deve cadatrar o nome dele, ao fazer o login você compara se o login e a senha cadatrada no banco é igual ao q foi digitado ...
  6. É como foi dito acima Dá uma olhada se os valores do banco de dados e do formulário conferem, você está mandando como valor vnoticia, onde você está pegando este valor ... Se você não conseguir resolver faça isso, mas depois de mandar executar o seu insert response.write strINS response.end()
  7. jow

    formatando valor

    Bom cara tenta com Split str=request.form("valor") valor=split( str , "," ) 'No caso coloquei virgula, pois o separador este, caso seja outro basta mudar para o desejado. for i = 0 to UBound(valor) If len(valor(i)) > 0 then strQuery = "INSERT INTO contvendas (valor) VALUES ('"&valor(i)&"')" <%else end if%> next
  8. Cara tenta esse código ... Funciona perfeitamente para o q você quer ... <form action="pagina.asp" method="get"> <% sql = "Select * from projetos tabela " set tab = cnn.execute(sql) if not tab.eof then%> <table width="100%"> <tr> <td>Registro para deletar</center></td> <td><input name="Submit" type="submit" value="Excluir"></center></td> </tr> <td>Registro para deletar</td> <td><input name="checkbox" type="checkbox" value="<%=tab("campo")%>"></td> </tr> Pagina deletar 'Dim objConn, stringSQL, strConnection, array_campo, i, sql_campo, campo,strDBPath campo = Request.QueryString("checkbox") 'Caso ocorra algum erro os precessos não são interrompidos 'e é passado para a próxima linha de comando On error Resume Next if err = 0 and campo <> "" then array_campo = split(campo,",") For i=0 to ubound(array_campo) sql_campo = sql_campo & "tabela.campo = " & Trim(array_campo(i)) & " OR " 'campo texto, então" & Trim(array_campo(i)) & " OR " 'caso numerico '" & Trim(array_campo(i)) & "' OR " Next sql_campo = left(sql_campo,(len(sql_campo)-4)) sql = "DELETE FROM tabela WHERE "&sql_campo&"" set rs = cnn.execute(sql) %> Seus dados foram exclu&iacute;dos com sucesso! <%else%> Ocorreu algum erro. Nenhum dado foi excluido.<br> <br> <a href="java script:history.back(-1)" >Voltar</a> <%End if%>
  9. Bom dia; Alguém pode me indicar algum script ou tutorial q ensine a fazer com q dentro de um formulário tenha uma opção para inserir mais campos ... exemplo tenho um campo no formulário contato, e q tenha uma opção para o usuário inserir mais contatos. contato: ________________ mais um contato -- Ao clikar no link abre outro contato
  10. <%response.write("'FlashVars','moviez=" & request.querystring("video") & "',") %> response.write: imprime uma valor na tela &: faz a concatenação resquest.querystring: recebe um valor do método GET, caso o método seja POST atere para resquest.form e sempre com ("valorDoFormulário")
  11. jow

    Desenvolvimento comercial

    Bom dia cara legal ... então na minha opnião seria melhor desenvolver com uma linguagem web ... bom como você disse q tem mais experiência com linguagem Desktop, e não tem o mesmo conhecimento com web, isso seria mais um motivo para o desenvolvemento web, pois assim você iria acrescentar mais conhecimento e iria desenvolver uma coisa bacana superando as suas dificuldades ... eu estou desenvolvendo um sistema na web e encontrei umas dificuldades, pois se fosse com linguagem desktop talvez eu não teria tanta dificuldade, mas consegui fazer uma coisa muito legal, e o mais importante foi o conhecimento adquirido, eu particulamente coloquei no meu sistema uma segurança bem legal, criptografia no banco de dados, niveis de acesso por usuário e sempre obrigar ao usuário se logar ... Qt a linguagem de desenvolvimento ... bom isso depende de você ... pois pra mim não é a linguagem de programação o q realmealmente importa, e sim uma boa lógica. Se você tiver experiência com a plataforma Microsoft, o melhor é fazer em asp caso o contrário o melhor é fazer em php. Existem outras linguagens, mas só estou te indicando as linguagens q tenho conhecimento ... Abraçossss
  12. Perfeito Como são recebidos os dados na página admin_main.asp ? mais ou nenos assim: addpass1 = Request.Querystring("addpass")
  13. O q você quer fazer com este código ??
  14. Olá então eu também tive o mesmo problema q você e consegui resolver e postei aki como resolvi ... olha o script q eu deixei ... http://scriptbrasil.com.br/forum/index.php?showtopic=120378
  15. Eae Notax beleza ... Cara eu usei este mesmo script e fiz algumas modificações, inclusive a minha idéia inicial era fazer o upload de mais de um arquivo, mas isso não foi possivel pois o upload é sem componentes, ou seja para um determinado tamanho ele dá erro ... Abraçossss
  16. jow

    Includes

    Cara pelo q sei não tem como, pois a cada página seria como se ele atualizasse a nova página ... também estava com a mesma dificuldade q você ... masi ai eu desencanei ... abraçossss
  17. jow

    Erro no Botão Radio

    Posta como está a página q está o erro ... e mensagem de erro também abraçoss ...
  18. jow

    passagem de parametro

    tenta assim: <input name="Submit2" type="submit" onClick="MM_goToURL('parent','novo_chamado.php?id=<? echo $variavel['idp']; ?>."');return document.MM_returnValue" value="&lt;&lt;&lt;&lt;&lt;">
  19. jow

    (Resolvido) Erro ao deletar

    Legal meio caminho andado hauhuahua .... echo no ASP só no PHP kkkk ... response.write(SQL) response.end... Posta como está sua página que deleta os registro ai
  20. jow

    Erro no Botão Radio

    Ná Página onde você altera os dados altere por este script !! <% 'Força o programador a declarar todas as variáveis, evitando erro de digitação no uso das variéveis Option Explicit 'Não deixa informações no Cache Response.Expires = 0 'Declaração das variáveis Dim objConn, strQuery, sql_query, RsQuery, campo, sql, autonum, strDBPath Dim Associado,devedor,datainclusao,documento,valor,serasa,datacordo,valoracordo,valo rpagamento,Andamento,quitacao,ObjRs 'Atrubuição dos valores as respectivas variáveis Associado= Request.Form("Associado") devedor= Request.Form("devedor") datainclusao= Request.Form("datainclusao") documento= Request.Form("documento") valor= Request.Form("valor") serasa= Request.Form("serasa") datacordo= Request.Form("datacordo") valoracordo= Request.Form("valoracordo") valorpagamento= Request.Form("valorpagamento") Andamento= Request.Form("Andamento") quitacao= Request.Form("quitacao") autonum = Request.Form("autonum") autonum = Request.QueryString("radio") 'Cria o objeto RecordSet e atribui a variável Set objConn = Server.CreateObject("ADODB.Connection") 'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access... '(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox) '(*.mdb) indica que o arquivo utiliza extensão mdb 'objConn.Open "DBQ=" & Server.MapPath("contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" strDBPath = Server.MapPath("contato.mdb") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" 'não vou permitir a alteração da foto senão você já viu néw strQuery = "UPDATE Juridico SET Associado= '"&Associado&"',devedor= '"&devedor&"',datainclusao= '"&datainclusao&"' ,documento= '"&documento&"',valor= '"&valor&"',serasa= '"&serasa&"',datacordo= '"&datacordo&"',valoracordo= '"&valoracordo&"' ,valorpagamento= '"&valorpagamento&"' ,Andamento= '"&Andamento&"' ,quitacao= '"&quitacao&"' WHERE autonum ="&autonum 'Caso ocorra um erro esta função de erro será chamada On error Resume Next 'Executaa inserção no Banco de Dados Set ObjRs = objConn.Execute(strQuery) 'Fecha o Objeto de Conexão objConn.close '"APAGA" qualquer instancia que possa ter no objeto objRs e objConn Set objRs = Nothing Set objConn = Nothing if err = 0 Then end if %><p align="center"> <font face="Verdana" size="3" color="#FFFFFF"> </font> <!-- depois de enviado o email... --> <script language="JavaScript">alert('Cadastro efetuado com sucesso!'); location.href='todas_inclusoes.asp';</script> </font> </body> Obs: isso funciona este script está OK, mas do jeito q você quer fazer não vai alterar nada, porque ao escolher você já está mandando fazer o update então vai alterar para q já está, o certo seria ao selecionar o radio ir para um formulário de alteração e como ação esse formulário envia para a página de update dos dados .... Qualquer coisa posta ae Abraçossss
  21. jow

    (Resolvido) Erro ao deletar

    Bom dia, como q você está passando o seu id posta ae ... a página onde você passa o valor do id !!!
  22. jow

    (Resolvido) Erro ao deletar

    estranho, isso ... está testando na sua máquina ???
  23. jow

    (Resolvido) Erro ao deletar

    você está passando o id ??
  24. Cara dá uma olhada nesse link e vê se isso te ajuda.. http://www.oficinadanet.com.br/artigo/353/..._em_asp_simples
  25. jow

    Asp Jpeg

    Hum isso está ocorrendo possivelmente por causa do tamanho do thumb q você está gerando ....
×
×
  • Criar Novo...