|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Editor de Textos
|
 |
|
|
|
Postada em 8/10/2003 por ^HEAVY-METAL^
Um exemplo de como escrever em arquivos textos.
DEFAULT.ASP
-------------------------
<HTML>
<HEAD>
<title>TESTE PARA LEITURA E ESCRITA DE ARQUIVOS EM
ASP</TITLE>
</HEAD>
<%
ForReading = 1
txtPath="F:\web\editor\teste.txt"
%>
<BODY>
<br>
<center><FONT COLOR=RED>Editor de Texto do
Arquivo <%= txtPath %
></FONT></center> <BR>
<BR>
<BR>
<%
Set objeto = CreateObject("Scripting.FileSystemObject")
Set leitura = objeto.OpenTextFile(txtPath,ForReading,False)
%>
<center>
<form method="post" action=escreve.asp>
<textarea name=caixa rows=18 cols=80 value="" ><%
While (not leitura.AtEndOfStream)
campo = leitura.readline
response.write(Server.HTMLEncode(campo) & CHR(13))
wend
%></textarea><BR>
<input type="submit" name="botao" value="Gravar arquivo"
></form>
<%
leitura.Close
Set leitura = nothing
set objeto = nothing
%>
</center>
<br>
</BODY>
</HTML>
ESCREVE.ASP
-------------------------
<%
ForWriting = 2
txtPath="F:\web\editor\teste.txt"
%>
<%
Set objeto = CreateObject("Scripting.FileSystemObject")
Set escrita = objeto.OpenTextFile(txtPath,ForWriting,True)
Private Function gravar(varTexto)
escrita.writeline(texto)
End Function
%>
<HTML>
<HEAD>
<TITLE>gravar</TITLE>
</HEAD>
<BODY>
<%
texto=Request.Form("caixa")
gravar(texto)
%>
Ok!<br>
Texto gravado com sucesso:
<p>
<%= texto %>
<p>
<a href="javascript:history.back();">Voltar</a>
</BODY>
</HTML>
T+,
|
|
|
|
|
