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

Codigo Do Arkivo Aparecendo Na Caixa De Texto


crucifier

Pergunta

12 respostass a esta questão

Posts Recomendados

  • 0

hummm....certinhu cara....brigadao

mais uma pekena duvida

para alterar...o cara foi lá exibiu esse codigo e ele altero umas coisas no codigo...e clico em alterar

como que faria nesse eskema de fso aih?

num precisa passa codigo de botao nem nada...só o codigozinhu que faz alterar...

se der pra kebra mais esse galho=]

Link para o comentário
Compartilhar em outros sites

  • 0

testa ai!!!

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
nome = server.mappath("dedo.asp")

if request("botao") = "gravar" then
  novotexto = request("texto")
  Set novoarquivo = FSO.OpenTextFile(nome,2)
  novoarquivo.Write(novotexto)
  novoarquivo.close
end if

Set arquivo = FSO.OpenTextFile(nome,1)
Response.Write "Conteudo do arquivo<BR>"
textorecuperado = arquivo.Readall

Response.Write "<Form action='" & request.servervariables("script_name") & "'>"
  Response.Write "<textarea lines=10 rows='20' cols='60' name='texto'>" & textorecuperado & "</textarea><br>"
  Response.Write "<input type=submit name='botao' value='gravar'>"
Response.Write "</form>"

arquivo.close
Set FSO = nothing
%>

Link para o comentário
Compartilhar em outros sites

  • 0

humm certo...

cara não dou certeza que deu certo porq o servidor ta cum problema de permisão...não ta dando pra autoriza...e apareceu o erro de permisao negada...

provavelmente deu certo...

se deu certo..muitooo obrigado mesmo...brigadão...=DDD

se não deu certo: muito obrigado mesmo assim...foi de grande ajuda seu codigo=DDD

Link para o comentário
Compartilhar em outros sites

  • 0
só mais uma coisa...percebi que quando coloco arkivos muito grande lá não da certo...

achu que é porq o conteudo do arquivo aparece no url...e o url se não me engano suporta 1kb de texto apenas

acho q isso deve resolver:

<%

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

nome = server.mappath("dedo.asp")

if request("botao") = "gravar" then

novotexto = request("texto")

Set novoarquivo = FSO.OpenTextFile(nome,2)

novoarquivo.Write(novotexto)

novoarquivo.close

end if

Set arquivo = FSO.OpenTextFile(nome,1)

Response.Write "Conteudo do arquivo<BR>"

textorecuperado = arquivo.Readall

Response.Write "<Form action='" & request.servervariables("script_name") & "' method='post'>"

Response.Write "<textarea lines=10 rows='20' cols='60' name='texto'>" & textorecuperado & "</textarea><br>"

Response.Write "<input type=submit name='botao' value='gravar'>"

Response.Write "</form>"

arquivo.close

Set FSO = nothing

%>

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...