88 messaggi dal 24 giugno 2003
Ciao a tutti
Sono seriamente in dificolta' riguardo l'upload di alcune immagini ...
devo far si ke quando uplodo l'immagine di un'articolo questa invece di prendere il suo nome prenda il nome dell'id dell'articolo ....
riesco a rekuperare l'id dell'articolo che aggiungo poko prima di passare all'upload della foto
e sin li ci sono

ecco qua lo script.:

id = Request.QueryString("id")
Percorso = "public/"&id&""

ByteRicevuti = Request.TotalBytes
if ByteRicevuti > 0 then
DatiRicevuti = Request.BinaryRead(ByteRicevuti)
For i = 1 To lenB(DatiRicevuti)
FileBinario = FileBinario & chr(ascB(midB(DatiRicevuti,i,1)))
Next
FirmaFile = left(FileBinario,instr(FileBinario,"" & vbCrLf)-1)
ArrPezzi = split(FileBinario,FirmaFile)
for item = 1 to ubound(ArrPezzi)-1
Inizio = instr(ArrPezzi(item),"" & vbCrLf & "" & vbCrLf)
Intestazione = left(ArrPezzi(item),Inizio-1)
Inizio = Inizio + len("" & vbCrLf) + len("" & vbCrLf)
ContenutoFile = mid(ArrPezzi(item),Inizio,len(ArrPezzi(item))-Inizio-1)


' Qui recupero il file da uploadare e lo scrivo
if instr(Intestazione,"file1") > 0 then
i = instr(Intestazione,id)
j = instr(i + 10,Intestazione,chr(34))
NomeUpload = id
i = instrRev(NomeUpload,"\")
if i<>0 then
NomeFile = mid(NomeUpload,i + 1)
else
NomeFile = NomeUpload
end if
if i<>0 then
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(ContenutoFile)
EstensioneFile1 = right(ContenutoFile,3)
NomeFile1 = NomeFile
Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1), True, False)
textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
Set FSO = Nothing
end if
end if
next

' Da qui in poi è possibile fare esegiure allo script altre operazioni
Response.Write "Il valore immesso nella testo1 è " & testo1 & "<br>"
If Upload1 = true then
Response.Write "<br>La dimensione del file che hai uploadato è di " & DimensioneFile1*0.001 & "kb"
Response.Write "<br>Grazie di aver inviato il tuo file"

End if
End if

Response.Redirect("aggfotopiccola.asp")

ho usato questo script un po modificato per poterlo aggiungere però il mio problema è che non so dove mettere le mani per far si che la foto venga rinominata in automatico dallo script con l'id + la lettera g affianco
qualcuno di voi saprebbe spiegarmi o aiutarmi in qualche modo? Vi prego ci sto uscendo matto da tre giorni ....

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.