Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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'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'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' 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= NothingCarregando comentários...