Newsgroup: it.comp.www.asp
Titolo: come si può effettuare un upload contemporaneo di più file?

normalmente per l'upload dei file utilizzo il codice scritto sotto..
ora perň ho bisogno di effettuare un uplod contemporaneo di piů file e la
pagina mi restituisce un'errore di sintassi sulla sub...cosa che non fa quando
facio un solo upload... come posso fare?
esiste qualche altro strumento..gratuito..per fare l'upload contemporaneo?
grazie
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest  RequestBin
percorso=UploadRequest.Item("percorso").Item("Value")
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")
'*********************************** Create FileSytemObject Component
************************************************
 Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'*********************************** Create and Write to a File
******************************************************
 percorso_base=Server.mappath(Request.ServerVariables("PATH_INFO"))
 pos_path=InstrRev(percorso_base,"\",-1,1)
 pos_path2=InstrRev(percorso_base,"\",pos_path-1,1)
 percorso="siti_creati\user256\images\" 
 pathEnd = mid(percorso_base,1,pos_path2)
 response.write(pathEnd&percorso&filename)
 Set MyFile = ScriptObject.CreateTextFile(pathEnd&percorso&filename)
 
 For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
 Next
 
 MyFile.Close
Sub BuildUploadRequest(RequestBin)
	'******************************************* Get the boundary
*****************************************************
	PosBeg = 1
	PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
	boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
	boundaryPos = InstrB(1,RequestBin,boundary)
	'******************************************* Get all data inside the
boundaries ***********************************
	Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
		'*********************** Members variable of objects are put in a dictionary
object ***************************
		Dim UploadControl
		Set UploadControl = CreateObject("Scripting.Dictionary")
		'***************************************** Get an object name
**************************************************
		Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
		Pos = InstrB(Pos,RequestBin,getByteString("name="))
		PosBeg = Pos+6
		PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
		Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
		PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
		PosBound = InstrB(PosEnd,RequestBin,boundary)
		'**************************************** Test if object is of file type
******************************************
		If  PosFile<>0 AND (PosFile<PosBound) Then
			'************************************ Get Filename, content-type and content
of file **************************
			PosBeg = PosFile + 10
			PosEnd =  InstrB(PosBeg,RequestBin,getByteString(chr(34)))
			FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
			'************************************ Add filename to dictionary object
***************************************
			UploadControl.Add "FileName", FileName
			Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
			PosBeg = Pos+14
			PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
			'************************************ Add content-type to dictionary
object************************************
			ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
			UploadControl.Add "ContentType",ContentType
			'************************************ Get content of
object***************************************************
			PosBeg = PosEnd+4
			PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
			Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
			Else
			'************************************ Get content of
object***************************************************
			Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
			PosBeg = Pos+4
			PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
			Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
		End If
		'Add content to dictionary object
	UploadControl.Add "Value" , Value	
		'Add dictionary object to main dictionary
	UploadRequest.Add name, UploadControl	
		'*************************************** Loop to next
object*******************************************************
		BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
	Loop
End Sub
'*********************************************** String to byte string
conversion*******************************************
Function getByteString(StringStr)
 For i = 1 to Len(StringStr)
 	char = Mid(StringStr,i,1)
	getByteString = getByteString & chrB(AscB(char))
 Next
End Function
'********************************************** Byte string to string
conversion *******************************************
Function getString(StringBin)
 getString =""
 For intCount = 1 to LenB(StringBin)
	getString = getString & chr(AscB(MidB(StringBin,intCount,1))) 
 Next
End Function
-- 
Posted from  [212.171.45.227] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 grazie
Guarda qui:
http://www.aspsmart.com/
cerca AspSmartUpload
Ciao
:)
S.
~~~~~~~~~~~~~~~~~~
www.apodittico.com
*La satira trendy*
~~~~~~~~~~~~~~~~~~

normalmente per l'upload dei file utilizzo il codice scritto sotto..
Ciao,
sono interessato a questo script, mi passeresti anche il form che
utilizzi per chiamarlo?
Grazie