Ir para conteúdo

POWERED BY:

Arquivado

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

FabianoPc

Limite de tamanho - Dundas Upload

Por , em ASP Clássico

Recommended Posts

FabianoPc    0

FabianoPc
Postado

Saudações,

 

Pessoal, por favor, me ajude! Este código abaixo, estou usando para:

Preencher o formulário, depois, ao enviar, ele grava no banco de dados, salva o arquivo no servidor e dispara um email.

Simples, porém ao tentar usar o componente que limita o tamanho do arquivo na hora do envio, nem REZANDO, ROGANDO PRAGA, FAZENDO PROMESSA, não vai.

Tudo que eu li sobre esta paçoca de componente, esta certinho a linha de comando.

Só coloquei um IF caso o arquivo seja muito grande, para ele retornar um erro e pausar, para que o usuário coloque um arquivo. "MAXIMO DE 500K".

Por favor amigos, se for possível verificar o que errei, onde eu errei, se coloquei em lugar errado, se usei método errado, por favor me ajuda, faz 5 dias que não vai, fiquei amarrado nesta paçoca.

Obrigado a todos.

 

Fabiano

Ps: qualquer dica de modificações, será bem vinda.

 

 

<!--#include file="conexao.asp"-->
<% 
Function DataInvertida(date)
dia= day(date)
mes= month(date)
ano= year(date)
DataInvertida = ano&"-"&mes&"-"&dia	
End Function
func=request("func")
Set objUpload = Server.CreateObject("Dundas.Upload.2")

