Postagens
Assinar:
Comentários
Explosive Chat!!!
skip to main |
skip to sidebar
Parceiros
.Parceiros.
Parceiros
Go
Teste
<%
//
// Página login.msp
//
// Primeiro recolhe os dados submetidos `a pagina
cUsuario:= MSPFieldValue("USUARIO")
cSenha:= MSPFieldValue("SENHA")
// Abre o banco de dados "Usuarios"
// com o indice Nomes
//(indexado previamente pelo campo NOME)
USE Usuarios INDEX IndUsuario
if ! USED()
? "ERRO: Não conseguiu abrir arquivo"
quit
endif
// Localiza o nome de usuario
SEEK cUsuario
// Testa se os dados submetidos sao validos
if ! Found() or usuarios->senha != cSenha
// Se o nome de usuario nao for encontrado
// ou a senha associada nao coincidir,
// exibe o formulario de entrada de dados
// para uma nova tentativa.
%>
Forneça-nos seu nome de usuário e senha:
<% ELSE // Usuario e senha validados ! // Exibir conteudo normal. %> Seja benvindo <%= cUsuario %> ! <% ENDIF %>
<% ELSE // Usuario e senha validados ! // Exibir conteudo normal. %> Seja benvindo <%= cUsuario %> ! <% ENDIF %>
.:Nick Combat Arms:.
Assine nosso Feed RSS
link-me
.
Pages
Advertisement (468 x 60px )
Advertisement (468 x 60px )
Tecnologia do Blogger.
About Me
- Gabriel filipe
- Um menino Que ama andar de skate. E tenta tornar-se Um grande skatista no futuro.-
