Ir para conteúdo
Fórum Script Brasil
  • 0

Login, Vbscript, Mas Sem Usar Banco De Dados


Steven Tyler

Pergunta

então galera alguém me socorra ai por favor, é o seguinte.....

eu tava querendo fazer uma tela de login, q já fiz ela, e no botao "Entrar" teria q ter a seguinte lógica....

supondo q já exista um arquivo chamado *usuarios.txt* e ele seria do seguinte formato...

Ramon;123456 
Brasil;123

sendo "Ramon" username e "123456" senha.......

a lógica é essa.....

quando o cara clicar em "Entrar".. buscar esse arquivo ai *usuarios.txt* e achar nele na linha 1 uma string ";" se achar, pegar o que ta antes dela (q seria o username) e comparar com o campo Username do login, se for igual, pega o que ta depois da string ";" e compara com o campo senha do login..... se n axar na linha 1, vai para a 2, e assim a te chega o fim, se n axar nada, mostre uma mensagem de Usuario Invalido e tal....... por favor, algum pode me ajudar?

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0

<%
Dim fs, f, login, senha, pos, texto

Set fs=Server.CreateObject("Scripting.FileSystemObject")

Set f=fs.OpenTextFile(Server.MapPath("usuarios.txt"), 1)

texto	= f.ReadAll
pos	= Instr(texto, ";")
login	= Mid(texto, 1, pos -1)
senha	= Mid(texto, pos +1, len(texto))

f.Close
Set f=Nothing
Set fs=Nothing
%>

Agora é só você fazer a verificação e redirecionar para a página que você quer...

Link para o comentário
Compartilhar em outros sites

  • 0

então pessoal, eu tava vendo aqui e consegui exibir na tela os dados do arquivo txt, segue o codigo...

<% @language = vbscript %>

<html>
<head>
<title>ramon sales</title>
</head>
<body>
<%
caminho = "C:\Inetpub\wwwroot\teste_txt\teste.txt"
set fso = CreateObject("Scripting.FileSystemObject")

if fso.FileExists(caminho) = false then

	response.write "Ops... O arquivo não existe!"
                response.end

end if


set textStreamObject = fso.OpenTextFile(caminho,1,false,0)

response.write "Modo 1 <br>"

do while not textStreamobject.AtEndOfStream
  

  response.write textStreamObject.ReadLine + "<br>"

Loop

textStreamObject.close
set textStreamObject = nothing
%>
</body>
</html>
ta funcionando, só q quando coloco no arquivo texto por exemplo 2 nomes...ramon e brasil
ramon

brasil
percebam q tem um espaco entre eles em branco, e dai na hora q eu carrego a pagina fica esse espaco ai, como que eu faco pra tirar esse espaco ai gostaria q ficasse assim na pagina
ramon
brasil
não
ramon

brasil
é simples isso eu sei, mais n da certo aqui, eu tentei fazer isso aqui galera...
do while not textStreamobject.AtEndOfStream
  
	if textStreamObject.ReadLine <> "" then

  response.write textStreamObject.ReadLine + "<br>"

	end if

Loop

não adiantou, deu erro, como q eu faco galera, porque essa ideia minha seria.... (imprima na tela o que for diferente de vazio na linha), mais n deu certo, alguém pode me ajudar?

Link para o comentário
Compartilhar em outros sites

  • 0
tenta isso:

do while not textStreamobject.AtEndOfStream
   linha =  textStreamObject.ReadLine
   if len(linha) > 0 then
      response.write linha &  "<br>"
   end if
Loop
valeu cyberelaxx...deu certo...você poderia me dizer o que faz exatamente essa linha...
set textStreamObject = fso.OpenTextFile(caminho,1,false,0)

precisamente o que ta dentro do parenteses depois do caminho, o "1", o "false" e o "0"... valeu

Link para o comentário
Compartilhar em outros sites

  • 0

vamos lá

onde esta o 1 é o modo de abertura 1 é leitura existem ainda o 2 (gravar por cima) e o 3 (para adicionar conteudo ao arquivo existente)

onde esta false, é um valor boleano (true ou false) se false indica que o arquivo não deve ser criado caso não exista e true cria um novo arquivo caso não exista

onde esta 0 é o formato de gravação 0(ASCII) poderia ser também -1 (Unicode)

Respondido???

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...