Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

doiddao

Problemas de fim de limites

Por , em ASP Clássico

Recommended Posts

doiddao    0

doiddao
Postado

Caros colegas estou aki mais uma vez solicitando ajuda aos papas da programação

 

Meu erro é:

Tipo de erro:

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

Final do arquivo ultrapassado

/emailana3.asp, line 12

Codigo:

 

ASP

[*]<!--c1--><div class='codetop'>CODE</div><div class='codemain'><!--ec1-->

 

[*]

 

[*]<%@ LANGUAGE="VBSCRIPT" %>

 

[*]

 

[*]<%

 

[*]response.expires=0

 

[*]response.buffer=true

 

[*]

 

[*]Dim fmensagem, o

 

[*]

 

[*]set file = Server.CreateObject("Scripting.FileSystemObject")

 

[*]path = Server.MapPath("quantidadeANA.txt")

 

[*]set infile = file.OpenTextFile( path ) 

 

[*]fquantidade = infile.ReadLine

 

[*]infile.close

 

[*]fquantidade=fquantidade+1

 

[*]set outfile = file.CreateTextFile( path, True )

 

[*]outfile.WriteLine(fquantidade)

 

[*]outfile.Close

 

[*]

 

[*]

 

[*]<!--c2--></div><!--ec2-->

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o codigo ficou bagunçado poderia coloca-lo novamente...

Compartilhar este post

Link para o post
Compartilhar em outros sites

doiddao    0

doiddao
Postado

ASP

[*]

 

[*]<%@ LANGUAGE="VBSCRIPT" %>

 

[*]

 

[*]<%

 

[*]response.expires=0

 

[*]response.buffer=true

 

[*]

 

[*]Dim fmensagem, o

 

[*]

 

[*]set file = Server.CreateObject("Scripting.FileSystemObject")

 

[*]path = Server.MapPath("quantidadeANA.txt")

 

[*]set infile = file.OpenTextFile( path ) 

 

[*]fquantidade = infile.ReadLine

 

[*]infile.close

 

[*]fquantidade=fquantidade+1

 

[*]set outfile = file.CreateTextFile( path, True )

 

[*]outfile.WriteLine(fquantidade)

 

[*]outfile.Close

 

[*]

Compartilhar este post

Link para o post
Compartilhar em outros sites

DouGuAra    0

DouGuAra
Postado

Querido, a um tempo atrás eu fiz isso. Acredito que vai te ajudar.

 

1.asp

 

ASP

[*]

 

[*]<HTML>

 

[*]<HEAD>

 

[*]<TITLE> 21 dias - paginas 371 </TITLE>

 

[*]

 

[*]</HEAD>

 

[*]

 

[*]<BODY>

 

[*]

 

[*]<% dim objFSO, objfile

 

[*]set objfso = server.createobject("scripting.filesystemobject")

 

[*]

 

[*]if not objfso.fileexists(server.mappath("log.txt")) then

 

[*]response.write "arquivo não existe"

 

[*]else

 

[*]

 

[*]set objfile = objfso.getfile(server.mappath("log.txt"))

 

[*]

 

[*]response.write "quando ele foi criado"

 

[*]response.write objfile.datecreated

 

[*]response.write "quando ele foi criado"

 

[*]response.write "<br>"

 

[*]response.write "ultimo acesso"

 

[*]response.write objfile.datelastaccessed

 

[*]response.write "<br>"

 

[*]response.write "ultima modificação"

 

[*]response.write objfile.datelastmodified

 

[*]response.write "<br>"

 

[*]response.write "verifica o drive"

 

[*]response.write objfile.drive

 

[*]response.write "<br>"

 

[*]response.write "verifica a pasta "

 

[*]response.write objfile.parentfolder.name

 

[*]response.write "<br>"

 

[*]response.write "path é "

 

[*]response.write objfile.path

 

[*]response.write "<br>"

 

[*]response.write "o outro path é "

 

[*]response.write objfile.shortpath

 

[*]response.write "<br>"

 

[*]response.write "caminho longo "

 

[*]response.write objfile.shortname

 

[*]response.write "<br>"

 

[*]response.write "tamanho do arquivo"

 

[*]response.write objfile.size

 

[*]response.write " bytes <br>"

 

[*]response.write "tipo do arquivo"

 

[*]response.write objfile.type

 

[*]response.write "<br>"

 

[*]set objfile = nothing

 

[*]end if

 

[*]set objfso = nothing

 

[*]%>

 

[*]

 

[*]</BODY>

 

[*]</HTML>

 

[*]

 

 

Agora você pode editar

 

2.asp

 

ASP

[*]

 

[*]<HTML>

 

[*]<HEAD>

 

[*]<TITLE> 21 dias - paginas 385 </TITLE>

 

[*]

 

[*]</HEAD>

 

[*]

 

[*]<BODY>

 

[*]

 

[*]<% 

 

[*]const forwriting = 2 

 

[*]dim objFSO, objopenfile, objpath

 

[*]strpath = server.mappath("log.txt")

 

[*]set objFSO = server.createobject("scripting.filesystemobject")

 

[*]if objfso.fileexists(strpath) then 

 

[*]set objopenfile = objFSO.opentextfile(strpath, forwriting)

 

[*]objopenfile.write("abcde")

 

