<<< voltar

:: ASP :: 

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ção
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, usuário 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 "USUÁRIO INSERIDO COM SUCESSO!"

''se existir, fecha a conexão
else
cn.close
response.write "DESCULPE, MAS USUÁRIO E SENHA JÁ EXISTEM!"

''finaliza o recordset
end if

''finaliza a propriedade HIDDEN
end if
%>

Bannerlandia