USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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+,
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página