Codigo Fonte

[damon_rn]

Oi galera...

.. como faco para exibir o codigo fonte de uma página q estah no meu servidor dentro de um TEXTAREA???

Damon

[[ GuTo ]]

Se é só pra exibir o código fonte, qlqr código HTML dentro, use o SERVER.HTMLENCODE(StrTexto)

[damon_rn]

Bom gente..

acho q eu não fui muito bem claro. Eu gostaria de escolher entre a lista dos meus arquivos, selecionar um, e na pag seguinte, o codigo fonte desta página ser exibido dentro de um TEXTAREA.

[dark0]

Olá. eu havia entendido sua dúvida, mas não tive tempo de postar.

Basicamente, o que você tem que fazer é assim:

- Listar os arquivos do servidor <- usará FSO

- Depois de listar, e escolher.. você passa como parametro pra proxima pagina o escolhido.

- depois de escolher, usa o Request para pegar o parâmetro da pagina anterior, que guardou o arquivo escolhido.

- usa FSO de novo para mostrar o conteudo do arquivo.

Basicamente é isso aí!

[dark0]

Para tudo isso acima, veja:

- Liste os arquivos de um dir com nome, data, tamanho e etc

- Manipulando arquivos com FSO-FileSystemObject

- FSO - Listando arquivos de um diretório

bom.. acho que com isso, você já deve conseguir montar alguma coisa.

quando tiver duvidas, tamos aí

t+

[damon_rn]

Cara.. valeu.. + ainda não é o que quero.....

eu quero conseguir exibir o codigo fonte das paginas e não a lista de arquivos...

Damon

[dark0]

então cara..

eu te mostrei 3 links.

o Primeiro lista os arquivos, pro cara selecionar.

o Segundo mostra como manipular o arquivo selecionado

e o Terceiro, faz o mesmo que o primeiro..

você não quer mostrar os arquivos, pro cara selecionar?

então ...

você não quer mostrar o conteudo do arquivo ..?

então ...

t+

[damon_rn]

Amigo,

Agradeco a boa vontade de ajudar, + como você disse, o 1º e 3º link é a quase a mesma coisa, e o 2º, realmente no início da matéria ele fala em editar páginas, + a única coisa que ele chega a mostrar, é como deletar. O que eu realmente estou querendo montar, é como editar o texto fonte das páginas.

Estou com o livro "Criando Sites Dinâmicos com ASP 3.0" de Júlio Battisti, + mesmo assim não consegui montar o q quero.

Mais uma vez, lhe agradeco por tentar ajudar, e vou ficar no aguardo de uma solução.

Damon

[dark0]

amigo, vamos por partes, ok?

primeiro, vamos aprender a ler arquivos. depois vemos o resto, ok?

[damon_rn]

rs.. Ok

pronto, eu já consegui parte doq estou querendo.

Ficou desta forma:

arq = "teste_files1.asp"
Set FSA = Server.CreateObject("Scripting.FileSystemObject")
Set ta = fsa.OpenTextFile(arq, 1)
    s = ta.ReadLine
%>
<textarea name="exemplo" cols="100" rows="20">  
<%    do while trim(s) <> "</BODY></HTML>"
    response.Write(s)&chr(13)
    s = ta.ReadLine
    loop%>
</textarea>  
<%   ' tf.close
    ta.close
%>

agora estou tendo problemas com o loop... como fazer ele ler o arquivo ateh a ultima linha???

esse arquivo terminava com "</BODY></HTML>" + se terminar diferente ele vai dar erro....

[damon_rn]

PRONTO GALERA.....

consegui montar o q tanto queria..... vou postar aqui caso alguém se interesse:

<%

arq = "teste_files1.asp"
Set FSA = Server.CreateObject("Scripting.FileSystemObject")
Set ta = fsa.OpenTextFile(arq, 1)
    s = ta.ReadLine
    sReadAll = ta.ReadAll 
	response.Write("<textarea name=""exemplo"" cols=""80"" rows=""20"">")  

	response.Write(sReadAll)


	response.Write("</textarea>")

    ta.close
%>

Atenciosamente....

Damon

[dark0]

e ae, beleza?

Bom.. eu fiz um aqui agora.. olha só:

<%

Set Fso = CreateObject("Scripting.FileSystemObject")

arq = "c:\autoexec.bat"

  Set txt_ler = Fso.OpenTextFile(arq,1,True,0)

    While Not txt_ler.AtEndOfStream

      linha = Replace(txt_ler.ReadLine, """", """""")

      linha = Replace(linha, "$$$", "textarea")

      linha = Server.HTMLEncode(linha)

      strResultado = strResultado + linha + "<br>"

    Wend

  Set txt_ler = Nothing

 

Set Fso = Nothing

response.write strResultado

%>

basicamente, eu usei a forma desse site:

http://www.freecode.com.br/drArtigos/art_d...DAUK07007YOTYSQ

no site tem explicações e tal..

mas como eu só fui fazer um teste.. nem li

assim, ele funciona!

Ali na variavel ARQ, você coloca o caminho do arquivo!

T+!

[dark0]

hehe.. enquanto eu bolava o codigo, você resolveu..

beleza então!

se você olhar, a forma que eu fiz tb funciona.

já sabe pra que parte ir agora? ler o arquivo você conseguiu.. já acabou tudo?

t+

[damon_rn]

Já....

obrigado pela ajuda.. o meu problema era ler o arquivo.. o restante acho q sei o caminho.. salvar, deletar..

valeu pela grande ajuda....