|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Gerando um Memorando Utilizando FSO
|
 |
|
|
|
Postada em 8/10/2003 por ^HEAVY-METAL^
Aprenda como criar um memorando a partir de dados inseridos em um formulário HTML.
Para exemplificar isso, criei um Form HTML assim:
__________________________________________________________
- default.asp ou index.html
__________________________________________________________
<%
' Programa simples, exemplo de como utilizar
' FSO para escrever um Memorando para seu chefe
' e gravá-lo como HTML.
%>
<HTML>
<HEAD>
<TITLE>Formulário</TITLE>
</HEAD>
<BODY bgcolor="#FFFFFF">
<p>
<font face="Verdana, Arial, Helvetica, sans-serif" size="4">
Formulário Gerador de Memorando
</font>
</p>
<form action="memo.asp" method="POST">
<p> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">De:</font>
<input type="Text" name="de" size="60" maxlength="255" tabindex="0">
<br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">Para:</font>
<input type="Text" name="para" size="60" maxlength="255" tabindex="1"></p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Texto:</font><br>
'
'COMANDO SECCIONADO POIS DEU PROBLEMA NO CADASTRO DO SCRIPT !!!
'
< t e x t a r e a name="texto" cols="80" rows="10"
wrap="PHYSICAL" > < / t e x t a r e a >
'
' CORTE FORA ESSES COMENTÁRIOS AO COPIAR O TEXTO...
'
</p>
<p><input type="Submit" name="Gerar" value="Gerar !" tabindex="3">
<input type="Reset" name="Limpar" value="Limpar !" tabindex="4">
</p>
</form>
</BODY>
</HTML>
__________________________________________________________
Aí criei uma página chamada MEMO.ASP, gravando os dados digitados no formulário em um arquivo chamado MEMORANDO.HTM. Mas para apresentar os dados do formulário de forma decente, utilizei uma função de conversão chamada ConverteTexto para filtrar e converter os Enter's digitados pelo usuário no texto do memorando. E também precisei escrever no MEMORANDO.HTM as TAGS necessárias para formatar o conteúdo do HTML e apresentá-lo com fontes e enfeites decentes. Saiu mais ou menos assim:
__________________________________________________________
- memo.asp
__________________________________________________________
<%
Private Function ConverteTexto(varTexto)
Dim y, x, z, limite
limite = Len(Trim(varTexto))
y = ""
for x = 1 to limite
z = Mid(varTexto, x, 1)
if z = CHR(10) Then
z = "<br>"
end if
y = y & z
next
ConverteTexto = y
End Function
%>
<%
Dim fso, f1
varDe = Request.Form("de")
varPara = Request.Form("para")
varTexto = Request.Form("texto")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\memorando.htm", True)
f1.Write("<HTML>")
f1.Write("<HEAD>")
f1.Write("<TITLE>Memorando</TITLE>")
f1.WriteLine("</HEAD><BODY>")
f1.WriteBlankLines(1)
f1.Write("<font face=Verdana size=4>")
f1.Write("Memorando Criado a Partir do Formulário")
f1.WriteLine("</font>")
f1.Write("<p><font face=Verdana size=2>")
f1.Write("De: " & varDe)
f1.Write("<br>")
f1.Write("Para: " & varPara)
f1.WriteLine("</font></p>")
f1.WriteBlankLines(1)
f1.WriteLine("<p><font face=Verdana size=2>Mensagem:<br>")
f1.WriteLine(ConverteTexto(varTexto))
f1.WriteLine("</font></p>")
f1.WriteBlankLines(1)
f1.WriteLine("</BODY></HTML>")
f1.Close
Set f1 = Nothing
Set fso = Nothing
%>
<HTML>
<HEAD>
<TITLE>Resposta do Formulário</TITLE>
</HEAD>
<BODY>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="4">
Formulário Gerador de Memorando
</font></p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Relatório Criado!</font></p>
</BODY>
</HTML>
T+,
|
|
|
|
|
