upload di video

[nikselva]

Salve a tutti, ho un quesito:
è possibile uplodare dei video???
e se si, come posso farlo?????
ci sono script gia pronti?

[Grambo]

L'ho preso da una mia pagina e funziona correttamente...ma l'ho modificato al volo per renderlo standard ... magari c'è qualche errore provalo...dovrebbe caricare ogni tipo di file se nn ricordo male....

modifica all'interno degli asterischi

ciao


(chiamalo upload.asp)

<%
percorso = "****qui inserisci il percorso dove devi uploadare****"
Server.ScriptTimeout = *****(metti il tempo del timeout espresso in secondi)*****
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)


if instr(Intestazione,"file1") > 0 then
i = instr(Intestazione,"filename=")
j = instr(i + 10,Intestazione,chr(34))
NomeUpload = mid(Intestazione,i + 10,j-i-10)
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

If Upload1 = true then
Upload1 = false
Response.Write "
La dimensione del file che hai uploadato è di " & DimensioneFile2*0.001 & "kb"
Response.Write "
Grazie di aver inviato il tuo file"
End If


End if
%>



---------------------------------------
Dimenticavo, devi fare la pagina da dove vai a pescare il file (normale html):

<form action="upload.asp" method="post" enctype="multipart/form-data">
FILE
<input type="file" name="file1">
</form>

[nikselva]

MA TE SEI UN SANTO!!!
...SANTO ASP!!!!
GRAZIE MILLE

[Grambo]

Penso signfichi che funziona



ciao ciao