[*]objopenfile.writeline("fgh") ' writeline que dizer oque vem abaixo é pra pular de linha

 

[*]objopenfile.write("ijklm") ' oque vem abaixo de writeline é em linha separada

 

[*]objopenfile.writeblanklines("5") ' espaços de quebra de linhas

 

[*]objopenfile.write("nopq")

 

[*]objopenfile.writeline

 

[*]objopenfile.write("rstuv")

 

[*]objopenfile.close

 

[*]set objopenfile = nothing 

 

[*]end if 

 

[*]set objFSO = nothing

 

[*]%>

 

[*]

 

[*]</BODY>

 

[*]</HTML>

 

[*]

 

[*]

 

 

 

3.asp

 

ASP

[*]

 

[*]

 

[*]<HTML>

 

[*]<HEAD>

 

[*]<TITLE> 21 dias - paginas 374 </TITLE>

 

[*]

 

[*]</HEAD>

 

[*]

 

[*]<BODY>

 

[*]

 

[*]<% dim objFSO, objfile, objfolder

 

[*]set objfso = server.createobject("scripting.filesystemobject")

 

[*]set objfolder = objfso.getfolder(server.mappath("douglas"))

 

[*]

 

[*]response.write " arquivos dentro da pasta "

 

[*]response.write objfolder.path & "<p>"

 

[*]for each objfile in objfolder.files

 

[*]response.write objfile.name & "<br>"

 

[*]next

 

[*]

 

[*]set objfolder = nothing

 

[*]set objfso = nothing

 

[*]%>

 

[*]

 

[*]<a href="2.asp?url=<%=request.servervariables("url")%>">Asp Mania</a>

 

[*]</BODY>

 

[*]</HTML>

 

[*]

 

 

4.asp

 

 

ASP

[*]

 

[*]

 

[*]<HTML>

 

[*]<HEAD>

 

[*]<TITLE> 21 dias - paginas 383 </TITLE>

 

[*]

 

[*]</HEAD>

 

[*]

 

[*]<BODY>

 

[*]

 

[*]<% 

 

[*]const forreading = 1

 

[*]

 

[*]dim objFSO, objopenfile, objpath, strtext

 

[*]

 

[*]strpath = request.querystring("url")

 

[*]strpath = server.mappath(strpath)

 

[*]set objFSO = server.createobject("scripting.filesystemobject")

 

[*]set objopenfile = objFSO.opentextfile(strpath, forreading)

 

[*]response.write "<pre>"

 

[*]do while not objopenfile.atendofstream

 

[*]strtext = objopenfile.readline

 

[*]'strtext = objopenfile.readall retorna o arquivo como ele é original 

 

[*]response.write server.htmlencode(strtext)

 

[*]response.write "<br>"

 

[*]loop

 

[*]objopenfile.close

 

[*]set objopenfile = nothing 

 

[*]set objFSO = nothing

 

[*]response.write "</pre>"

 

[*]%>

 

[*]

 

[*]</BODY>

 

[*]</HTML>

 

[*]

 

[*]

 

 

O objeto File System Object fornece acesso ao sistema de arquivos do computador, permitindo que possamos manipular os arquivos de texto, pastas e drives de dentro do nosso código. Esta disponivel em VBScript e JavaScript para uso em páginas ASP no servidor. Ele também pode ser usado no cliente do Internet Explorer 5, desde que as páginas tenham a extensão do arquivo (.hta), para indicar que elas são parte de uma Hypertext Application. Nesta matéria veremos apenas como usar o FSO no script de ASP no servidor.

 

A linha abaixo mostra como criar uma instância do objeto FileSystemObject.

Dim oFSO

Set oFSO = Server.CreateObject("Scripting.FileSystemObject")

 

Após criado a instãncia do objeto, vamos agora analisar alguns de seus métodos:

 

FolderExists(X)

Retorna True se a pasta especificada em X esistir ou False se não existir. O parâmetro X pode ser um caminho relativo ou absoluto para a pasta.

 

CreateFolder(X)

Cria uma nova pasta que tem o caminho especificado em X. Caso esta pasta já exista, um erro será retornado.

 

DeleteFolder(X, force)

Deleta a pasta ou pastas especificadas em X. Se o parametro force estiver definido como true, ele deleta as pastas mesmo sendo elas ready-only.

 

MoveFolder(X, Y)

Move a pasta ou pastas especificadas em X para a pasta especificada em Y.

 

FileExists(X)

Retorna True se o arquivo especificada em X esistir ou False se não existir.

 

CreateTextFile(X,Y)

Cria um novo arquivo de texto no disco com o nome especificado em X. Se o parâmetro Y estiver definido em TRUE, mesmo existindo o arquivo ele será sobrescrito.

 

DeleteFile(X, force)

Deleta o arquivo ou arquivos especificadas em X. Se o parametro force estiver definido como true, ele deleta os arquivos mesmo sendo eles ready-only.

 

OpenTextFile(X,IO)

Cria um novo arquivo de texto especificado em X ou abre o mesmo se ele existir. O parâmetro IO define o tipo de acesso solicitado sendo permitido conforme abaixo:

1 - ForReading (padrão)

2 - ForWriting

8 - ForAppending

 

 

 

 

 

Abraços.....;

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito