Login, Vbscript, Mas Sem Usar Banco De Dados

Steven Tyler · Dezembro 29, 2005

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?

quintelab · Dezembro 29, 2005

<%
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...

cyberalexxx · Dezembro 29, 2005

Teve um desafio aki no forum que era justamente fazer isso, da uma olhada tem 3 exemplos:

http://scriptbrasil.com.br/forum/index.php?showtopic=40207

Steven Tyler · Dezembro 29, 2005

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?

cyberalexxx · Dezembro 29, 2005

tenta isso:

do while not textStreamobject.AtEndOfStream
   linha =  textStreamObject.ReadLine
   if len(linha) > 0 then
      response.write linha &  "<br>"
   end if
Loop

Steven Tyler · Dezembro 30, 2005

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

cyberalexxx · Dezembro 31, 2005

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???

Entrar

Login, Vbscript, Mas Sem Usar Banco De Dados

Pergunta

Steven Tyler

Link para o comentário

Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

quintelab

Link para o comentário

Compartilhar em outros sites

cyberalexxx

Link para o comentário

Compartilhar em outros sites

Steven Tyler

Link para o comentário

Compartilhar em outros sites

cyberalexxx

Link para o comentário

Compartilhar em outros sites

Steven Tyler

Link para o comentário

Compartilhar em outros sites

cyberalexxx

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades