Gravar em txt

[RODWYLSON 0]

Pessoal to fazendo um codigo aki ++++ tah ocorrendo algo q num consigo sanar!!!!!!!

fiz um codigo pra grava, qnd o usuario loga ele grava a data e a hota!!!!!!!

++ gostaria de saber como q faz pra gravar o nome q foi digitado e a hora?????

 

 

pois qnd digita ele cria um novo arquivo e grava apenas uma linha soh...

 

será q eh possivel fazer por exemplo::::

 

usuario digita!!!!!

jose

 

 

txt aparece:

jose

 

usuario digita!!!!!

joão

 

 

txt aparece:

joão,

 

temo como ele aparace o jose e joão q foi digitado?????

 

 

est eh meu codigo!!!!!!!

 

 

<%@ Language=VBScript %>
<%Response.Expires = 0%>
<%Response.Buffer = true%>
<!--#include file="verify_login.asp"-->
<!--#include file="header.asp"-->

<center>
  <%
	
	'criamos o nome do arquivo 
arquivo= request.serverVariables("APPL_PHYSICAL_PATH") & "usuarios.txt" 

'conectamos com o FSO 
set confile = createObject("scripting.filesystemobject") 

'criamos o objeto TextStream 
set fich = confile.CreateTextFile(arquivo) 



hora = hour(now())


fich.writeline(now())

fich.writeline(UserName)



'fechamos o arquivo 
fich.close() 
set confile = nothing
set fich = nothing
	
%>


  <a href='logout.asp' class=errmsg>Logout!</a> 
</center>

[xanburzum 169]

você deve procurar o arquivo pelo, nome, o melhor seria, você gravar as info em um cookie,DAE, você verificar o cookie (txt), ler as info. e atualizar, para não ter que gravar toda vez txt´s no Server, ou melhor ainda, fazer isso com bd

[Mário Monteiro 179]

voce diz nao escrever em cima e sim numa linha abaixo?

[RODWYLSON 0]

isto msm!!!!!!!

gostaria q a cada vz q fosse gravado, fosse inserido uma linha abaixo da outra!!!!

 

 

+ velho como q faz isto d procurar por cookies(sou iniciantes msm!!!!!!),

 

e o nome do usuario como q devo gravar no txt junto a data????

 

c puder m dar uma ajuda,ou indicar uma apostila boa ou ate msm um livro bom!!!!!!

 

exemplo o txt:

 

 

jose 12/05/2005 12:06

joão 25/06/2008 12:58

pedro 30/12/2007 10:30

 

será tem como fazer isto????

 

o usuario digita o nome e senha no arquivo login.asp

e no meu projetinho ele grava no home.asp

 

tem como puxa o q o kra digito no campo usuario e gravar juntamente a data e hora????

 

pessoal to desesperado m ajudem!!!!!

 

obrigadOoOooO!!!!!

[Mário Monteiro 179]

Um exemplo simples com FSO

 

A primeira parte cria o txt caso nao exista

 

a segunda abre o txt com o parametro para ir adicionando linhas

 

troque apenas onde esta nome para o valor que voce recupera

 

<%
Dim mFile,mFileSystem

 Set mFileSystem = server.createobject("Scripting.FileSystemObject")
  if NOT mFileSystem.FileExists(server.mappath("arquivo.txt") then
	set mFile = mFileSystem.CreateTextFile (server.mappath("arquivo.txt")
	mFile.WriteLine("Novo arquivo")
	mFile.WriteLine("<br>")
	mFile.Close
	set mFile=nothing
  end if

  set mFile = mFileSystem.OpenTextFile((server.mappath("arquivo.txt"), 8)
  mFile.WriteLine("<br>")
  mFile.WriteLine("nome")
  mFile.close
  set mFile=nothing  
  set mFileSystem=nothing
%>

[xanburzum 169]

um outro exemplo de fácil assimilação

 

<% 
'O parâmetro forReading é utilizado somente para leitura. 
Const forReading = 1, forWriting = 2, forAppending = 8 

'Instância o objeto FSO. 
Set Fso = CreateObject("Scripting.FileSystemObject") 

'Abre o arquivo com o método OpenTextFile. 
Set ArqTxt = Fso.OpenTextFile("z:\home\login\web\xxx\arquivo.txt",8,True) 

'Arquivo aberto, escreve no arquivo 
ArqTxt.WriteLine("Mais uma linha com o FSO!") 

'Fecha o arquivo com o método Close. 
ArqTxt.Close 

'Destrói o objeto. Set ArqTxt = nothing 

'Retorna o arquivo que será usado. 
Set ObjFile = Fso.GetFile("x:\teste\xxx\arquivo.txt") 

'Abre o arquivo novamente, agora para a leitura ! 
Set ObjStream = ObjFile.OpenAsTextStream(forReading,false) 

'Looping para varrer todas as linhas do arquivo. 
While Not ObjStream.AtEndOfStream 
'O método Readline lê uma linha de um arquivo. 
Linha = Linha & ObjStream.Readline & "<br>" 
Wend 

'Mostra o conteúdo. 
response.write Linha 

'Destruíndo objetos 
Set Fso = nothing 
Set objStream = nothing 
%>