[Resolvido] De Dundas para AspUpload

DADO®Shapper · Julho 23, 2009

Olá pessoal, mudei o site de um cliente de servidor e o novo servidor só aceita AspUpload, estou tentando arrumar e não tive muito sucesso, quando carrego os novos dados para atualizar a página, aparece a mensagem que deu certo, mas quando vou na página não tem nada atualizado, alguém sabe como converter?

O código atual com o Dundas é esse, como faço para converter para AspUpload?

<!--#Include File="Includes/inc_conexao.asp"-->
<!--#Include File="Includes/inc_funcoes.asp"-->
<%
VarCod = Trim(Request("Cod"))

If VarCod <> "" Then

Set Upload = server.CreateObject("Dundas.Upload.2")

Upload.UseVirtualDir = False
upload.UseUniqueNames = True
Upload.Save Server.MapPath("Upload")

For Each UploadedFile in Upload.Files
	caminho = UploadedFile.Path
Next

if caminho <> "" then
	quebra = split(caminho,"\")
	VarArquivo = quebra(ubound(quebra))
end if

if VarArquivo <> "" then

Set Jpeg = Server.CreateObject("Persits.Jpeg")

L = 82
A = 72

JPEG.Open Server.MapPath("Upload") & "\" & VarArquivo

if jpeg.OriginalWidth > L Then
   jpeg.Width = L
   jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth   
End If

JPEG.Save Server.MapPath("Upload") & "\" & VarArquivo

SET JPEG = Nothing

end if

	If Trim(Upload.Form("VarNascimento")) = "dd/mm/aaaa" then
		data = "01/01/1999"
	else
		QuebraData2 = Split(Trim(Upload.Form("VarNascimento")),"/")
		data = QuebraData2(2) & "/" & QuebraData2(1) & "/" & QuebraData2(0)
	end if

	oConn.Execute("UPDATE TB_Alunos SET Grupo=" & Apostrofo(Trim(Upload.Form("VarGrupo"))) & ", Nome='" & Apostrofo(Trim(Upload.Form("VarNome"))) & "', Email='" & Apostrofo(Trim(Upload.Form("VarEmail"))) & "', Nascimento=#" & data & "#, Telefone='" & Apostrofo(Trim(Upload.Form("VarTelefone"))) & "', Celular='" & Apostrofo(Trim(Upload.Form("VarCelular"))) & "', Senha='" & Apostrofo(Trim(Upload.Form("VarSenha"))) & "', Empresa='" & Apostrofo(Trim(Upload.Form("VarEmpresa"))) & "', Nivel=" & Apostrofo(Trim(Upload.Form("VarAdministrador"))) & " WHERE Cod=" & VarCod)
	
	SET UPLOAD = Nothing
	
	if VarArquivo <> "" Then
	
	oConn.Execute("UPDATE TB_Alunos SET Foto='" & VarArquivo & "' WHERE Cod=" & VarCod)
	
	End If
	
Else

Set Upload = server.CreateObject("Dundas.Upload.2")

Upload.UseVirtualDir = False
upload.UseUniqueNames = True
Upload.Save Server.MapPath("Upload")

For Each UploadedFile in Upload.Files
	caminho = UploadedFile.Path
Next

if caminho <> "" then
	quebra = split(caminho,"\")
	VarArquivo = quebra(ubound(quebra))
end if

if VarArquivo <> "" then

Set Jpeg = Server.CreateObject("Persits.Jpeg")

L = 82
A = 72

JPEG.Open Server.MapPath("Upload") & "\" & VarArquivo

if jpeg.OriginalWidth > L Then
   jpeg.Width = L
   jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth   
End If

JPEG.Save Server.MapPath("Upload") & "\" & VarArquivo

end if

SET JPEG = Nothing

	If Trim(Upload.Form("VarNascimento")) = "dd/mm/aaaa" then
		data = "01/01/1999"
	else
		QuebraData2 = Split(Trim(Upload.Form("VarNascimento")),"/")
		data = QuebraData2(2) & "/" & QuebraData2(1) & "/" & QuebraData2(0)
	end if

	oConn.Execute("INSERT INTO TB_Alunos (Grupo,Nome,Email,Nascimento,Telefone,Celular,Foto,Senha,Empresa, Nivel,Data_Criacao) VALUES (" & Trim(Upload.Form("VarGrupo")) & ",'" & Trim(Upload.Form("VarNome")) & "','" & Trim(Upload.Form("VarEmail")) & "',#" & data & "#,'" & Trim(Upload.Form("VarTelefone")) & "','" & Trim(Upload.Form("VarCelular")) & "','" & VarArquivo & "','" & Trim(Upload.Form("VarSenha")) & "','" & Trim(Upload.Form("VarEmpresa")) & "'," & Trim(Upload.Form("VarAdministrador")) & ",#" & Year(Now) & "/" & Month(Now) & "/" & Day(now) & " " & Time & "#)")
	
	SET UPLOAD = Nothing
	
End if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Flávio Garcia</title>
<style type="text/css">
* {margin:0px;padding:0px;font-family: "Helvetica Neue", Helvetica, Arial, sans-serif;text-decoration:none;list-style:none;font-style:normal;}
body {background:#FFF;padding:10px;}
h2 {border-bottom:5px solid #474A51;font-size:120%;color:#474A51;line-height:30px;margin-bottom:10px;}
</style>
<script>
function atualiza() {
opener.location.reload();
}
</script>  
</head>

<body onload="javascript:atualiza();">
    <h2>Alunos</h2>
      <h5>Aluno atualizado com sucesso! </h5>
</body>
</html>

Muito obrigado por enquanto.

Abraços.

hargon · Julho 23, 2009

Tópico movido.

Origem: ASP > Artigos, Tutoriais e Matérias (ASP) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Destino: ASP

hargon · Julho 24, 2009

Você já leu a documentação do AspUpload?

http://www.aspupload.com/manual.html

xanburzum · Julho 24, 2009

naun eskça k existem ótimos exemplos no forum tb...

um exemplo bem simples de ASPupload

<html>
<head>
<title>AspUpload : Upload Simples</title>
</head>
<body>

<h4>AspUpload</h4>

<b>Select 1, 2 or 3 files, then click the Upload button. Images (.gif, .jpg, .png) will be automatically displayed.</b>

<p>
  <form name="MyForm" method="post" enctype="multipart/form-data" action="AspUpload.asp">
  <table cellspacing="0" cellpadding="3" border="1">
    <tr>
      <td bgcolor="#FFFFCC">
        <input type="file" size="40" name="filefield" /><br />
        <input type="submit" value="Upload" /><br />
      </td>
    </tr>
  </table>
  </form>
</p>

</body>
</html>

<%
' Cria uma instância do controle
Set AspUpload = Server.CreateObject("Persits.Upload.1")
' Não sobrevescrever arquivos
AspUpload.OverwriteFiles = False

On Error Resume Next 
' Limita o tamanho máximo do arquivo em 1MB
AspUpload.SetMaxSize 1048576
' Salva o arquivo
Count = AspUpload.Save("c:\upload\")

' Tira o objeto da memória
Set AspUpload = Nothing

If Err <> 0 Then
  Response.Write "Erro. " & Err.Description
Else
  Response.Write "Upload realizado com sucesso."
End If
%>

naun tem segredo, apenas seguir o script

DADO®Shapper · Julho 25, 2009

naun eskça k existem ótimos exemplos no forum tb...

um exemplo bem simples de ASPupload

<html>
<head>
<title>AspUpload : Upload Simples</title>
</head>
<body>

<h4>AspUpload</h4>

<b>Select 1, 2 or 3 files, then click the Upload button. Images (.gif, .jpg, .png) will be automatically displayed.</b>

<p>
  <form name="MyForm" method="post" enctype="multipart/form-data" action="AspUpload.asp">
  <table cellspacing="0" cellpadding="3" border="1">
    <tr>
      <td bgcolor="#FFFFCC">
        <input type="file" size="40" name="filefield" /><br />
        <input type="submit" value="Upload" /><br />
      </td>
    </tr>
  </table>
  </form>
</p>

</body>
</html>

<%
' Cria uma instância do controle
Set AspUpload = Server.CreateObject("Persits.Upload.1")
' Não sobrevescrever arquivos
AspUpload.OverwriteFiles = False

On Error Resume Next 
' Limita o tamanho máximo do arquivo em 1MB
AspUpload.SetMaxSize 1048576
' Salva o arquivo
Count = AspUpload.Save("c:\upload\")

' Tira o objeto da memória
Set AspUpload = Nothing

If Err <> 0 Then
  Response.Write "Erro. " & Err.Description
Else
  Response.Write "Upload realizado com sucesso."
End If
%>

naun tem segredo, apenas seguir o script

Pior que eu nem manjo muito de ASP, e o sistema da a mensagem de que o upload foi realizado com sucesso mas a página não altera nada...rs

A página até carrega novamente e tal, mas os dados continuam os mesmos.

DADO®Shapper · Julho 25, 2009

Consegui olhando aqui nesse site http://www.aspupload.com que o Hargon passou, parece que agora deu certo, consegui atualizar e editar os dados dos alunos na página, vou mandar para o cliente ver se está tudo ok.

Muito obrigado mesmo pela ajuda.

Grande abraço.

hargon · Julho 25, 2009

Muito bom DADO®Shapper. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

xanburzum · Julho 25, 2009

beleza...

precisando esclarecer outras duvidas, posta ae...

DADO®Shapper · Julho 25, 2009

Só para mostrar o que fiz, caso alguém tenha a mesma dúvida que eu.

Eu mudei essa parte

Set Upload = server.CreateObject("Dundas.Upload.2")  
Upload.UseVirtualDir = False upload.UseUniqueNames = True Upload.Save Server.MapPath("Upload")  
For Each UploadedFile in Upload.Files         
caminho = UploadedFile.Path 
Next  
if caminho <> "" then         
quebra = split(caminho,"\")         
VarArquivo = quebra(ubound(quebra)) end if

Para Esse:

Set Upload = Server.CreateObject("Persits.Upload.1")  	
Upload.OverwriteFiles = False 	
On Error Resume Next  	
Upload.SetMaxSize 1048576	
' Limit files to 1MB 	
Count = Upload.Save("c:\upload")

E funcionou numa boa, só estou tendo problemas para fazer o upload do jpeg,da a mensagem de sucesso, mas não adiciona, estou vendo aqui o que faço...rs

Abraços.

Arquivado

[Resolvido] De Dundas para AspUpload

Recommended Posts

DADO®Shapper 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

DADO®Shapper 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

DADO®Shapper 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

DADO®Shapper 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante