[Resolvido] fs.CreateTextFile

[razs 0]

Boas tenho aqui um erro que nao tou a perceber porque, alguem me da uma mao?

 

 

If fs.FileExists("C:\inetpub\vhost\log\actionlog.txt") then
response.write "7"
   set fname=fs.CreateTextFile("C:\inetpub\vhost\log\actionlog.txt",false)
response.write "8"    
else
response.write "9"
   set fname=fs.CreateTextFile("C:\inetpub\vhost\log\actionlog.txt",true)
response.write "10"    
end if

 

ele mostra apenas o 7 logo esta linha deve ter algo mal, alguem consegue ver o que e?

 

ele nao da erro nenhum simplesmente para ali e nao faz mais nada.

[xanburzum 169]

ele exibe apenas o response.write ou cria também o arquivo ?

perceba que esta colocando dois response.write em um unico critério

o path esta correto ?!?!

use o server.mappath, e veja o que acontece

[razs 0]

apenas exibe o 7, sim quando eu tinha apenas set fname=fs.CreateTextFile("C:\inetpub\vhost\log\actionlog.txt",true)

ele funcionava

[Anderson Schmitt 0]

Olá amigo,

 

Logo na primeira linha você checa se o arquivo existe, na terceira linha você dá o comando CreateTextFile, o certo, se o arquivo existe, não seria dar OpenTextFile?

 

 

Atenciosamente,

 

Anderson Schmitt.

[razs 0]

Boas, obrigado, ate tem logica mas manteve o erro :(

[Mário Monteiro 179]

Como está seu codigo atual apos a alteração sugerida pelo Anderson Schmitt que faz todo sentido diga-se de passagem

 

Tem certeza que nenhum erro era exibido?

 

Nem dentro do seu html gerado?

[xanburzum 169]

como nesse caso, não esta inserindo dados no arquivo, apenas criando e usando o overwrite como false indica que o arquivo existente não será substituído.Mas se precisar inserir dados no arquivo , terá que abrí-lo e usar o WriteLine enel

[razs 0]

Boas, fiz o que sujeriste mas continua na mesma, para no response.write 7

 

 

 

if session("user")="" then
   If fs.FileExists("C:\inetpub\vhost\httpdocs\corc\log\seclog.txt") then
response.write "1"
	  set fname=fs.WriteLine("C:\inetpub\vhost\httpdocs\corc\log\seclog.txt",false)
response.write "2"   
else
response.write "3"
	  set fname=fs.CreateTextFile("C:\inetpub\vhost\httpdocs\corc\log\seclog.txt",true)
response.write "4"   
end if
response.write "5"
	fname.WriteLine ("IP::" & ip & ",Hora::" & time() & ",Data::" & date() & ",Evento::" & Session("sec") & vbCRLF)
response.write "6"
else
      If fs.FileExists("C:\inetpub\vhost\httpdocs\corc\log\actionlog.txt") then
response.write "7"
	   set fname=fs.WriteLine("C:\inetpub\vhost\httpdocs\corc\log\actionlog.txt",false)
response.write "8"    
else
response.write "9"
	   set fname=fs.CreateTextFile("C:\inetpub\vhost\httpdocs\corc\log\actionlog.txt",true)
response.write "10"    
end if
response.write "11"
         fname.WriteLine ("IP::"&ip&",User::"&Session("user")&",Action::"&acao&",TO::"&var_user&",Where::"&var_data&",On"&date()&","&time()& vbCRLF)
response.write "12"
end if

[/Code]

[xanburzum 169]

tente fazer assim também

 

 

if session("user")="" then

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

If fs.FileExists("C:\inetpub\vhost\httpdocs\corc\log\seclog.txt") then

set tfile=fs.CreateTextFile("C:\inetpub\vhost\httpdocs\corc\log\seclog.txt")

tfile.WriteLine("1")

response.write "1"

tfile.close

set tfile=nothing

set fs=nothing

[razs 0]

ele corre normalmente, mostra o 1 dos response.write mas nao escreve nada no ficheiro.

 

ja escrve no ficheiro mas substitui o ficheiro de cada vez que escreve

 

Ja consegui :)

 

Obrigado a todos pela ajuda.

 

if session("user")="" then
  If fs.FileExists("C:\inetpub\vhost\httpdocs\log\seclog.txt") then

  set fname=fs.OpenTextFile("C:\inetpub\vhost\httpdocs\log\seclog.txt",8,true)

else

  set fname=fs.CreateTextFile("C:\inetpub\vhost\httpdocs\log\seclog.txt",true)

