upload baol

[diuzza]

Buongiorno!!!

Devo fare l'upload di un file in asp e sto utilizzando la script di baol

Ho fatto una cosa semplice semplice

If Request("Upload")="1" then
	Dim oUpload
	Set oUpload = new cUpload
		oUpload.AutoRename = False
		oUpload.Overwrite = true
		oUpload.SetPath "."
		oUpload.Upload
		oUpload.SaveAs "ciao.txt"
	Set oUpload=Nothing

Come posso integrarlo inserendogli un controllo sulle estensioni dei file? Cioè se io volessi lasciar uploadare solo i file di tipo xls come posso fare? Grazie

[Roby_72]

Uno dei metodi controlla l'estensione (allowed qualcosa...)
Leggi il file upload.asp

Roby

[diuzza]

Non ho trovato niente di simile... Ho trovato solo questo, ma io non uso l'oggetto files

Private sub AddNewRs(Name,FileName,ContentType,StreamType,ByRef RequestBin)
		Dim tmpName,ar
			tmpName = Right(FileName,Len(FileName)-InstrRev(FileName,"\"))
			Files.AddNew
			Files("InputName")		= Name
			Files("FileName")		= lCase(FileName)
			If InstrRev(tmpName,".")=0 then tmpName = tmpName & "."
			Files("ext")			= lCase(Right(tmpName,Len(tmpName)-InstrRev(tmpName,".")))
			Files("Name")			= lCase(Left(tmpName ,InstrRev(tmpName,".")-1))
			Files("DestPath")		= lCase(GetPath(iPath))
			Files("ContentType")	= ContentType
			Files("Date")			= Now()
			Files("StreamType")		= StreamType
			Files("Cancel") 		= False
			Files("Saved")			= False
			Files("OverWrite") 		= OverWrite
			Files("AutoRename") 	= AutoRename
			Files("FileExists")     = fso.FileExists(Files("DestPath") & GetFileName() )
			Files("Content").AppendChunk RequestBin
			Files("Size") = Files("Content").ActualSize
			If EnabledImageSize then
				If Mid(ContentType,1,5) = "image" then
					pGetImageSize RequestBin,ContentType,ar
					Files("Height") = ar(0)
					Files("Width") = ar(1)
					Files("Info") = ar(2)
				end if
			end if
			Files.Update
		end sub

[diuzza]

up

[Roby_72]

Devi usare l'oggetto files.
Negli esempi di baol c'è anche quella soluzione.

Roby

[Roby_72]

Ad esempio...

...
...
	'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 
		contfile=0
		Do While Not oUpload.EOF
		    if oUpload.Files("InputName") = "casa_foto1" then
			    casa_foto1 = contfile+1 &"_"& data &"."& oUpload.Files("ext")
			    oUpload.SaveAs(casa_foto1)
			end if
			contfile = contfile + 1
			oUpload.MoveNext
		Loop
...
...

Roby