Recuperare file dopo upload

[Costy81]

Ciao ragazzi,

Sto facendo delle prove di upload,

Utilizzo il seguente campo
<input type="file" name="blob">

una volta selezionato il file mi trovo con l'indirizzo del sudetto file nel mio computer.
Ma come faccio a recuperare solo il nome del file???

[kalosjo]

Lato client o lato server?

[Costy81]

E' uguale non importa se lato client o server, l'importante è estrapolare il nome!!

[Costy81]

Sono riuscito a trovare il nome del file ma ora ho un altro problema:

Uso il codice messo a disposizione da aruba, ma come posso fare l'upload di sole immagini???

[kalosjo]

Originariamente inviato da Costy81
E' uguale non importa se lato client o server, l'importante è estrapolare il nome!!

Certo, ci siamo, ma i metodi per farlo sono diversissimi se fatti lato client o lato server!!!!!

[rixx]

Originariamente inviato da Costy81
Sono riuscito a trovare il nome del file ma ora ho un altro problema:

Uso il codice messo a disposizione da aruba, ma come posso fare l'upload di sole immagini???

intanto posta il codice di Aruba, poi cambia hosting e codice

[Costy81]

Ecco il codice che uso:

  
<%Response.Expires=0
  Response.Buffer = TRUE
  Response.Clear
  byteCount = Request.TotalBytes
  RequestBin = Request.BinaryRead(byteCount)
  Dim UploadRequest
  Set UploadRequest = CreateObject("Scripting.Dictionary")
  BuildUploadRequest  RequestBin
  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
  pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
  Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd) & filename)
 
  For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
  Next
  MyFile.Close
  
   Session.Timeout = 4
    Session("filename") = filename
  
  Response.Redirect("../Amministrazione/form_prodotti_utenti.asp")
  %>

E questa è la pagina di upload:

<%Sub BuildUploadRequest(RequestBin)	
	PosBeg = 1
	PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
	boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
	boundaryPos = InstrB(1,RequestBin,boundary)
	Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
		Dim UploadControl
		Set UploadControl = CreateObject("Scripting.Dictionary")
		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)
		If  PosFile<>0 AND (PosFile<PosBound) Then
			PosBeg = PosFile + 10
			PosEnd =  InstrB(PosBeg,RequestBin,getByteString(chr(34)))
			FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
			UploadControl.Add "FileName", FileName
			Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
			PosBeg = Pos+14
			PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
			ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
			UploadControl.Add "ContentType",ContentType
			PosBeg = PosEnd+4
			PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
			Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
			Else
			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
		UploadControl.Add "Value" , Value	
		UploadRequest.Add name, UploadControl	
		BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
	Loop
  End Sub
  Function getByteString(StringStr)
	For i = 1 to Len(StringStr)
		char = Mid(StringStr,i,1)
		getByteString = getByteString & chrB(AscB(char))
	Next
  End Function
  Function getString(StringBin)
	getString =""
	For intCount = 1 to LenB(StringBin)
		getString = getString & chr(AscB(MidB(StringBin,intCount,1))) 
	Next
  End Function%>

Come posso fare per inserire solo immagini e controllare che
l'immagine non sia già presente nella cartella?

[sintax_error]

Se ho ben capito vuoi permettere l'upload solo dell immagini,quindi devi fare un controllo sull'estensione ?
o non hocapito na mazza?

[Costy81]

si hai capito bene,
non so come fare il controllo per poter fare l'upload delle immagini.

Poi vorrei che se un utente cerca di fare l'upload di un immagine già caricata da un altro, non l'ha sovrascriva.

[Costy81]

up
up