8 messaggi dal 02 aprile 2003
ho scaricato da questo sito http://baol.cjb.net/ la class per fare lupload da una pagina web...
ma nn ho capito come funziona.. cosa devo inserire nella cartella public?
e dove va a finire l'immagine uploadata?
grazie
13 messaggi dal 29 agosto 2003
UPLOAD DA SITO

PAGINA FormUpload.htm

** NEL FORM IL NOME DELL'IMMAGINE DA UPLOADARE **
********************************************
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nuova pagina 1</title>
<meta name="Microsoft Theme" content="midioke 1000, default">
</head>


<FORM METHOD="Post" ENCTYPE="multipart/form-data" ACTION="http://www.tuosito.?/public/outputFile.asp">
<p align="center">
<b>
<font face="Verdana" size="2">Per inviare la base musicale clicca su [Sfoglia]<br>
</font></b>
<INPUT TYPE="file" NAME="blob" size="57"><br>
<INPUT TYPE="submit" NAME="Enter" value="Invia File"><br>
</font></FORM>

</body></html>
********************************************

SECONDA PAGINA: OutputFile.asp CHE DOVRAI COPIARE NELLA DIR PUBLIC.

********************************************
<%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%>

<%

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
%>

<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nuova pagina 1</title>
<meta name="Microsoft Theme" content="midioke 1000, default">
</head>


<head>
<title>Upload</title>
</head>

<body>


<p align="center"><font face="Verdana" size="2">
File "<b><%=FileName%></b>" ricevuto con successo</font>

</body></html>
***********************************************

L'IMMAGINE VIENE UPLODATA IN PUBLIC CIOE' L'INDIRIZZO DEL FORM
<FORM METHOD="Post" ENCTYPE="multipart/form-data" ACTION="http://www.tuosito.?/public/outputFile.asp">

Vai sul sito www.grazianonet.it e clicca su (new) AAA CERCASI annuncio di prova
puoi fare l'upload di una immagine qualsiasi (tranne porno)
tanto al momento è in fase di prova. in questo modo vedi il suo funzionamento.

OK?
Barone57

Modificato da Barone57 il 06 ottobre 2003 14.15 -
3 messaggi dal 02 ottobre 2003
Salve, forse non è molto a tema con la discussione, o forse no!

Io ho predisposto una coppia di pagine per l'upload solo che al momento di effettuare l'upload sul server è LENTISSIMO! Per la serie: per fare l'upload di un file da 250 KB ci ha impiegato 20 minuti. E non è un problema di rete, perché sono connesso al server con una LAN da 100 Mbps!
Qualcuno sa dirmi come mai questa lentezza?

Grazie.

Giuseppe

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.