Codigo Do Arkivo Aparecendo Na Caixa De Texto

[crucifier]

como faiz pro codigo do arquivo aparecer na caixa de texto??

[ViniciusJau]

<input name="nome_do_campo" type="text" value="aqui" />

se não for isso, explica melhor oque você tá tentando fazer......

[crucifier]

por exemplo...

quero que apareça o codigo da pagina "dedo.asp" dentro da caixa de texto...

[cyberalexxx]

texta ai pra ver c funciona:

[crucifier]

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=]

[cyberalexxx]

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
%>

[crucifier]

humm...precisa colocar o caminho fisico completo ou da certo como dedo.asp???

deu esse erro aih:

Microsoft VBScript runtime error '800a0035'

File not found

/admin/teste.asp, line 12

[cyberalexxx]

tinha um erro de digitação na linha que informa o nome do arquivo já editei o post da uma olhada. tava assim antes: nome = nome = server.mappath("dedo.asp")

[crucifier]

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

[crucifier]

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

[cyberalexxx]

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

%>

[crucifier]

aeee deu certinhu

cabei de testa em outro servidor onde a permisao ta certinha...deu certinhu o codigo...valewzaum cara...muito obrigado mesmo=DDD~

[cyberalexxx]

aeee deu certinhu

cabei de testa em outro servidor onde a permisao ta certinha...deu certinhu o codigo...valewzaum cara...muito obrigado mesmo=DDD~

beleza!! Tópico fechado!!

Duvidas adicionais é só mandar PM para algum MOD que o tópico é aberto novamente.