Exemplos de uso dos componentes ASP
Exemplo de uso do componente de envio de e-mail:
<%
Set email = Server.CreateObject("CDONTS.NewMail")
email.From = "formulario@meusite.com.br"
email.To = "joao@dominio-x.com.br"
email.BCC = "maria@dominio-x.com.br"
' Abaixo, 0 = HTML e 1 = texto
email.BodyFormat = 1
email.Subject = "Nova assinatura"
email.Body = "Novo assinante na lista, favor verificar!"
email.Send
Set email = Nothing
%>
Exemplo de uso do componente de upload:
(salvar como "upload.asp" ou mudar nome abaixo)
<html>
<body>
<%
Response.Expires = 0
' Onde serão gravados os arquivos
Dim dir_destino
dir_destino = "uploads/"
' Verifica se formulário foi enviado
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
' Objeto de upload
Set upl = Server.CreateObject("Chili.Upload.1")
' Limite do tamanho dos arquivos
upl.SizeLimit = 100000
If upl.FormData("enviar") <> "" Then
Dim fs, nome
Set fs = Server.CreateObject("Scripting.FileSystemObject")
' Verifica cada item de FormData para ver se é arquivo
For Each arq In upl.FormData
If arq.IsFile = True And arq.Size <> 0 Then
nome = dir_destino & arq.FileName(False)
' Apaga arquivo se já existir no diretório
If fs.FileExists(nome) Then
fs.DeleteFile(nome)
End If
' Grava arquivo no diretório
arq.SaveToFile(nome)
%>
<p>Foram gravados <%=arq.Size%> bytes do arquivo "<%=arq.FileName%>"<br>
<%
End If
Next
%>
Checkbox: <%=upl.FormData("checkbox")%></p>
<hr>
<%
End If
End If
%>
<form action="upload.asp" method="post" enctype="multipart/form-data">
Checkbox: <input type="checkbox" name="checkbox" value="1" size="30"><br>
Arquivo 1: <input type="file" name="file1"><br>
Arquivo 2: <input type="file" name="file2"><br>
<input type="submit" name="enviar" value="Enviar">
</form>
</body>
</html>
<< Voltar
__________________________
O conteúdo deste documento está registrado no Escritório de Direitos Autorais. Reprodução total ou parcial proibida.
|