objUpload.SaveToMemory
caminho = "D:\Domains\meudominio.com.br\wwwroot\RATS\UPLOAD_RATS\arquivos\"
For Each objUploadedFile in objUpload.Files
fileext = objUpload.GetFileExt(objUploadedFile.OriginalPath)
fileName = objUpload.GetFileName(objUploadedFile.OriginalPath)
[b]if objUpload.MaxFileSize = 512000 then
response.Write("<script>alert("""&Arquivo&" é muito grande, o tamanho máximo é de 500k !"")</script>")
response.end
[/b]else
end if
if fileext<>"jpg" then
Response.Write("<font color=red size=5><b><p class=""erro"">É permido apenas arquivos no formato .jpg </p></b></font>")
response.end
else
end if
Arquivo="HD00000"&objUpload.form("HD")&"."&fileext&""	
Cliente=objUpload.form("cliente")	
HD=objUpload.form("HD")
TECNICO=objUpload.form("tecnico") 
observacao=objUpload.form("observacao") 
apelido=objUpload.form("apelido")
cidade=objUpload.form("cidade")
empresa=objUpload.form("empresa")
usuario_treinado=objUpload.form("usuario_treinado")
hora_inicial=objUpload.form("hora_inicial")
hora_final=objUpload.form("hora_final")
data_visita=objUpload.form("data_visita")
atend_hd=objUpload.form("atend_hd")
protocolo_hd=objUpload.form("protocolo_hd")
tecnico=objUpload.form("tecnico")
objUploadedFile.SaveAs caminho & Arquivo
Next
Set objUpload = nothing
If Err <> 0 Then
response.write "<b>Erro no envio do arquivo</b>"
Else
if fileName="" then
else
end if
sql_hd="select arquivos.ID from arquivos where  arquivos.Arquivo ='"&Arquivo&"'"
Set RS = conn.execute(sql_hd)
if RS.eof then
else
Response.Write("<script>alert(""Arquivo já encontra-se enviado "&Arquivo&" !"")</script>")
response.end
end if
sql_apelido="select arquivos.ID from arquivos where  arquivos.apelido ='"&apelido&"'"
Set RS = conn.execute(sql_apelido)
if RS.eof then
else
Response.Write("<script>alert(""Apelido já encontra-se enviado "&apelido&" !"")</script>")
response.end
end if
SQLstmt = "INSERT INTO arquivos (HD,Arquivo,data,hora,ip,apelido,cidade,empresa,usuario_treinado,hora_inicial,hora_final,data_visita,atend_hd,protocolo_hd,observacao,tecnico)"
SQLstmt = SQLstmt & " VALUES (" 
SQLstmt = SQLstmt & "'" & HD & "',"
SQLstmt = SQLstmt & "'" & Arquivo & "',"
SQLstmt = SQLstmt & "'" & DataInvertida(date) & "',"
SQLstmt = SQLstmt & "'" & time & "',"
SQLstmt = SQLstmt & "'" & request.servervariableS("REMOTE_ADDR") & "',"
SQLstmt = SQLstmt & "'" & apelido & "',"
SQLstmt = SQLstmt & "'" & cidade & "',"
SQLstmt = SQLstmt & "'" & empresa & "',"
SQLstmt = SQLstmt & "'" & usuario_treinado & "',"
SQLstmt = SQLstmt & "'" & hora_inicial & "',"
SQLstmt = SQLstmt & "'" & hora_final & "',"
SQLstmt = SQLstmt & "'" & data_visita & "',"
SQLstmt = SQLstmt & "'" & atend_hd & "',"
SQLstmt = SQLstmt & "'" & protocolo_hd & "',"
SQLstmt = SQLstmt & "'" & observacao & "',"
SQLstmt = SQLstmt & "'" & tecnico & "'"
SQLstmt = SQLstmt & ")"
Set RS = conn.execute(SQLstmt)
Caminho_JPG=""&caminho&""&Arquivo&""
Dim objCDOSYSCon
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">"
HTML = HTML & "<title>RAT " & Arquivo & "</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body>"
HTML = HTML & "<BR>"
HTML = HTML & "######################################################################<br>"
HTML = HTML & "HD: HD00000" & HD & "<BR>"
HTML = HTML & "Apelido: " & apelido & "<BR>"
HTML = HTML & "Cidade: " & cidade & "<BR>"
HTML = HTML & "Empresa: " & empresa & "<BR>"
HTML = HTML & "Usuario Treinado: " & usuario_treinado & "<BR>"
HTML = HTML & "Hora da Chegada: " & hora_inicial & "<BR>"
HTML = HTML & "Hora da Saida: " & hora_final & "<BR>"
HTML = HTML & "Data da Visita: " & data_visita & "<BR>"
HTML = HTML & "Técnico atendimento HD Caixa: " & atend_hd & "<BR>"
HTML = HTML & "Protocolo HD Caixa: " & protocolo_hd & "<BR>"
HTML = HTML & "Observação RAT: " & observacao & "<BR>"
HTML = HTML & "Tecnico Instalador: " & tecnico & "<BR>"
HTML = HTML & "######################################################################"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSMail.BodyPart.Charset = "ISO-8859-1" 
objCDOSYSMail.BodyPart.Charset = "utf-8"
objCDOSYSMail.HTMLBody = Message
objCDOSYSMail.HTMLBodyPart.Charset = "utf-8"
Session.Lcid = 1046 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "meudominio.com.br" 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "teste@meudominio.com.br"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "meudominio_senha"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 300 
objCDOSYSCon.Fields.Update  
Set objCDOSYSMail.Configuration = objCDOSYSCon  
objCDOSYSMail.From = "teste@meudominio.com.br"
objCDOSYSMail.To = "teste@meudominio.com.br"
objCDOSYSMail.AddAttachment ("D:\Domains\meudominio.com.br\wwwroot\RATS\UPLOAD_RATS\arquivos\" & Arquivo)
objCDOSYSMail.Subject = "ENVIO DE RATS"
objCDOSYSMail.HTMLBody = HTML
objCDOSYSMail.Send
On Error Resume Next 
Mail.Send 
If Err = 0 Then 
End If 
Response.Write("<script>alert(""Enviado com sucesso "&Arquivo&" !"")</script>")
End If
Set Mail = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

retrolink    0

retrolink
Postado

novamente pergunto.... qual o erro? não adianta ficar passando suposições sem saber o erro, existem enis motivos para o que pode esta acontecendo, se passar o erro já é meio caminho andado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

aumente o valor da propriedade objUpload.MaxFileSize

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