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

Uma Pergunta!


serraventura

Pergunta

16 respostass a esta questão

Posts Recomendados

  • 0

desativei o bloqueio mais não adiantou!!!

o script é esse.....

<%

dim contador

Response.Expires=0

If Application("Count")= "" THEN

Application("Count")= 1

Else

Application("Count") = Application("Count")+1

End If

set fso = server.createobject("Scripting.FileSystemObject")

NomeArq = server.mappath("cont.txt")

set arqtxt = fso.OpenTextFile(NomeArq)

arqtxt.WriteLine "&contador='&Application("count")&'"

set arqtxt = nothing

set fso = nothing

%>

eu já tenho criado o arq .txt......porem o script não grava nada no arquivo como eu determino...

será q é necessario usar o global.asa ........pois eu não chamo o arquivo asp em nenhum momento ele só fica na root pra contar a visita e depois passar o valor do resultado p/ o arq .txt....

valeu!

Link para o comentário
Compartilhar em outros sites

  • 0
Guest - André -

<%

dim contador

Response.Expires=0

If Application("Count")= "" THEN

Application("Count")= 1

Else

Application("Count") = Application("Count")+1

End If

set fso = server.createobject("Scripting.FileSystemObject")

NomeArq = server.mappath("cont.txt")

set arqtxt = fso.OpenTextFile(NomeArq,2)

arqtxt.WriteLine("contador=" & application("count"))

set arqtxt = nothing

set fso = nothing

%>

Cara as mudanças q eu fiz estão em vermelho , o nº 2 indica q você está abrindo o arquivo para gravação...

Testa ai se não der certo , posta de novo

Link para o comentário
Compartilhar em outros sites

  • 0

É isso aí..

Tipo.. Ele não dá erro, né?

então, o que acontece?

Tentou 'debugar' o código?

Debugar.. seria algo como.. colocar uma linha do codigo, e abaixo um Response.Write

Pra ver se ele chegou até ali..

Assim, você vai fazendo linha-a-linha.. até encontrar onde ele tá parando..

aí você procura o erro naquela parte do codigo!

até mais

Link para o comentário
Compartilhar em outros sites

  • 0

deu erro!!!

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A0046)

Permissão negada

/rc/cont2.asp, line 15

----------------------------------------------------

<%

dim contador

Response.Expires=0

If Application("Count")= "" THEN

Application("Count")= 1

Else

Application("Count") = Application("Count")+1

End If

set fso = server.createobject("Scripting.FileSystemObject")

NomeArq = server.mappath("cont.txt")

set arqtxt = fso.OpenTextFile(NomeArq,2)

arqtxt.WriteLine("contador=" & application("count"))

set arqtxt = nothing

set fso = nothing

%>

deu erro na linha em vermelho!!!

e quando eu tiro esse 2 dessa linha....aí da erro na linha debaixo..........

também tentei fazer esse lance de debugar........e deu o mesmo erro!! sad.gif

Link para o comentário
Compartilhar em outros sites

  • 0

sim, isso é erro de permissão.

quando o script tenta criar o arquivo, ou abrir pra escrita, a pasta não tem permissao de escrita e dá erro!

veja as pemissoes..

Link para o comentário
Compartilhar em outros sites

  • 0

<%

dim contador

Response.Expires=0

set fso = server.createobject("Scripting.FileSystemObject")

NomeArq = server.mappath("cont.txt")

'Primeiro você abre o arquivo para saber o seu valor , 0 nº 1 indica leitura set arqtxt = fso.OpenTextFile(NomeArq, 1)

contador = trim(arqtxt.readline)

arqtxt.close

'incrementa mais um ao valor da variavel contador

contador = contador +1

'Abre o arquivo para gravação, como tinha dito antes com o nº 2

set arqtxt = fso.OpenTextFile(NomeArq, 2)

'insere o valor atual do contador

arqtxt.WriteLine(contador)

arqtxt.close

set arqtxt = nothing

set fso = nothing

%>

Cara eu tirei aquele texto "Contador=" q você queria colocar no arquivo texto senão, iria dar mais trabalho na hora de atualizar ia ter q ler o arquivo texto e usar a função inStr e Mid , para pegar somente o número beleza..

Testa ai q não vai dar erro de permissão

Falowzzz!!!

Link para o comentário
Compartilhar em outros sites

  • 0

pow valeu brother....mas na verdade eu queria desvendar o erro do meu script.....sabe como é né??? eu to começando a pegar essa parte de FSO entaum eu gostaria de fazer as coisas passo a passo e também ir aprendendo com os erros......acho isso importante pra poder fixar......e aquela string q você tirou é muito importante, pois ela q repassa um valor de uma varialvel pra dentro do flash....mas mesmo assim valeu!!

porque atraves do seu script eu fico meio perdido...... e acabo levando um tombo....rs....é porque eu to aprendendo essa parte de FSO atraves de um livro......e to fazendo as coisas passo a passo......só q volta e meia da esses erros.....aí eu venho aqui!!!...........mas se souber o q poderia estar dando o erro no meu script.......vai ser otimo......eu dei uma olhada nos lances de permissao e postei acima!!!

valeu!!...mas seu codigo é valido!!!!

biggrin.gif

outra coisa eu não tinha reparado.....esse &contador= não pode sair não.

Link para o comentário
Compartilhar em outros sites

  • 0

é essa aqui q eu to falando!

arqtxt.WriteLine "&contador='&Application("count")&'"

é porque dentro do arquivo .txt teria q ficar assim....

exemplo: &contador=14

sacou?

mas assim quanto ao meu script alguém ainda arriscaria qual seria o erro??

as minhas permissoes eu postei acima!!.........só não sei se tem outro local onde definir perminssoes!!

valeu!!

Link para o comentário
Compartilhar em outros sites

  • 0

Assim................ como eu não estava entendendo muito bem o seu codigo resolvi da uma estudada mais profunda no livro....e realmente é bem simples, porém seu codigo também esta dando erro...

esse erro:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A003E)

Final do arquivo ultrapassado

/rc/cont2.asp, line 20

sabe o q poderia ser??...........cara primeira vez q vejo esse erro!

valeu!!

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,3k
×
×
  • Criar Novo...