Come faccio a pubblicare file dal mio browser sul mio sito ?
GRAZIE

Ho provato lo script, ma da il seguente errore:



Errore di run-time di Microsoft VBScript error '800a01a8'

Necessario oggetto: 'UploadRequest'

/provaremote/output.asp, line 40



Ciao
Gino

Se vi interessa ho uno script, modificato per le mie esigenze, per l'upload dei files senza dll da registrare , tutto in asp.Forse ha il solo difetto di essere un po' lento per i file più grandi ma mi sto trovando bene. Fatemi sapere.
Ciao da biank

così mi sembra semplificato al massimo:
<%
crlf="" & vbCrLf
BytesRcvd=Request.TotalBytes
if BytesRcvd>0 then
w=Request.BinaryRead(Request.TotalBytes)
For i=1 To lenB(w)
x=x & chr(ascB(midB(w,i,1)))
Next
signature=left(x,instr(x,crlf)-1)
bits=split(x,signature)
for item=1 to ubound(bits)-1
dataStart=instr(bits(item),crlf & crlf)
header=left(bits(item),dataStart-1)
dataStart=dataStart+len(crlf)+len(crlf)
actualFile=mid(bits(item),dataStart,len(bits(item))-dataStart-1)

if instr(header,"file1") > 0 then
i=instr(header,"filename=")
j=instr(i+10,header,chr(34))
upName=mid(header,i+10,j-i-10)
i=instrRev(upName,"\")
if i<>0 then
saveName=mid(upName,i+1)
else
saveName=upName
end if
if i<>0 then
Set fso=CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(actualFile)
EstensioneFile1 = right(actualFile,3)
NomeFile1 = saveName
Set textStream=fso.CreateTextFile(server.mappath(NomeFile1),True, False)
textStream.Write actualFile
textStream.Close
Set textStream=Nothing
Set fso=Nothing
end if
end if
next
If Upload1 = true then
response.write "<br>La dimensione del file che hai uploadato è di " & DimensioneFile1*0.001 & "kb"
response.write "<br>Il file è statoinviato con successo"
End If
else
%>
<form action="AspUpAsp.asp" method="post" enctype="multipart/form-data">
File da uplodare. <input name="file1" type="File">
<input type="submit" value=" Upload " name="Upload">
</form>
<% end if %>
-----------------------
questo è tutto,non c'è bisogno di altro.
Fammi sapere come lo trovi
Ciao da biank