Upload di immagini con ASP, e..

**Sanjet** · 05-09-2008, 15:24

..e successiva compressione (spesso sono foto da 5 MB l'una), nonché formazione di thumbnails.

Potete consigliarmi qualche buon tutorials per fare ciò? Premetto che avrò bisogno di una mano, l'upload con ASP è una di quelle cose che ho sempre rimandato. Non ne ho mai concluso uno - già, non ci sono mai riuscito. Mi spazientivo alla svelta.
Questa volta, però, è per lavoro, e ho da imparare a fare un upload di immagini + compressione delle stesse + creazione di thumbnails.

Ditemi che mi potete aiutare, o con un tutorials, o con non so cosa..

Grazie mille

**yro** · 05-09-2008, 15:34

upload di baol, senza dubbio per l'upload.

per la compressione non saprei, però con il webresize di imente puoi fare le tumb compresse onfly...
http://www.imente.org/index.php/deve...sses/wbresize/

in aspnet ma funzia anche per asp, cè tutto nella documentazione!

**Sanjet** · 05-09-2008, 15:53

L'upload di Baol - con relativo tutorial, se possibile - dove posso trovarlo?

**Roby_72** · 05-09-2008, 16:02

http://www.creamweb.it/script/mostra.../?id_script=12

Roby

**yro** · 05-09-2008, 16:10

... e nelle discussioni utili in rilievo!
cè il file da scaricare completo di vari esempi!

**Sanjet** · 05-09-2008, 19:42

Ok, ho messo le mani sull'upload di Baol, anche se per ora mi risulta un po' complicato dovrei riuscire a racapezzarmici in fretta.
Per ora ho fatto un tentativo base con la combinazione:
esempio_form.htm + upload_limitsizeandimages1.asp (quella tipica contenuta nello zip)
Eseguo tutto alla perfezione, l'operazione sembrerebbe essere andata a buon fine ma.. no. No, perché il file non si trova nella cartella "\file" come specificata in SetPath. Non restituisce neanche, a schermo, la conferma di un upload eseguito.

Il codice è questo:

codice:

<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = True
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "files/"
.Load
.UploadOnly "Images"
While Not .Eof
If .Files("Height")>=80 or .Files("Width")>=60 then
 Response.write ("Le dimensioni dell'immagine " &_
 .GetFileName() &" non sono corrette (" &_
 .Files("Height") &"x" & .Files("Width") &"): File non caricato
"  )
else
.Save 
end if
.MoveNext
Wend
End With
Set oUpload = Nothing
%>

Avete qualche teoria..?

**Roby_72** · 05-09-2008, 19:49

La cartella deve avere i permessi di scrittura.
Roby

**Sanjet** · 05-09-2008, 20:50

Altro d'errore; questo non l'ho mai trovato in vita mia!!
Ho provato a conglobare lo script dell'upload con un altro mio script (praticamente associo lo script dell'upload ad uno script in cui l'utente di un mio forum può modificare le proprie opzioni - chiaramente l'upload serve nell'avatar). Subito dopo aver completato il form, questo è l'errore sfornato:

Microsoft VBScript runtime error '800a01f9'

Invalid or unqualified reference

Su questo codice (in rosso la riga interessata):

codice:

<html> 
<head> 
<title>Modifika</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> 
<link rel="stylesheet" href="hostyle.css"> 

<%
Dim oUpload
Set oUpload= new cUpload
.EnabledAspUpload = True
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "avatar/"
.Load
.UploadOnly "Images"
If .Files("Height")>200 or .Files("Width")>200 then
 Response.write ("<font face='Verdana' size=2>Le dimensioni dell'immagine " &_
 .GetFileName() &" non sono corrette (" &_
 .Files("Height") &"x" & .Files("Width") &"): File non caricato
</font>"  )
else
 .Save
 Response.Write "<font face='Verdana' size=2>Upload di " & .GetFileName() & " avvenuto con successo!!
</font>"
end if
.MoveNext
Set oUpload = Nothing
	
'Recupero valori form
	id 	= oUpload.Form("id")
	If oUpload.Form("avy")=1 Then
	avatar 	= oUpload.Form("avatar")
	else
	avatar = oUpload.Form("avatar2")
	end if
	firma	= oUpload.Form("firma")
	bg 	= oUpload.Form("bg")
	msn 	= oUpload.Form("msn")
	newowls 	= oUpload.Form("newowls")
	If newowls <> 1 Then
	newowls = 0
	end if
	music_yn 	= oUpload.Form("music_yn")
	If music_yn <> 1 Then
	music_yn = 0
	end if
	If Right(music, 4) <> ".mid" AND len(music)=>1 Then
	response.write "<font face='Verdana' size=2>Il file musicale deve essere un midi (estensione .mid)!</font>"
	response.end
	end if

'Replace di Bg e Firma
	bg 	= Replace(bg, "<", "&lt;")
	bg 	= Replace(bg, ">", "&gt;")
	firma 	= Replace(firma, "<", "&lt;")
	firma 	= Replace(firma, ">", "&gt;")
	bg 	= replace(bg,"'","''")
	bg 	= replace(bg,vbCrLf,"
")
	msn 	= Replace(msn, "<", "&lt;")
	msn	=  Replace(msn, ">", "&gt;")
	msn 	= replace(msn,"'","''") 
	music_yn 	= replace(music_yn,"'","''") 
	firma 	= replace(firma,"'","''")
	firma 	= replace(firma,vbCrLf,"
")
	
'Stop al ciclo
	If perm = 0 Then
	response.end
	end if

'Impostazione di Lrg
	lrg = 0
	If large = "1" Then lrg = 1
 
'Se seleziono l'avatar allora salvo il file
	If avy = 2 and Not oUpload.EOF Then
		nym = "av" & id
		oUpload.SaveAs nym & "." & oUpload.Files("Ext") 
avatar = "avatar/" & nym & "." & oUpload.Files("Ext")
	end if

'Inserimento nel Database
	strSQL = "UPDATE info SET avatar = '"&avatar&"', newowls = "&newowls&", firma = '"&firma&"', music_yn = "&music_yn&", bg = '"&bg&"', msn='"&msn&"' WHERE id ="&id
	Conn.Execute strSQL %>
<font face='Verdana' size='1'>Modifica effettuata con successo.

Torna alla scheda.</font>



<font face="Verdana"><font size="2">Importante!</font><font size="2"> Se hai inserito un avatar direttamente dal tuo computer, alla 
prossima modifica l'avatar settato sar&agrave; quello su Internet. Lascialo settato, 
perch&eacute; il percorso Internet porta all'avatar che hai lanciato online</font></font>.
<%
'Chiusura
Set oUpload=Nothing 
%>
</html>

Mi potete aiutare..?

**Sanjet** · 06-09-2008, 15:43

ehmm.. up
sorry

**Sanjet** · 07-09-2008, 14:21

Nessuno che riesca ad aiutarmi..?

Discussione: Upload di immagini con ASP, e..

Strumenti discussione

Ricerca discussione

Visualizza

Upload di immagini con ASP, e..

Permessi di invio