• 0
Sign in to follow this  
Steven Tyler

Login, Vbscript, Mas Sem Usar Banco De Dados

Question

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?

Share this post


Link to post
Share on other sites

6 answers to this question

Recommended Posts

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

Share this post


Link to post
Share on other 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?

Share this post


Link to post
Share on other sites
  • 0

tenta isso:

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

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other 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???

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this