Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

dimitri_df

Arquivo Anexo no CDONTS

Por , em ASP Clássico

Recommended Posts

dimitri_df    0

dimitri_df
Postado

form

<form action="smartupload.asp" method="post" enctype="multipart/form-data" name="form1"><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="13%">Nome:</td><td width="87%"><input name="rh_nome" type="text" id="rh_nome" size="20"></td></tr><tr><td>Email:</td><td><label><input name="rh_email" type="text" id="rh_email" size="20"></label></td></tr><tr><td>Arquivo:</td><td><label><input name="rh_arquivo" type="file" id="rh_arquivo" size="20"></label></td></tr><tr><td> </td><td> </td></tr><tr><td> </td><td><label><input type="submit" name="Submit" value="Enviar"></label></td></tr></table></form>

 

<%' Coloque um número grande para o tempo de finalização do script, pois o upload pode demorar alguns minutos. Se o servidor estiver com o tempo baixo, pode haver erro no uploadServer.scripttimeout = 10000' Caso houver algum erro o código vai prosseguir até o final. Isso evita que seja mostrada aquela página de erro padrão do Internet ExplorerOn Error Resume Next' Aqui criamos uma instância do objeto do ASP Smart UploadSet Upload = Server.CreateObject("ASPSmartUpload.SmartUpload")' Aqui criamos uma lista dos formatos de arquivos que poderão ser enviadosUpload.AllowedFilesList = "doc"' Aqui configuramos o tamanho máximo de cada arquivo enviado em bytesUpload.MaxFileSize = 1000000' Aqui configuramos o tamanho total para os arquivos enviados. Todos os arquivos juntos não podem passar deste tamanhoUpload.TotalMaxFileSize = 4000000' Aqui é efetuado o envio dos arquivosUpload.Upload' Selecionamos cada arquivo que foi submetido do formulárioFor each File in Upload.Files' Aqui checamos se o tamanho dele é maior que 0 byte. Isso é necessário pois se a pessoa submeter o formulário com o endereço do arquivo errado, será criado umIf File.Size > 0 ThenUpload.Save("/concurso")'Recuperamos agora os campos do formulárioRH_Nome = Replace(Upload.Form.Item("rh_nome"),"'","")RH_Email = Replace(Upload.Form.Item("rh_email"),"'","")RH_Arquivo = Upload.Form.Item("rh_arquivo")'Criando conexão com o CDONTS para enviar mensagensSet eObjMail1 = Server.CreateObject("CDONTS.NewMail")Set eObjMail2 = Server.CreateObject("CDONTS.NewMail")'Mensagem Padrão - Ao DestinatárioDestinatario = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"Destinatario = Destinatario & "<html>"Destinatario = Destinatario & "<head>"Destinatario = Destinatario & "</head>"Destinatario = Destinatario & "NOME: "&RH_Nome&"<br>"Destinatario = Destinatario & "EMAIL: "&RH_Email&"<br>"Destinatario = Destinatario & "<br>A OBRA ESTÁ ATACHADA!"Destinatario = Destinatario & "<body>"Destinatario = Destinatario & "</body>"Destinatario = Destinatario & "</html>"'Configuração do CDONTS, para envio da mensagem strMsg01eObjMail1.To = "FENAJUFE <joelson@fenajufe.org.br>"eObjMail1.From = RH_EmaileObjMail1.Subject = "[ Cadastro do Concurso Literário ]"eObjMail1.Importance = 2eObjMail1.BodyFormat = 0eObjMail1.MailFormat = 0eObjMail1.AttachFile "d:\root\concurso\form&rh_arquivo&"eObjMail1.Body = DestinatarioeObjMail1.Send'Mensagem de Auto-Resposta - Ao RemetenteRemetente = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"Remetente = Remetente & "<html>"Remetente = Remetente & "<head>"Remetente = Remetente & "</head>"Remetente = Remetente & "<h6>Envio para o concurso Literário</h6>" Remetente = Remetente & "<body>"Remetente = Remetente & "</body>"Remetente = Remetente & "</html>"'Configuração do CDONTS, para envio da mensagem strMsg02eObjMail2.To = RH_EmaileObjMail2.From = "FENAJUFE <joelson@fenajufe.org.br>"eObjMail2.Subject = "[ Confirmação de Cadastro]"eObjMail2.Importance = 2eObjMail2.BodyFormat = 0eObjMail2.MailFormat = 0eObjMail2.Body = RemetenteeObjMail2.Send'Liberando recursos depois de enviada as mensagensSet Upload = NothingSet eObjMail1 = NothingSet eObjMail2 = NothingSet SQL = Nothing'Redirecionamento após o envio total da mensagem' Response.Redirect "smartupload_form.htm"'Caso for um arquivo inválido, ou seja, o tamanho dele for igual a zero então aparecerá a mensagem e em seguida terminamos a condição.ElseResponse.Write "O arquivo enviado é inválido"End if'Caso mais de um arquivo tenha sido enviado, enviamos o sistema para o próximo.Next'Se houver algum erro será exibida essa mensagem e a descrição do erroIf Err ThenResponse.Write "Houve um erro: " & Err.DescriptionEnd if'Aqui destruímos a instância do objeto ASP Smart Upload para não haver, casualmente, travas no sistema e outros errosSet Upload = Nothing%>

 

Estou aproveitando um codigo do marmmc

 

mas não consigo receber os arquivos que são enviados para o servidor anexados ao e-mail

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

Olá DIMITRI!Já viu e já tentou primeiramente, ver se o smartupload sozinho está gravando no diretório escolhido o arquivo?E o diretorio em que você está atachando está corretamente?Veja isso aí, olhei o teu código meio por cima, e parece estar tudo bem....Qualquer coisa posta aí novamente, pois vou procurar o código aqui, pois consegui fazer isso uma vez sem problemas. okAté mais.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito