INTERNET HOST - Ajuda On-Line - Como migrar do Access para o MySQL

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 &quot;<%=arq.FileName%>&quot;<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.