end if

fname.WriteLine ("IP::" & ip & ",Hora::" & time() & ",Data::" & date() & ",Evento::" & Session("sec") & vbCRLF)

else
    If fs.FileExists("C:\inetpub\vhost\httpdocs\log\actionlog.txt") then

   set fname=fs.OpenTextFile("C:\inetpub\vhost\httpdocs\log\actionlog.txt",8,true)

else

   set fname=fs.CreateTextFile("C:\inetpub\vhost\httpdocs\log\actionlog.txt",true)

end if

       fname.WriteLine ("IP::"&ip&",User::"&Session("user")&",Action::"&acao&",TO::"&var_user&",Where::"&var_data&",On"&date()&","&time()& vbCRLF)

end if

 

So uma coisita, este script esta numa sub num ficheiro de include e regista num txt que um utilizador foi criado e depois envia um email com pass, esta tudo a funcionar excepto que estao em conjunto ou seja se eu desactiva a sub log ele mando o email normalmente mas se eu activar a sub ele ja nao passa para baixo.

 

response.write "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"

call log

response.write "ffffffffffffffffffffffffffffffffffffffffffffffffffffffffff"
session("e")=request.form("E-mail")
Response.Redirect "email.asp?actnow=gonow&var_mal=new_user&p='"&newpassreg&"'&n='"&request.form("Username")&"'"

 

ele devolve o response.write "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" entra na sub e faz o registo mas depois fica ali, ja nao devolve o response.write "fffffffffffffffffffffffffffffffffffffff"

 

Alguma ideia do que seja?

[xanburzum 169]

dentro do call log , será que ele ja não esta redirecionando antes de dar o response.write, coloque o redirecionamento e o write na função também

[razs 0]

em ultimo caso farei assim mas quando fecho a sub ele nao devia continuar o codigo a seguir ao call sub??

 

eu uso o log em varias paginas, dava mais jeito se ele apenas continua-se onde abre a sub.

 

encontrei o problema, quando defino estas sessions para nothing ele bloqueia e nao passa dali. alguma razao para isto acontecer??

 

'session("var_data")=nothing
'session("var_user")=nothing
'session("acao")=nothing
'Session("sec")=nothing

[xanburzum 169]

use assim ara limpar a session

response.expires = 0
response.expiresabsolute = Now() -1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
Session.Contents.RemoveAll()
Session.Abandon

[razs 0]

ok, o ero tem de estar aqui visto ele nao mostrar o response.write "1"

 

<%
sub log

response.write "1"

dim fs,fname
dim acao
dim var_user
dim var_data
set fs=Server.CreateObject("Scripting.FileSystemObject")

ip=Request.ServerVariables("REMOTE_ADDR") 

acao = session("acao")
var_user = session("var_user")
var_data=session("var_data")

if session("user")="" then
  If fs.FileExists("C:\inetpub\vhost\aquasplender.com\httpdocs\corc\log\seclog.txt") then

  set fname=fs.OpenTextFile("C:\inetpub\vhost\aquasplender.com\httpdocs\corc\log\seclog.txt",8,true)

else

  set fname=fs.CreateTextFile("C:\inetpub\vhost\aquasplender.com\httpdocs\corc\log\seclog.txt",true)

end if

fname.WriteLine ("IP::" & ip & ",Hora::" & time() & ",Data::" & date() & ",Evento::" & Session("sec"))

else
    If fs.FileExists("C:\inetpub\vhost\aquasplender.com\httpdocs\corc\log\actionlog.txt") then

   set fname=fs.OpenTextFile("C:\inetpub\vhost\aquasplender.com\httpdocs\corc\log\actionlog.txt",8,true)

else

   set fname=fs.CreateTextFile("C:\inetpub\vhost\aquasplender.com\httpdocs\corc\log\actionlog.txt",true)

end if

       fname.WriteLine ("IP::"&ip&",User::"&Session("user")&",Action::"&acao&",TO::"&var_user&",Where::"&var_data&",On::"&date()&","&time())

end if


fname.Close
response.write "1"
set fname=nothing
set fs=nothing
response.write "2"
session("var_data")=""
session("var_user")=""
session("acao")=""
Session("sec")=""
response.write "3"


end sub

%>

 

esqueçam, a procura de tudo e mais alguma coisa e nao vi o mais basico..... esquecime do include da sub :S

 

Obrigado a todos

[xanburzum 169]

bom, pelo menos foi uma coisa simples

[Mário Monteiro 179]

Que bom que resolveu seu problema