dark0
-
Total de itens
6.198 -
Registro em
-
Última visita
Tudo que dark0 postou
-
cara.. pelo que eu vi, seu codigo ta meio "atrapalhado" comece assim: monte uma pagina, que peça LOGIN E SENHA. nela, você coloca só um formulario HTML, que tenha espaço pro cara digitar usuario e senha. alguma coisa assim bem basica. E na mesma pagina, você testa, no começo dela, se o usuario e senha são validos. por ex: login.asp <% if request("logar") <> "" then 'conecta no banco: url_conexao = Server.MapPath("banco.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 'depois de conectado, faz o sql, e verifica se o usuario e a senha estao corretos. sql = "select * from tabela where usuario='"&request("usuario")&"' and senha='"&request("senha")&"'" 'executa o sql set rs = conexao.execute(sql) 'testa se o sql encontrou alguma coisa: if rs.eof = true then 'significa que não encontrou... usuario errado response.write "Usuario/Senha invalidos" response.write "<br>volte e redigite!" else 'o sql encontrou, manda ele pra pagina de alteração..e cria uns sessions, prafacilitar session("usuario") = request("usuario") session("senha") = request("senha") session("campo_do_bd") = rs("campo_bd") 'e assim, coloca os campos que tem no seu banco, que ele podera alterar end if else %> <html> <body> <form method="POST"> <p>usuario:<input type="text" name="usuario" size="20"></p> <p>senha:<input type="text" name="senha" size="20"></p> <p><input type="submit" value="Logar" name="logar"></p> </form> </body> </html> <%end if%> pronto. agora, na pagina de alterar, você testa se a session não esta vazia, e coloca os campos, pra ele digitar as alterações.. e depois faz um update.. sql = "update tabela set campo1='"&campo1&"',campo2='"&campo2&"' where condicao='"&condicao&"'" set rs = conexao.execute(sql) ali no update, você pode acrescentar campos, separando por virgulas. tá aí o caminho das pedras... abraços
-
deixa ver se eu entendi: você captura a id do cara (no caso 2), você acessa a página de ADM.. beleza. lá dentro você faz o que, um select? sql = "select * from tabela where id="&session("id")&"" é isso?
-
opa.. beleza? eu tava procurando algo sobre isso e achei alguma coisa: segue: '----------------------------------------------------------- 'Instanciando o Objeto Word (Precisa de MS Office instalado no servidor!!!) Set objWord = CreateObject("Word.Application") ' Declarando as váriáveis (se não declarar não funciona!!!) DIM nome, perfil, arquivo, formacao, experiencia Nome = rsCliente("Nome") perfil = rsCliente("DscPerfil") formacao = rsCliente("Formacao") experiencia = rsCliente("experiencia") cargos = rsCliente("CargosAnteriores") ' esta variável defini onde o arquivo vai ser salvo e com qual nome (definido por txtNomeArquivo) arquivo = "c:\Inetpub\wwwroot\arquivos\" & request("txtNomeArquivo") & ".doc" ' aqui começamos a trabalhar com o arquivo Word '----------------------------------------------------------------------------------- 'Aqui definirmos o modelo de documento que vamos usar... Precisa ser um arquivo ".DOT" 'Se você preferir pode passar o nome do arquivo de modelo como parâmetro e permitir que 'o usuário defina o modelo que preferir objWord.Application.Documents.Add "c:\Inetpub\wwwroot\arquivos\reddoc.dot" objWord.Application.ChangeFileOpenDirectory "c:\Inetpub\wwwroot\arquivos" ' As linhas abaixo escrevem no documento ' esta linha escreve o campo nome do banco de dados objWord.Application.Selection.TypeText "Nome:" 'esta linha gera um parágrafo objWord.Application.Selection.TypeParagraph objWord.Application.Selection.TypeText nome objWord.Application.Selection.TypeParagraph objWord.Application.Selection.TypeText "Perfil:" objWord.Application.Selection.TypeParagraph objWord.Application.Selection.TypeText perfil objWord.Application.Selection.TypeParagraph objWord.Application.Selection.TypeText "Formação:" objWord.Application.Selection.TypeParagraph objWord.Application.Selection.TypeText formacao objWord.Application.Selection.TypeParagraph objWord.Application.Selection.TypeText "Experiência:" objWord.Application.Selection.TypeParagraph objWord.Application.Selection.TypeText experiencia objWord.Application.Selection.TypeParagraph objWord.Application.Selection.TypeText "Cargos:" objWord.Application.Selection.TypeParagraph objWord.Application.Selection.TypeText cargos objWord.Application.Selection.TypeParagraph 'a linha abaixo salva o documento no caminho e com o nome definido na váriável "Arquivo" objWord.Application.ActiveDocument.SaveAs Arquivo ' As linhas abaixo não devem ser esquecidas pois a cada documento que você gerar você abre um processo ' do word no servidor e isso consome muito de sua performance. objWord.Application.ActiveWindow.Close objWord.Application.Quit Set objWord = nothing 'Para saber de mais propriedades e métodos do Word.Application crie uma nova Macro no Word faça o que você precisa e depois vá no menu Ferramentas > Macro >Editar eu achei isos num forum da microsoft.. hehe abraços
-
e ae acabei de testar aqui, e funcionou beleza! eu fiz assim: fui no menu INICIAR, EXECUTAR, e digitei: NET SEND ip_maquina_q_vai_receber mensagem ex: NET SEND 192.168.1.40 olá e funcionou! no Windows 2000 e no WIndows XP funciona direto. Para o 98 receber a mensagem, você deve abrir o WINPOPUP. abraços
-
se era o codigo ASC da tecla F5 de atualizar.. ele é: F1 = 112 F2 = 113 F3 = 114 F4 = 115 F5 = 116 F6 = 117 F8 = 119 F9 = 120 F10 = 121 F11 = 122 F12 = 123 tá bom, ou quer de mais algum? hehe abraços
-
olá.. bom.. você pode guardar numa session o que você quiser ! falando de niveis de acesso, como você pretende usar isso? eu já montei sites com niveis de acesso assim: eu crio lá, na hora que o cara se cadastra, um campo status (que fica por default 0), e quando vou "liberar" o cadastro, eu coloco status 1, para membro. Se eu quiser colocar o cara como Moderador, eu coloco status 2. Se for Admin, Status 3.. e assim vai.. aí, em cada pagina .asp que eu fizer, eu determino quem acessa o que, por IFs.. Por ex, uma pagina de administração. Se o Status < 2 então não acessa, exibe um erro, caso contario acessa. Geralmente eu monto assim.. e funciona beleza.. Abraços
-
bom dia. Bom, estava olhando seu codigo.. assim, de primeira impressao, eu achei errado aqui: If Request.Form("enviado") = "sim" Then login = Replace(Request.Form("login"), "'", "/") <- aqui a variavel LOGIN recebe valor pass = Replace(Request.Form("pass"), "'", "/") nsenha = Replace(Request.Form("nsenha"), "'", "/") c_senha = Replace(Request.Form("c_senha"), "'", "/") email = Replace(Request.Form("email"), "'", "/") nome = Replace(Request.Form("nome"), "'", "/") snome = Replace(Request.Form("snome"), "'", "/") sexo = Replace(Request.Form("sexo"), "'", "/") login = Request.Cookies("login") <- aqui a var LOGIN tb recebe valor sql = "SELECT senha FROM usuarios WHERE login="&login&"" <- pra que esse sql? pra pegar a senha? pra que? sql = "UPDATE usuarios SET nome='"&Request.Form("nome")&"', email='"&Request.Form("email")&"', snome='"&Request.Form("snome")&"', senha='"&Request.Form("nsenha")&"', login='"&Request.Form("login")&"', sexo='"&Request.Form("sexo")&"' WHERE login = '"&login&"'" <- aqui esta comparando: ONDE LOGIN = LOGIN.. mas qual dos LOGINS? tem 2 lá em cima !! Conexao.Execute(Sql) como o cara chega até essa pagina de alteração? ele efetua login na sua pagina, para depois poder alterar os dados? o correto, seria o cara fazer LOGIN no site.. aí você guarda uma session com a ID (codigo) do cadastro dele, e com esse codigo, você pode fazer qualquer SQL.. (update, select..etc) abraços
-
opa.. beleza?: tipo.. com aproximadamente 2000 você consegue um pc super bom p/ jogos.. mas não sei quanto cusa tela plana.. estariamos falando de LCD? um monitor de LCD (CRistal Liquido) deve custar uns mil e quinhentos (R$ 1.500,00) reais.. ou até mais que isso.. mas, eu compraria: - Placa-mae: ASUS - AS333 - Processador: Athlon XP 2.4 GHZ - Placa de video: Geforce 4 MX 440 de 64MB - HD: Seagate 40GB - Placa de som: Creative SoundBlaster Live - CD: Gravador de CD/ Leitor de DVD LG - mouse: Mouse ótico teria placa de rede: Realtek RTL 8139 10/100, modem: Intel o resto que não citei, não teria tanta importancia.. (se eu não esqueci nada. hehe) abraços
-
isso ae.. já lhe responderam.. mas digita no executar: NET (espaço) SEND (espaço) IP da maquina que você quer enviar
-
ah.. hehe eu, no win 2000.. ainda prefiro o sp3 (o sp4 é um lixo!) vlw
-
há exatamente o mesmo codigo.. e funcionou! teste: Cadastro foi o que lhe falei.. eu testei esse script, dentro de outra pasta, e com o bd junto.. não FUNCIONOU! mas aí, eu coloquei o banco na pasta DB, e alterei o caminho de conexao.. E FUNCIONOU!!! não sei o que você está fazendo, mas esse codigo funciona !!!
-
Como Fazer Um Botão Enviar Em Java?
pergunta respondeu ao alexcalciunovelli de dark0 em Ajax, JavaScript, XML, DOM
vide tópico: Imagem no botao -
olha.. o que eu sei, é que o Internet Explorer 5.0, é a versão mais cheia de Bugs da historia (tirando as versões anteriores, é claro). Eu montei um site, que usa bastante Javascript, e asp, e sessions.. mas quando é acessado por navegadores IE 5.0, nada funciona! Mas se o IE for 5.5, ou 6.0, funciona beleza.. A solução? Eu ainda não implementei no meu site, mas penso em algo assim: Verificar o navegador do cara, no inicio da pagina, e se for 5.0, mostra de um modo (que ele aceite), e se for posterior a 5.0, mostra normalmente.. abraços
-
você deve usar estilos! (STYLES) um exemplo: <input type="submit" value="Submeter" name="B1" style="background-image: url('file:///E:/imagem.JPG')"> abraços
-
hehe.. ele quis dizer, que como você havia postado no forum de asp, ele moveu sua mensagem para o tópico de javascript..
-
entendi o que você quer fazer.. mas nunca fiz isso.. mas imagino, que você deve ter que passar pro seu alert um parametro, que seria a tecla pressionada..
-
que tipo de script você quer de alterar? eu acho mais correto, você criar seu form, como se fosse de cadastro, com os campos que o cara pode alterar. E na ação, você coloca o SQL, que faça update. simples, não? vou dar um exemplo de SQL - UPDATE: <%sql = "UPDATE tabela set campo='"&var_campo&"', campo2='"&var_campo2&"' where condicao='"&var_condicao&"'" set rs = conexao.execute(sql)%> isso é um exemplo de UPDATE no SQL. aqui tem uma explicação de update.. UPDATE abraços
-
eu sei que não é correto fazer "bate-papo" aqui, mas creio que não vale a pena sair de um lugar que tem várias pessoas legais, por causa de uma pessoa que "não é legal". eu tb já me descepcionei com um membro do forum (não no de asp), mas fico na minha.. cada um cada um.. eu venho aqui, para responder duvidas, e ter as minhas duvidas respondidas. Mas se os caras entram aqui para encher a paciencia dos outros.. eu não me meto.. deixa eles pra lá, e fale com quem você achar legal. abraços