[Resolvido] Problemas com SaFileUp
Boa tarde,tenho um script de upload que funcionava com o Persits.Upload
mais precisei trocar de componente ,troquei pelo SaFileUp ,porém ainda nao conseguir
fazer funcionar, está dando o seguinte erro:
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'Files'
/sites/ModuloFotos/upload.asp, line 30
(óbvio que da para perceber que o erro diz que o componente nao suporta o metodo utilizado,
com o outro componente este metodo funcionava,como utilizar para este ? )
NA LINHA 30 TEM O SEGUINTE CÓDIGO
For Each File in SaFileUp.Files
CÓDIGO INTEIRO COM SaFileUp ADPATADO
<!--#include file="adovbs.inc"-->
<!--#include file="criptografia.asp"-->
<%
randomize
tam=8 'Define o tamanho da senha
md=md5(now())
aleat=Int(22-tam*Rnd)+1
codigoAleatorio=mid(md, aleat, tam)
%>
<%'###### início loop SaFileUp componente##########################################################%>
<%
'Server.ScriptTimeout = 360
Dim SaFileUp
Dim strFormElement
Dim strSubItem
Dim sCaminho
'Instancia o componente
SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp")
'Configura o caminho onde arquivo será salvo
Count = SaFileUp.Save = ("e:\home\imagens\fotos\")
For Each File in SaFileUp.Files
'######### início do registro na Base de Dados, dentro do loop do script de upload ##############
nome_original = codigoAleatorio & "_" & File.Filename
nome_arquivo = File.FileName
id= request.QueryString("id")%>
<%'################# criando a miniatura para o thumbnail ASPJPG ################################%>
<%
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("SoftArtisans.Jpeg")
' Open source image
Jpeg.Open "e:\home\imagens\fotos\" & nome_arquivo &""
' New width
L = 600
' Resize, preserve aspect ratio
If Jpeg.OriginalWidth > jpeg.OriginalHeight Then
Jpeg.Width = L
Jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
Jpeg.Height = L
Jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If
'Esse método é opcional, usado para melhorar o visual da imagem
'Jpeg.Sharpen 1, 150
Jpeg.Quality = 100
' create thumbnail and save it to disk
Jpeg.Save "e:\home\imagens\thumbs\" & codigoAleatorio & "_" & nome_arquivo &""
%>
<%Set Jpeg = Nothing%>
<%
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("SoftArtisans.Jpeg")
' Open source image
Jpeg.Open "e:\home\imagens\fotos\" & nome_arquivo &""
' New width
L = 600
' Resize, preserve aspect ratio
If Jpeg.OriginalWidth > jpeg.OriginalHeight Then
Jpeg.Width = L
Jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
Jpeg.Height = L
Jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If
'Esse método é opcional, usado para melhorar o visual da imagem
'Jpeg.Sharpen 1, 150
Jpeg.Quality = 100
jpeg.Adjust 3, -1
jpeg.Adjust 1, 0.2
' create thumbnail and save it to disk
Jpeg.Save "e:\home\imagens\thumbs\pb_" & codigoAleatorio & "_" & nome_arquivo &""
%>
<%Set Jpeg = Nothing%>
<%
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("SoftArtisans.Jpeg")
' Open source image
Jpeg.Open "e:\home\imagens\fotos\" & nome_arquivo &""
' New width
L = 1000
' Resize, preserve aspect ratio
If Jpeg.OriginalWidth < 1000 Then
ElseIf Jpeg.OriginalWidth > jpeg.OriginalHeight Then
Jpeg.Width = L
Jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
Jpeg.Height = L
Jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If
'Esse método é opcional, usado para melhorar o visual da imagem
'Jpeg.Sharpen 1, 150
Jpeg.Quality = 100
X = Jpeg.Width - 300
Y = Jpeg.Height - 200
'Jpeg.Canvas.DrawPNG X, Y, "e:\home\"
Jpeg.Canvas.Font.Color = &HFFFFFFF
Jpeg.Canvas.Font.Family = "Arial"
Jpeg.Canvas.Font.Size = 14
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Font.ShadowColor = &H000000
Jpeg.Canvas.Font.ShadowXoffset = 1
Jpeg.Canvas.Font.ShadowYoffset = 1
Jpeg.Canvas.Font.Quality = 1
Dados = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("dados.mdb")
sqlstmtConfig = "SELECT * FROM configuracoes where id=1"
Set rsConfig = Server.CreateObject("ADODB.Recordset")
rsConfig.Open sqlstmtConfig, Dados
enderecoSite = rsConfig("enderecoSite")
Set rsConfig = nothing
'Jpeg.Canvas.Print 10, 10, "© " & Year(Date) & " " & enderecoSite
' create thumbnail and save it to disk
Jpeg.Save "e:\home\imagens\fotos\" & codigoAleatorio & "_" & nome_arquivo &""
%>
<%Set Jpeg = Nothing%>
<%'########################################### FIM ASPJPG #######################################%>
<%
ConnString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\ModuloFotos\dados.mdb;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString
set insertSet = Server.CreateObject("ADODB.Recordset")
insertSet.Open "fotos", Conn,_
adOpenStatic, adCmdTable
insertSet.AddNew
insertSet("idAlbum") = id
insertSet("foto") = codigoAleatorio & "_" & nome_arquivo
insertSet("thumb") = codigoAleatorio & "_" & nome_arquivo
insertSet.update
insertSet.close
set insertSet = Nothing
%>
<%
set RS = nothing
Conn.close
%>
<%
Next
'--- Dereference FileUp
Set SaFileUp = Nothing
'####### FIM do SaFileUp componente #########################################################
if nome_arquivo = "" then
else
Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")
ObjFSO.DeleteFile "e:\home\imagens\fotos\"&nome_arquivo&" "
Set ObjFSO = Nothing
end if
%>
<%
id= request.QueryString("id")
album= request.QueryString("album")
response.Redirect("albumDetalhe.asp?album="&album&"&id="&id&"")
%>
O CÓDIGO COM O COMPONENTE Persits.Upload (ASSIM FUNCIONA)
<!--#include file="adovbs.inc"-->
<!--#include file="criptografia.asp"-->
<%
randomize
tam=8 'Define o tamanho da senha
md=md5(now())
aleat=Int(22-tam*Rnd)+1
codigoAleatorio=mid(md, aleat, tam)
%>
<%
'Server.ScriptTimeout = 360
Dim oFileUp
Dim strFormElement
Dim strSubItem
Dim sCaminho
'--- Instantiate the FileUp object
Set oFileUp = Server.CreateObject("Persits.Upload.1")
oFileUp.OverwriteFiles = False
oFileUp.SetMaxSize 99999999
Count = oFileUp.Save("e:\home\imagens\fotos\")
For Each File in oFileUp.Files
'######### início do registro na Base de Dados, dentro do loop do script de upload ##############
nome_original = codigoAleatorio & "_" & File.Filename
nome_arquivo = File.FileName
id= request.QueryString("id")%>
<%'################# criando a miniatura para o thumbnail ASPJPG ################################%>
<%
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open source image
Jpeg.Open "e:\home\imagens\fotos\" & nome_arquivo &""
' New width
L = 600
' Resize, preserve aspect ratio
If Jpeg.OriginalWidth > jpeg.OriginalHeight Then
Jpeg.Width = L
Jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
Jpeg.Height = L
Jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If
'Esse método é opcional, usado para melhorar o visual da imagem
'Jpeg.Sharpen 1, 150
Jpeg.Quality = 100
' create thumbnail and save it to disk
Jpeg.Save "e:\home\imagens\thumbs\" & codigoAleatorio & "_" & nome_arquivo &""
%>
<%Set Jpeg = Nothing%>
<%
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open source image
Jpeg.Open "e:\home\imagens\fotos\" & nome_arquivo &""
' New width
L = 600
' Resize, preserve aspect ratio
If Jpeg.OriginalWidth > jpeg.OriginalHeight Then
Jpeg.Width = L
Jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
Jpeg.Height = L
Jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If
'Esse método é opcional, usado para melhorar o visual da imagem
'Jpeg.Sharpen 1, 150
Jpeg.Quality = 100
jpeg.Adjust 3, -1
jpeg.Adjust 1, 0.2
' create thumbnail and save it to disk
Jpeg.Save "e:\home\imagens\thumbs\pb_" & codigoAleatorio & "_" & nome_arquivo &""
%>
<%Set Jpeg = Nothing%>
<%
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open source image
Jpeg.Open "e:\home\imagens\fotos\" & nome_arquivo &""
' New width
L = 1000
' Resize, preserve aspect ratio
If Jpeg.OriginalWidth < 1000 Then
ElseIf Jpeg.OriginalWidth > jpeg.OriginalHeight Then
Jpeg.Width = L
Jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
Jpeg.Height = L
Jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If
'Esse método é opcional, usado para melhorar o visual da imagem
'Jpeg.Sharpen 1, 150
Jpeg.Quality = 100
X = Jpeg.Width - 300
Y = Jpeg.Height - 200
'Jpeg.Canvas.DrawPNG X, Y, "e:\home\ema.png"
Jpeg.Canvas.Font.Color = &HFFFFFFF
Jpeg.Canvas.Font.Family = "Arial"
Jpeg.Canvas.Font.Size = 14
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Font.ShadowColor = &H000000
Jpeg.Canvas.Font.ShadowXoffset = 1
Jpeg.Canvas.Font.ShadowYoffset = 1
Jpeg.Canvas.Font.Quality = 1
Dados = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("dados.mdb")
sqlstmtConfig = "SELECT * FROM configuracoes where id=1"
Set rsConfig = Server.CreateObject("ADODB.Recordset")
rsConfig.Open sqlstmtConfig, Dados
enderecoSite = rsConfig("enderecoSite")
Set rsConfig = nothing
'Jpeg.Canvas.Print 10, 10, "© " & Year(Date) & " " & enderecoSite
' create thumbnail and save it to disk
Jpeg.Save "e:\home\imagens\fotos\" & codigoAleatorio & "_" & nome_arquivo &""
%>
<%Set Jpeg = Nothing%>
<%'########################################### FIM ASPJPG #######################################%>
<%
ConnString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\web\sistema\dados.mdb;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString
set insertSet = Server.CreateObject("ADODB.Recordset")
insertSet.Open "fotos", Conn,_
adOpenStatic, adCmdTable
insertSet.AddNew
insertSet("idAlbum") = id
insertSet("foto") = codigoAleatorio & "_" & nome_arquivo
insertSet("thumb") = codigoAleatorio & "_" & nome_arquivo
insertSet.update
insertSet.close
set insertSet = Nothing
%>
<%
set RS = nothing
Conn.close
%>
<%
Next
'--- Dereference FileUp
Set oFileUp = Nothing
'####### FIM do SaFileUp componente #########################################################
if nome_arquivo = "" then
else
Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")
ObjFSO.DeleteFile "e:\home\imagens\fotos\"&nome_arquivo&" "
Set ObjFSO = Nothing
end if
%>
<%
id= request.QueryString("id")
album= request.QueryString("album")
response.Redirect("albumDetalhe.asp?album="&album&"&id="&id&"")
%>
Discussão (12)
Carregando comentários...