Ir para conteúdo

Arquivado

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

#Felipe#

2 codigos que não funcionam

Por , em ASP Clássico

Recommended Posts

#Felipe#    0

#Felipe#
Postado

pessoal

 

to tentando a aprender a ler e gravar em arquivo txt usando o asp

e estou apanhando ...

peguei 2 códigos prontos, mas não estão funcionando

 

você poderiam corrigi-los ou me dizer o pq não estaria funcionando

 

<%@Language="vbScript"%><HTML><HEAD><TITLE>Curso ASP</TITLE></HEAD><BODY><CENTER><% dim final   final = "</CENTER></BODY></HTML>"   On Error Resume Next   Set Obj = Server.CreateObject("Scripting.FileSystemObject")    Set arquivo = Obj.OpenTextFile("d:\pessoas.txt",1)   if Err then	   Response.write "Ocorreu um erro tentando abrir o arquivo!"	   Response.write final	   Response.End   end if   Response.Write "Lista de E-mails<BR>"   Response.write "<HR>"    do while arquivo.AtEndOfStream=false 	 a = arquivo.Readline  	 response.write a & "<BR>"	 a = arquivo.Readline  	 response.write a & "<HR>"   loop   Response.Write "Nova Entrada"   Response.Write "<FORM ACTION=Arquivo2.asp>"   Response.Write "NOME : <INPUT TYPE=TEXT NAME=NOME><BR>"   Response.Write "EMAIL : <INPUT TYPE=TEXT NAME=EMAIL><BR>"   Response.Write "<INPUT TYPE=SUBMIT VALUE=ENVIAR></FORM>"   REsponse.Write final   arquivo.close%>

 

outro seria esse 

<%@Language="vbScript"%><HTML><HEAD><TITLE>Curso ASP</TITLE></HEAD><BODY><CENTER><% dim final   final = "</CENTER></BODY></HTML>"   On Error Resume Next   Set Obj = Server.CreateObject("Scripting.FileSystemObject")    Application.Lock   Set arquivo = Obj.OpenTextFile("d:\pessoas.txt",8)   if Err then	   Response.write "Ocorreu um erro tentando abrir arquivo!"	   Response.write final	   Response.End  end if   Arquivo.WriteLine(Request("Nome"))   Arquivo.WriteLine(Request("Email"))   arquivo.close   if Err then	   Response.write "Ocorreu um erro tentando gravar no arquivo!"	   Response.write final	   Response.End   else	  Response.Write "Dados inseridos com sucesso!" & "<BR>"	  Response.Write "Nome:" & Request("Nome") & "<BR>"	  Response.Write "Email :" & Request("Email")   end if   Response.Write final%>

e se puderem me dizer onde eu consigo + informações sobre esse tipo de programação, eu agradeço tb...

Compartilhar este post

Link para o post
Compartilhar em outros sites

AMON-HÁ    0

AMON-HÁ
Postado
começa a carregar e não abri nunca trava ...
hehehe...cara... testa no seu servidor de hospedagem pra vê se o script roda de boa...é pq isso tb tá acontecendo comigo qnd uso FSO... e eu até agora naum encontrei solução... naum é tudo do FSO que naum funciona... algumas coisa até que funfa de boa... mas outras naum roda nem a pau... parece que entrou num loop infinito... naum é??? heheno inicio eu pensei que poderia até ser lance de permição... dae dei tudo qnt é permição... retirei o acesso anonimo... e msm assim continuou a mesma coisa...no meu serv... eu hospedei pra teste e rodou de boa...esse msm código que eu tinha feito funcionava antes... começou os problemas qnd eu troquei meu xp sp1 pelo sp2... dae danô tudo... rsrsse eu conseguir uma solução aqui eu te falo como resolver... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif mas msm assim... hospede no seu serv só pra desencargo de consciência... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

seu antivirus não esta bloqueando os scripts??

Compartilhar este post

Link para o post
Compartilhar em outros sites

AMON-HÁ    0

AMON-HÁ
Postado

seu antivirus não esta bloqueando os scripts??

é isso ae... grande Mário...o infiliz do norton tava bloqueado a execução do script...se tiver usando um anti-virús tb Felipe... é só desativar o bloqueamento de script...caso faça isso e naum resolva... ae é de preoculpar... http://forum.imasters.com.br/public/style_emoticons/default/yay.gif ae a gente dá uma olhada no código... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

é isso ae... grande Mário...o infiliz do norton tava bloqueado a execução do script...

isso acontece bastante mesmo... http://forum.imasters.com.br/public/style_emoticons/default/yes.gif

caso faça isso e naum resolva... ae é de preoculpar...

voce sabe como motivar hein???Se continuar o erro posta ai se continua a mesma situação...

Compartilhar este post

Link para o post
Compartilhar em outros sites

#Felipe#    0

#Felipe#
Postado

pior que to com o XP SP2 e com o Norton instaladoagora vou ver como se desabilita isso ..valeuté + -------------------------------------------voltei ba galera, era o Norton mesmodesabilitei e funcionou na hora o primeiro codigo ...e o segundo deu pau, mas consegui descobrir o erro, é que o pessoas.txt tem que ser salvo no formato ANSI e não UTF-8valeu em pessoal !depois mandem a Nota pro financeiro que a Adriana faz o PGTO.kkkkBrincadeirinhadepois continuamos lá no post do carrinho....

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

voltei ba galera, era o Norton mesmodesabilitei e funcionou na hora o primeiro codigo ...e o segundo deu pau, mas consegui descobrir o erro, é que o pessoas.txt tem que ser salvo no formato ANSI e não UTF-8valeu em pessoal !depois mandem a Nota pro financeiro que a Adriana faz o PGTO.

Opa tou nessa... Se der pra pagar em verdinhas ( http://forum.imasters.com.br/public/style_emoticons/default/clover.gif http://forum.imasters.com.br/public/style_emoticons/default/clover.gif http://forum.imasters.com.br/public/style_emoticons/default/clover.gif )

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