Caricare e visualizzare immagini

[Gio2011]

Buonasera,

scrivo perchè ho un problema che non riesco a risolvere. Devo fare l upload di immagini, 2 o 3 mega, per poi usarle all'interno di una pagina.

Qualcuno ha qualche esempio o può delucidarmi sul da farsi?

Dispongo di tutto il diritti necessari all up.

[Roby_72]

Se non hai componenti particolari da poter usare puoi sfruttare questo:
http://www.creamweb.it/script/mostra.../?id_script=12

Roby

[Gio2011]

Senza neanche un commento sto script, li mortacc. Serve molto studio

[Roby_72]

I commenti sono nella pagina upload.asp e comunque nel forum troverai centinaia di post.

Roby

[Gio2011]

Public Function SetPath(StringPath) 			iPath = Server.MapPath (StringPath) & "\" 			If IsDataLoad then 				MoveFirst 				While Not EOF 					Files("DestPath") = iPath 					Files.Update 				MoveNext 				Wend 				MoveFirst 			end if 		End function

StringPath cos'è?
Files("DestPath") = iPath ?

[Roby_72]

Ma nello zip ci sono anche gli esempi... non capisco cosa ti serva.

Roby

[Gio2011]

Mi serve una cosa che si capisca cosa modificare

Esempi? Esempio per caricare un immagine (senza limiti)

<%
Dim oUpload
Set oUpload = new cUpload
oUpload.Load()
oUpload.UploadOnly "Images"
oUpload.SaveAll
Set oUpload=Nothing
%>

Direi che non è molto chiaro

[Roby_72]

<%
data_upload = year(date()) & right("0"& month(date()), 2) & right("0"& day(date()), 2) & right("0"& hour(time()), 2) & right("0"& minute(time()), 2) & right("0"& second(time()), 2)

Set oUpload = new cUpload 
'oUpload.AutoRename=False
'oUpload.OverWrite=True
oUpload.Upload
oUpload.SetPath percorso_galleria_fotografica

campotitolo = trim(oUpload.Form("campotitolo"))
campodescrizione = trim(oUpload.Form("campodescrizione"))

galleria_foto = ""
'Campo di tipo file; lascio il ciclo in caso in cui si voglia dare in futuro la possibilità di aggiungere più di un file
If Not oUpload.EOF then
	oUpload.MoveFirst 
	Do While Not oUpload.EOF
		galleria_foto = data_upload &"."& oUpload.Files("ext")
		oUpload.SaveAs(galleria_foto)
		oUpload.MoveNext
	Loop
else 
	messaggio = "Il campo Foto non &egrave; stato compilato"
End if
Set oUpload = nothing%>

Roby

[Gio2011]

Che roba è?

Faccio arrivare a questa pagina dal post di un form??

Grazie Roby

[Roby_72]

Esatto

Roby