Família Dammous

Família Dammous - Artigos

English version

Quinta-feira, 10/Julho/2025

Conecte-se

/dev :: principal :: artigos

Música

Notícias

Meteorologia

Genealogia

Astrologia

Nutrição

» Adiciona Favoritos

2 usuários online »»» 2 convidados - mais...

1544 membros

Utilizando campos ocultos em formulário

Nesse arquivo, o autor demonstra o uso da propriedade HIDDEN do formulário.

A propriedade HIDDEN nada mais é que um campo escondido, que pode ser muito útil no envio de informações.. No exemplo abaixo, exemplifica como gravar informações dentro de um banco através de um mesmo arquivo (insere.asp).

<%
'declara o recebimento das informações do campo HIDDEN
xacao = request.form("acao")

'a partir de agora criamos condições para obter resultados

'se o valor de xacao for nulo, é requisitado o formulário de inserçao
if xacao = "" then
%>

<form method="post" action="insere.asp">
<table border="0" width=100%>
<tr>
<td>
Nome:
</td>
<td>
<input type="text" name="nome">
</td>
</tr>
<tr>
<td>
Senha:
</td>
<td>
<input type="password" name="senha">
</td>
</tr>
<tr>
<td>
</td>
<td>
<input type="HIDDEN" name="acao" value="inserir">
<input type="submit" value="cadastrar">
</td>
</tr>
</table>

<%
'note acima as propriedades do HIDDEN
'finalizando agora se XACAO for nulo	
end if
%>

<%
'se o XACAO for = a inserir ele faz a inserção
if xacao = "inserir" then
xusuario = request.form("usuario")
xsenha = request.form("senha")

'agora criamos a conexão com o banco 
set cn = Server.CreateObject("ADODB.Connection")
cn.open "nomedoODBC","usuario","senha"

'criando RECORDSET pra ver se usuario existe
xsql = "select * from usuario where usuario = '" & xusuario & "' AND senha = '" & xsenha & "'"
set rs = cn.execute(xsql)

'se for fim de arquivo, usuario e senha não existem e insere novo
if rs.eof then

xinsere = "INSERT INTO usuario(usuario,senha)" & VALUES('" & xusuario & "','" & xsenha & "')"
cn.execute(xinsere)
response.write "USUARIO INSERIDO COM SUCESSO!"

'se existir, fecha a conexao
else
cn.close
response.write "DESCULPE,MAS USUARIO E SENHA EXISTEM!"

'finaliza o recordset
end if

'finaliza a propriedade HIDDEN
end if
%>

Robson Dantas Silva

Webmaster da página www.vidanova.com

Voltar

Linux

Programas

ASP

Jogos

Cartão Postal

Frase

Coragem não é a ausência do medo. Coragem é resistir ao medo, domar o medo.

Mark Twain

[ processado em: 5,72 segundos.]