Originariamente inviato da pieromt
ragazzi mi aiutate a trovare l'errore in questo script?
esegue correttamente l'upload sul server ma nn fa il resize dell'immagine..
posto le due pagine...
UPLOADFOTO.ASP
[CODE
<%
Function RedimFoto(nomeFoto,sizeThumb,sizeFoto)
Dim xml,tmpResult,url
Set xml = Server.CreateObject("Microsoft.Xmlhttp")
URL = "http://www.scibettabbigliamento.it/ridimensiona.aspx?foto=" & nomeFoto & "&sizeThumb=" & sizeThumb & "&sizeFoto=" & sizeFoto
xml.open "GET", URL ,false
xml.send()
tmpResult = xml.ResponseText
Set xml = nothing
if Instr(1,tmpResult,"Errore") <> 0 then
'Il ridimensionamento non è andato a buon fine
RedimFoto = false
else
RedimFoto = true
end if
End Function
connessione = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/dbbase.mdb")
dominio = "http://www.scibettabbigliamento.it/"
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Dim oUpload
newRecord = false
Set oUpload = new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = true
.EnabledLog = False
.AutoRename = False
.Overwrite = False
.SetPath "Vetrine/"
.Load()
'Recupero la chiave che mi verra' passata o via querystring (si presuppone da una lista)
if Request.QueryString("keyFoto") <> "" then
keyFoto = Request.QueryString("keyFoto")
else
'Oppure nel caso sia submitato il form mi proviene dal campo hidden
if .Form("keyFoto") <> "" then
keyFoto = .Form("keyFoto")
else
keyFoto = 0
end if
end if
set Connection = server.CreateObject("Adodb.Connection")
connection.open connessione
set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT * FROM center where idcenter=" & keyFoto
Rs.Open Sql, connection,3,3
if Rs.eof then
Rs.addnew
newRecord = true
else
keyFoto = Rs("idcenter")
categoria = Rs("categoria")
foto = Rs("file")
end if
'Se è stato submittato il form eseguo l'update del record
if .Form("action") <> "" then
.movefirst()
Rs("categoria") = .Form("categoria")
rs("file") = "Vetrine/" & .Files("Name") & "." & .Files("Ext")
Rs.update
'Pesco la chiave in modo da aggiungerla in testa all'immagine per avere un
'nome univoco
UltimoId = Rs("idcenter")
While Not .Files.EOF
if .Files("inputName") = "imgUpload" then
'Compongo il nome
nomeFoto= .Files("Name") & "." & .Files("Ext")
'Salvo il file
.SaveAs nomeFoto
end if
.Files.MoveNext
Wend
'Eseguo il ridimensionamento e la funzione restituisce true se tutto è
'andato a buon fine
if RedimFoto(nomeFoto,100,600) then
Rs("file") = "Vetrine/" & nomeFoto
'Cancello quella originale uploadata
'Nota che il file ridimensiona.aspx è configurato in maniera tale
'che se il file di origine ed il file di destinazione sono identici anche nel
'percorso, il file viene ridimensionato su se stesso e quindi
'l'operazione di cancellazione del file originale NON DEVE essere fatta
'Fso.DeleteFile Server.MapPath("foto/" & nomeFoto)
Rs.update
else
errUpload = "Errore nel ridimensionamento delle foto"
end if
end if
end with
if newRecord then Rs.CancelUpdate
Rs.Close
Connection.Close
Set Connection = nothing
Set Rs = nothing
Set Fso = nothing
%>
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form name="testUpload" method="post" enctype="multipart/form-data" action="uploadFoto.asp">
<% if errUpload <> "" then Response.Write("<h1>" & errUpload & "</h1>") %>
Categoria Foto:
<input name="categoria" type="radio" value="u">
Uomo
<input name="categoria" type="radio" value="d">
Donna
<input name="categoria" type="radio" value="a">
Accessori
File: <input type="file" name="imgUpload">
<input type="submit" name="action" value="conferma">
<% if nomeFoto <> "" then %>
<hr>
Foto precedentemente caricate
piccola:
[img]Vetrine/centre_flash/<%=nomeFoto%>[/img]
<% end if %>
<input type="hidden" name="keyFoto" value="<%=keyFoto%>">
</form>
</body>
</html>[/CODE]
RIDIMENZIONA.ASPX
codice:
<%@ Page Language="VB" ContentType="text/html"%>
<script language="vb" runat="server">
Sub Page_Load(Server as Object,e as System.EventArgs)
Dim redimFoto as String = Request.Querystring("foto")
Dim RedimSizeThumb as integer = CInt(Request.QueryString("sizeThumb"))
Dim RedimSizeFoto as integer = CInt(Request.QueryString("sizeFoto"))
ReDimImg("Vetrine/" & redimFoto ,"Vetrine/centre_flash/" & RedimFoto,RedimSizeThumb,0)
ReDimImg("Vetrine/" & redimFoto ,"Vetrine/centre_flash/" & RedimFoto,RedimSizeFoto,0)
End Sub
Public Sub ReDimImg(SourcePath as String,ResizeName as string, width as integer,height as integer)
Try
'Creo l'oggetto di riferimento al file originale
Dim TmpBmp as System.Drawing.Bitmap = CType(System.Drawing.Image.FromFile(Server.MapPath(SourcePath)), System.Drawing.Bitmap)
Dim newWidth,newHeight as string
'Se il parametro height è lasciato a 0 costruisco il with in maniera proporzionata
if height = 0 Then
newHeight = Convert.ToInt32(width / TmpBmp.Width * TmpBmp.Height)
else
newHeight = height
End if
'Se il parametro with è lasciato a 0 costruisco l'height in maniera proporzionata
if width = 0 Then
newWidth = Convert.ToInt32(height / TmpBmp.Height * TmpBmp.Width)
else
newWidth = width
end if
'Creo la miniatura con lunghezza e larghezza elaborati
Dim miniaturabmp as New System.Drawing.Bitmap(TmpBmp, newWidth, newHeight)
'Distruggo l'oggetto dell'immagine originale che non mi serve +
TmpBmp.Dispose()
'controllo l'estensione e salvo la miniatura nel giusto formato
if SourcePath.toLower().EndsWith(".jpg") or SourcePath.toLower().EndsWith(".jpeg") Then
miniaturabmp.Save(Server.MapPath(ResizeName), System.Drawing.Imaging.ImageFormat.Jpeg)
elseif SourcePath.toLower().EndsWith(".gif") Then
miniaturabmp.Save(Server.MapPath(ResizeName), System.Drawing.Imaging.ImageFormat.Gif)
elseif SourcePath.toLower().EndsWith(".png") Then
miniaturabmp.Save(Server.MapPath(ResizeName), System.Drawing.Imaging.ImageFormat.Png)
elseif SourcePath.toLower().EndsWith(".tiff") Then
miniaturabmp.Save(Server.MapPath(ResizeName), System.Drawing.Imaging.ImageFormat.tiff)
else
Response.Write("Errore Formato")
'Si puo' ampliare l'elseif in questo modo:
'elseif SourcePath.toLower().EndsWith(".[Estensione]") Then
'miniaturabmp.Save(Server.MapPath(ResizeName), System.Drawing.Imaging.ImageFormat.[Estensione])
'dove [Estensione] puo essere Bmp, Emf, Exif, Tiff, Wmf
end if
miniaturabmp.Dispose()
Catch ex as System.Exception
'Nel caso stampo l'errore:
Response.Write("<hr>Errore nel ridimensionamento dell'immagine:
" & ex.Message & "
")
Response.Write("
" & ex.StackTrace & "<hr>")
End Try
Response.Write("Ridimensionamento effettuato con successo")
End Sub
</script>
GRAZIE
Permessi di invio
Rispondi quotando