Migrar SmartUpload para SaFileUpload

Lucas Milanez · Novembro 1, 2008

Estou com dificuldades para trocar a função SmartUpload para SaFileUpload, abaixo o código para vocês darem uma olhada:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%'Indica as que utilizaremos no config.asp
	dim verifica_session
	verifica_session = false%>
	
<!-- #include file="../config.asp" --> 
<%	'Abre conexão com o Banco de Dados
	'*********************************
 	dim ConnSolut
 	Set ConnSolut = Server.CreateObject("ADODB.Connection")
		ConnSolut.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source="& server.mappath("..\..\..\dados\")&"\"&vbd&";"

'Cria os Objetos FileSystemObject - Persits.Upload.1
'****************************************************
	dim FSO, Upload, Jpeg, rsSelect
	Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
	Set Upload = Server.CreateObject("SoftArtisans.FileUp")
	'Set Upload = Server.CreateObject("aspSmartUpload.SmartUpload")
	Set Jpeg = Server.CreateObject("Persits.Jpeg")
	Set RsSelect = Server.CreateObject("ADODB.RecordSet")

'Cria as variáveis 
'******************
	dim vimg_dinamica, strCAD,vnivel
	'informa o endereço da pasta upload
	vimg_dinamica = Server.MapPath("..\..\upload\")
	Server.ScriptTimeOut = 60
	
'Cria as variáveis 
'******************
	'Permite apenas arquivos GIF ou JPG
	Upload.AllowedFilesList = "gif,jpg,png"
	'Tamanho máximo que o arquivo pode ter !!!
	Upload.MaxFileSize = 1000000
	'Faz a instrução para o  UPLOAD
	Upload.Upload
	'Salva na pasta selecionada !!!
	intCount = Upload.Save(vimg_dinamica&"\temp\")
	
	'recebe o nivel
	vnivel = Upload.Form("nivel")


if Upload.Form("imghome_clone") <> "" then
'Executa o Update das fotos - Controle das fotos
'************************************************
	dim foto_num, randon, j , controle , VImagem_gd, vlen , vponto, vchar, vext_file

	For Each File in Upload.Files
		nm_imagem=File.FileName
	Next

	If FSO.FileExists(vimg_dinamica &"\temp\"& nm_imagem) Then
		'Recupera a extensão do arquivo
		'Primeiro acha onde está o ultimo ponto . , depois pega o resto do nome , trazendo a extensão na variável
		' ********************************************************************************
************************
		vlen  = len(nm_imagem)
		vponto = instrrev(nm_imagem,".", -1, 1)
		vchar = vlen - vponto + 1
		vext_file = right(nm_imagem,vchar)
		vnum = (vlen - vchar)
		vnome = left(nm_imagem,vnum)

	'VImagem_gd é o nome da nova imagem
	'**********************************
		VImagem_gd = "chNivel"&Upload.Form("nivel")&"-"&vnome&"_GD-"&(Hour(Now))&(Minute(Now))&(Second(Now))&vext_file
		VImagem_pq = "chNivel"&Upload.Form("nivel")&"-"&vnome&"_PQ-"&(Hour(Now))&(Minute(Now))&(Second(Now))&vext_file
		VImagem_md = "chNivel"&Upload.Form("nivel")&"-"&vnome&"_MD-"&(Hour(Now))&(Minute(Now))&(Second(Now))&vext_file

	'Verifica se o arquivo já existe, se existe apaga para substituir o novo
		If FSO.FileExists(vimg_dinamica&"\conteudos\"& VImagem_gd) Then
			FSO.DeleteFile vimg_dinamica&"\conteudos\"& VImagem_gd
		End If
		If FSO.FileExists(vimg_dinamica&"\conteudos\"& VImagem_pq) Then
			FSO.DeleteFile vimg_dinamica&"\conteudos\"& VImagem_pq
		End If
		If FSO.FileExists(vimg_dinamica&"\conteudos\"& VImagem_md) Then
			FSO.DeleteFile vimg_dinamica&"\conteudos\"& VImagem_md
		End If
		
	'Verifica se o existem arquivos já cadastrados nesta págona
	'**********************************************************
		If FSO.FileExists(vimg_dinamica &"\conteudos\"&Upload.form("imghome-exist_md")) Then
			Set RsImagem = FSO.GetFile(vimg_dinamica &"\conteudos\"&Upload.form("imghome-exist_md"))
			RsImagem.Delete
			Set RsImagem = Nothing
		End If
		If FSO.FileExists(vimg_dinamica &"\conteudos\"& Upload.form("imghome-exist_pq")) Then
			Set RsImagem = FSO.GetFile(vimg_dinamica &"\conteudos\"& Upload.form("imghome-exist_pq"))
			RsImagem.Delete
			Set RsImagem = Nothing
		End If
		If FSO.FileExists(vimg_dinamica &"\conteudos\"& Upload.form("imghome-exist_gd")) Then
			Set RsImagem = FSO.GetFile(vimg_dinamica &"\conteudos\"& Upload.form("imghome-exist_gd"))
			RsImagem.Delete
			Set RsImagem = Nothing
		End If
				
	'ALTERA O NOME DA IMAGEM QUE ACABOU DE SUBIR, NMIMAGEM PARA VImagem_gd.
	'*********************************************************************
		FSO.MoveFile "" & vimg_dinamica &"\temp\"& nm_imagem &"",""& vimg_dinamica&"\conteudos\"& VImagem_gd&""
		FSO.CopyFile ""& vimg_dinamica&"\conteudos\"& VImagem_gd&"",""& vimg_dinamica&"\conteudos\"& VImagem_pq&""

	'TRATAMENTO IMAGEM GRANDE
	'*************************
		Jpeg.Open vimg_dinamica&"\conteudos\"& VImagem_gd
	vWidth = jpeg.OriginalWidth
	vHeigth = jpeg.OriginalHeight
		
	'SE A LARGURA DA FOTO PUBLICADA FOR MAIOR Q A LARGURA NA CONFIG E SE A LARGURA ORIGINAL FOR MAIOR Q A ALTURA ORIGINAL
	'OU SEJA FOTO ORIGINAL NA HORIZOLTAL
		if Jpeg.OriginalWidth > vhome_gd_width AND Jpeg.OriginalWidth > Jpeg.OriginalHeight Then 'HORIZONTAL
		Jpeg.Width = vhome_gd_width
		Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width  / Jpeg.OriginalWidth
	
	elseif  Jpeg.OriginalHeight > vhome_gd_height AND Jpeg.OriginalHeight > Jpeg.OriginalWidth Then 'VERTICAL
			Jpeg.Height  = vhome_gd_width'vimg_gd_height
			Jpeg.Width = Jpeg.OriginalWidth * Jpeg.Height / Jpeg.OriginalHeight

	elseif  Jpeg.OriginalWidth < vhome_gd_width Then 
			Jpeg.Width = Jpeg.OriginalWidth
			Jpeg.Height = Jpeg.OriginalHeight
	
	elseif  Jpeg.OriginalWidth = Jpeg.OriginalHeight  Then
		Jpeg.Width = vhome_gd_width
		Jpeg.Height  = vhome_gd_height
	end if
		
	'SALVA IMAGEM GRANDE
		Jpeg.Save vimg_dinamica&"\conteudos\"& VImagem_gd
		
	'TRATAMENTO IMAGEM PEQUENA
	'*************************
		Jpeg.Open vimg_dinamica&"\conteudos\"& VImagem_gd
	vWidth = jpeg.OriginalWidth
	vHeigth = jpeg.OriginalHeight

		if Jpeg.OriginalWidth > vhome_pq_width AND Jpeg.OriginalWidth > Jpeg.OriginalHeight Then 'HORIZONTAL
		Jpeg.Width = vhome_pq_width
		Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width  / Jpeg.OriginalWidth
	
	elseif  Jpeg.OriginalHeight > vhome_pq_height AND Jpeg.OriginalHeight > Jpeg.OriginalWidth Then 'VERTICAL
			Jpeg.Height  = vhome_pq_width'vimg_pq_height
			Jpeg.Width = Jpeg.OriginalWidth * Jpeg.Height / Jpeg.OriginalHeight

	elseif  Jpeg.OriginalWidth < vhome_pq_width Then 
			Jpeg.Width = Jpeg.OriginalWidth
			Jpeg.Height = Jpeg.OriginalHeight
	
	elseif  Jpeg.OriginalWidth = Jpeg.OriginalHeight  Then
		Jpeg.Width = vhome_pq_width
		Jpeg.Height  = vhome_pq_height
	end if
	
	'SALVA IMAGEM PEQUENA
		Jpeg.Save vimg_dinamica&"\conteudos\"& VImagem_pq
		
	'TRATAMENTO IMAGEM MÉDIA
	'*************************
		Jpeg.Open vimg_dinamica&"\conteudos\"& VImagem_gd
	vWidth = jpeg.OriginalWidth
	vHeigth = jpeg.OriginalHeight
	
		if Jpeg.OriginalWidth > vhome_md_width AND Jpeg.OriginalWidth > Jpeg.OriginalHeight Then 'HORIZONTAL
		Jpeg.Width = vhome_md_width
		Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width  / Jpeg.OriginalWidth
	
	elseif  Jpeg.OriginalHeight > vhome_md_height AND Jpeg.OriginalHeight > Jpeg.OriginalWidth Then 'VERTICAL
			Jpeg.Height  = vhome_md_width'vimg_pq_height
			Jpeg.Width = Jpeg.OriginalWidth * Jpeg.Height / Jpeg.OriginalHeight

	elseif  Jpeg.OriginalWidth < vhome_md_width Then 
			Jpeg.Width = Jpeg.OriginalWidth
			Jpeg.Height = Jpeg.OriginalHeight
	
	elseif  Jpeg.OriginalWidth = Jpeg.OriginalHeight  Then
		Jpeg.Width = vhome_md_width
		Jpeg.Height  = vhome_md_height
	end if
	'SALVA IMAGEM PEQUENA
		Jpeg.Save vimg_dinamica&"\conteudos\"& VImagem_md

	   End If'se a imagem existe

End If

	'Recebe as variáveis do formulário
	dim vtitulo
		vtitulo = Upload.Form("titulo")
		vtitulo = Replace(vtitulo,"'","'")
		vtitulo = Replace(vtitulo,"""","''")
		vtitulo = Replace(vtitulo,chr(32)&chr(32)," ")
	dim vdescricao
		vdescricao = Upload.Form("descricao")
		vdescricao = Replace(vdescricao,"'","'")
	dim resumo
		vresumo = Upload.Form("resumo")
		vresumo = Replace(vresumo,"'","'")
		vresumo = Replace(vresumo,"""","''")
		vresumo = Replace(vresumo,chr(32)&chr(32)," ")
	dim vdata_cad
		vdata_cad = now()
	
'Monta a string para o cadastro na tabela notícias
'****************************************************
	strCAD = "UPDATE pgn"&vnivel&" SET "
		strCAD = strCAD & "pgn"&vnivel&"_nome='"&vtitulo&"'"
	If vdescricao = "" then
		strCAD = strCAD & ",pgn"&vnivel&"_desc=''"
	Else
		strCAD = strCAD & ",pgn"&vnivel&"_desc='"&vdescricao&"'"
	End If
	If Upload.Form("redirecionamento") <> "" Then
		strCAD = strCAD & ",pgn"&vnivel&"_redir='"&Upload.Form("redirecionamento")&"'"
	Else
		strCAD = strCAD & ",pgn"&vnivel&"_redir=''"
	End If
		
	If vresumo = "" then
		strCAD = strCAD & ",pgn"&vnivel&"_resumo=''"
	Else
		strCAD = strCAD & ",pgn"&vnivel&"_resumo='"&vresumo&"'"
	End If

	'Cadastra as Imagens
	If VImagem_gd <> "" Then
		strCAD = strCAD & ",pgn"&vnivel&"_foto_gd='" & VImagem_gd & "'"
	End If
	If VImagem_md <> "" Then
		strCAD = strCAD & ",pgn"&vnivel&"_foto_md='" & VImagem_md & "'"
	End If
	If VImagem_pq <> "" Then
		strCAD = strCAD & ",pgn"&vnivel&"_foto_pq='" & VImagem_pq & "'"
	End If

	'verifica se a página exibirá a célula da direita
	if Upload.Form("celula_dir") = "s" Then
		strCAD = strCAD & ",pgn"&vnivel&"_tddir=TRUE"
	else
		strCAD = strCAD & ",pgn"&vnivel&"_tddir=FALSE"
	end if		

	If vresumo = "" then
		strCAD = strCAD & ",pgn"&vnivel&"_pl_chaves=''"
	Else
		strCAD = strCAD & ",pgn"&vnivel&"_pl_chaves='"&pgn1_pl_chaves&"'"
	End If

	'verifica se apagina estara disponivel
	if Upload.Form("disponivel") = "s" Then
		strCAD = strCAD & ",pgn"&vnivel&"_disponivel=TRUE"
	else
		strCAD = strCAD & ",pgn"&vnivel&"_disponivel=FALSE"
	end if

	'Cadastra os niveis
		If vnivel = "2" then
			strCAD = strCAD & ",pgn1_id="&Upload.Form("nivel1")
		ElseIf vnivel = "3" then
			strCAD = strCAD & ",pgn1_id="&Upload.Form("nivel1")&",pgn2_id="&Upload.Form("nivel2")
		End If
		
	'Cadastra Clima
		If Upload.Form("clima") = "s" Then
			strCAD = strCAD & ",pgn"&vnivel&"_clima=true"
		ElseIf vnivel = "3" then
			strCAD = strCAD & ",pgn"&vnivel&"_clima=false"
		End If
	
	'Cadastra destaque
	If Upload.Form("dest1") = "s" Then
		'Apaga todo destaque 1
		ConnSolut.Execute("Update pgn1 Set pgn_destaque_1=false WHERE pgn_destaque_1=true")	
		ConnSolut.Execute("Update pgn2 Set pgn_destaque_1=false WHERE pgn_destaque_1=true")	
		ConnSolut.Execute("Update pgn3 Set pgn_destaque_1=false WHERE pgn_destaque_1=true")	
		strCAD = strCAD & ",pgn_destaque_1=true"
	End If
	'Cadastra destaque
	If Upload.Form("dest2") = "s" Then
		'Apaga todo destaque 1
		ConnSolut.Execute("Update pgn1 Set pgn_destaque_2=false WHERE pgn_destaque_1=true")	
		ConnSolut.Execute("Update pgn2 Set pgn_destaque_2=false WHERE pgn_destaque_1=true")	
		ConnSolut.Execute("Update pgn3 Set pgn_destaque_2=false WHERE pgn_destaque_1=true")	
		strCAD = strCAD & ",pgn_destaque_2=true"
	End If
	strCAD = strCAD & " where pgn"&vnivel&"_id="& Upload.form("pg_id")

	ConnSolut.Execute(strCAD)

	'Seleciona o ID desta página
	'***************************
	Set rsCONT = Server.CreateObject("ADODB.RecordSet")
	strCONT = "Select pgn"&vnivel&"_id from pgn"&vnivel&" where pgn"&vnivel&"_nome='" & vtitulo & "' order by pgn"&vnivel&"_dtcad desc"
	rsCONT.Open strCONT,ConnSolut

'Atualiza a tabea de relacionamento com as Galerias
	ConnSolut.Execute("DELETE FROM rel_gal_pg WHERE nivel="&vnivel&" AND id_pg="&Upload.form("pg_id")&";")
	if Upload.Form("galeria") <> "" Then
		galeria = Split(Upload.Form("galeria"),",")					
		For i = 0 to Ubound(galeria)
			'insere no banco
			ConnSolut.Execute("INSERT INTO rel_gal_pg (nivel,id_pg,gal_id) VALUES ("&vnivel&","&Upload.form("pg_id")&","&galeria(i)&");")
		Next
	end if
'Final Relacionamento galerias

'Cadastra Formulário
	'resgata os formulários selecionados
	ConnSolut.Execute("DELETE FROM rel_form_pg WHERE nivel="&vnivel&" AND id_pg="&rsCONT("pgn"&vnivel&"_id")&";")
	If Upload.Form("cat_form") <> "" Then
		forms = Split(Upload.Form("cat_form"),",")
		For i = 0 to Ubound(forms)
			ConnSolut.Execute("INSERT INTO rel_form_pg (nivel,id_pg,id_form) VALUES ("&vnivel&","&Upload.form("pg_id")&","&forms(i)&");")
		Next
	End if			
'Finaliza Relacionamento Formuário


'verifica se há arquivos para relacionar
'	Dim joins_arq,arq
	
'	if Upload.Form("cat_arq") <> "" Then
'		arq = Split(Replace(Upload.Form("cat_arq")," ",""),",")
'		
'		For i = 0 to Ubound(arq)
'			strSQL = "SELECT arq_cat_id FROM rel_arq_pg WHERE nivel="&vnivel&" AND id_pg="&rsCONT("pgn"&vnivel&"_id")&" AND arq_cat_id="&arq(i)&";"
'			Set Rs = ConnSolut.Execute(strSQL)
'			if Rs.EOF Then
'				ConnSolut.Execute("INSERT INTO rel_arq_pg (nivel,id_pg,arq_cat_id) VALUES ("&vnivel&","&rsCONT("pgn"&vnivel&"_id")&","&arq(i)&");")
'			end if
'		Next
'		
'		joins_arq = Join(arq,",")
'		ConnSolut.Execute("DELETE FROM rel_arq_pg WHERE arq_cat_id not in ("&joins_arq&") AND nivel="&vnivel&" AND id_pg="&rsCONT("pgn"&vnivel&"_id")&";")	
'	else
'		ConnSolut.Execute("DELETE FROM rel_arq_pg WHERE nivel="&vnivel&" AND id_pg="&rsCONT("pgn"&vnivel&"_id")&";")
'	end if


	'verifica se há noticias para relacionar
	ConnSolut.Execute("DELETE FROM rel_nt_pg WHERE nivel="&vnivel&" AND id_pg="&rsCONT("pgn"&vnivel&"_id")&";")
	dim cat_not
	if Upload.Form("cat_not") <> "" Then
		cat_not = Split(Upload.Form("cat_not"),",")					
		For i = 0 to Ubound(cat_not)
			'insere no banco
			ConnSolut.Execute("INSERT INTO rel_nt_pg (nivel,id_pg,not_cat_id) VALUES ("&vnivel&","&Upload.form("pg_id")&","&cat_not(i)&");")
		Next
	end if
	

	'verifica se há eventos para relacionar
'	Dim joins_ev,eventos
	
'	if Upload.Form("cat_ev") <> "" Then
'		eventos = Split(Replace(Upload.Form("cat_ev")," ",""),",")
		
'		For i = 0 to Ubound(eventos)
'			strSQL = "SELECT ev_cat_id FROM rel_ev_pg WHERE nivel="&vnivel&" AND id_pg="&rsCONT("pgn"&vnivel&"_id")&" AND ev_cat_id="&eventos(i)&";"
'			Set Rs = ConnSolut.Execute(strSQL)
'			if Rs.EOF Then
'				ConnSolut.Execute("INSERT INTO rel_ev_pg (nivel,id_pg,ev_cat_id) VALUES ("&vnivel&","&rsCONT("pgn"&vnivel&"_id")&","&eventos(i)&");")
'			end if
'		Next
		
'		joins_ev = Join(eventos,",")
'		ConnSolut.Execute("DELETE FROM rel_ev_pg WHERE ev_cat_id not in ("&joins_ev&") AND nivel="&vnivel&" AND id_pg="&rsCONT("pgn"&vnivel&"_id")&";")	
'	else
'		ConnSolut.Execute("DELETE FROM rel_ev_pg WHERE nivel="&vnivel&" AND id_pg="&rsCONT("pgn"&vnivel&"_id")&";")
'	end if	
	
	'Apaga as tags selecionadas no check box
	If Upload.Form("tag_id") <> "" Then
		Dim tag_id,i
		tag_id = Split(Upload.Form("tag_id"),",")
			For i = 0 To Ubound(tag_id)
				ConnSolut.Execute("Delete from tag_pg Where tagpg_id="&tag_id(i))
			Next
	End If
	'Cadastra as tags
	If Upload.Form("tags") <> "" Then
		Dim tags,n
		tags = Split(Upload.Form("tags"),",")
			' Detelaos dados na tabela usr_atv
			For n = 0 To Ubound(tags)
					ConnSolut.Execute("INSERT INTO tag_pg (tag_txt,nivel,pgn_id) VALUES ('"&tags(n)&"',"&vnivel&","&rsCONT("pgn"&vnivel&"_id")&")")
			Next
	End If

	response.redirect("pgweb_lista.asp?acao=cadastro")	
	
	rsCONT.Close
	Set rsCONT =Nothing
	Set rsSelect = Nothing
	Set FSO = Nothing
	Set Upload = Nothing
	Set Jpeg = Nothing
	ConnSolut.Close
	Set ConnSolut= Nothing
%>

Ted k' · Novembro 2, 2008

aff tanto código, está com dificultada de que para ser mais exato?

Lucas Milanez · Novembro 3, 2008

Bom na verdade é assim..

No antigo servidor onde o site estava hospedado lá eles utilizavam o componente SmartUpload mais o site foi migrado para outro servidor e eles utilizam o SaFileUpload; agora a minha duvida é se eu só preciso trocar a função ou se eu terei que alterar o codigo inteiro?!?

Salgado · Novembro 3, 2008

Basicamente só altera o trecho que faz uso do componente.

Entrar

Arquivado

Migrar SmartUpload para SaFileUpload

Recommended Posts

Lucas Milanez 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Lucas Milanez 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

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

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante