Modifiche all'Upload 3.1.1 di Baol74

[lelo]

Ciao a tutti, ho la versione 3.1.1 dell'Upload di Baol74!
Molto bello! Rispecchia un po quello che cercavo, ma vorrei fare delle modifiche.

Spero che qualcuno mi possa aiutare, intanto vorrei fare in modo di raccogliere anche altre informazioni dal FORM oltre che il File; quindi Text, Combo, MenuList, etc... tutti gli oggetti Modulo.

Per iniziare penso che possa bastare!
Grazie a tutti

[weppos]

Lo fa già.
Verifica gli esempi allegati.

[lelo]

Scusami ma nn l'ho trovato!!!
Mi sai dire qual'è???

Io ho :
Esempio_form.asp
Esempio_form.htm
Upload.asp
Upload_DaAltroServer.asp
Upload_Database.asp
Upload_LimitSize.asp
Upload_LimitSizeAndImages.asp
Upload_LimitSizeAndImages1.asp
Upload_Semplice.asp
Upload_SoloImmagini.asp

[Baol74]

Upload.Form("NomeCampo") ti restituisce il valore dell'input

[lelo]

Scusate ma in cima a tutto ho messo:

Dim Upload
Set Upload = CreateObject("Scripting.Dictionary")
titolo = Upload.Form("titolo")

ma da errore:

Errore di run-time di Microsoft VBScript (0x800A01B6)
Proprietà o metodo non supportati dall'oggetto: 'Form'

Che ci posso fare????

[Baol74]

usi roba pesante???


Set upload = new cUpload
Upload.Load()
Response.Write Upload.Form("Nome")

[lelo]

In che senso roba pesante???

cmq ho scritto (dopo l'include:

Dim tUpload
Set tUpload = new cUpload 
tUpload.Load() 
Response.write tUpload.Form("titolo")
Set tUpload=Nothing

restituisce questo errore:

Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.

[lelo]

Sarebbe interessante realizzare un funzione che intercetti altri campi del form e che in modo automatico restituisca una variabile con lo stesso nome del campo alla quale è assegnato il valore passato dal form....senza cioè preimpostare le richieste da form e quindi senza preimpostare le variabili!

[Baol74]

quello che dici è già stato fatto....

riga dell'errore...mostrala....

[lelo]

ADODB.Stream (0x800A0BB9)
Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.

Relativo al rigo in grassetto

Private function BinaryRead()
	Dim bR,bTr,iT,eT,ePT
			Stream.Type = 1
			Stream.Open
			bR = 0:bTr = 1024 * 20
			iT = Timer()
			do while bR< iTotalBytes
				if iTotalBytes - (br + bTr)< 0 then bTr = iTotalBytes - bR
				Stream.Write Request.BinaryRead(bTr) 
				bR = bR + bTr
			loop

			eT = Timer(....

Dove posso trovare lo script che i dicevi essere già stato fatto???