Jump to content
Fórum Script Brasil
  • 0

Codigo Do Arkivo Aparecendo Na Caixa De Texto


crucifier

Question

12 answers to this question

Recommended Posts

  • 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other sites

Guest
This topic is now closed to further replies.


  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.6k
×
×
  • Create New...