passaggio dati

[power83]

Salve a tutti!!! ho una form di questo tipo:

<form method="POST" enctype="multipart/form-data" action="upload.asp">
Titolo:
<input type="text" name="titolo" size="41" title="titolo" />
File:
<input type="file" name="blob" size=30>
<input type="submit" name="Enter" value="upload">
</form>

come faccio a passare il valore di titolo alla pagina upload.asp?
grazie mille

[99eros9]

stai utilizzando una classe particolare per l'upload?

[power83]

il codice dell'upload è il seguente:

<%
'variabili
Dim folder
'directory
folder = "\public\"

Response.Expires=0
Response.Buffer = TRUE
Response.Clear

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")
'Get an object name
Pos = InstrB(BoundaryPos,RequestBin,getByteString("Conte nt-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("filen ame="))
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),Requ estBin,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

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")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(Server.mappath(folder) &"\"&filename)

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close
%>

Ho provato con il classico request.form ma non funziona!!
Grazie!

[mcviper909]

Non funziona perchè stai effettuando un upload e quindi hai messo nel form : enctype="multipart/form-data"

In questo caso per recuperare i valori inseriti o usi una classe ad hoc per l'upload o usi il Request.BinaryRead e fai tutte le operazioni che servono per splittarsi i dati inviati.

[power83]

Quindi devo fare una cosa del genere?

Request.BinaryRead (titolo)

[mcviper909]

no devi fare una cosa del genere:

http://freeasp.html.it/articoli/view...olo.asp?id=169

ma attento che nello script segnalato qui c'è un errore nel ciclo

altrimenti se vuoi usare una classe cosa più veloce c'è la classe di Baol per l'Upload fai una ricerca nel forum e la trovi ci sono molti post in cui se ne parla

[power83]

ok..grazie mille!

[power83]

Scusami ma non riesco a capire dov'è l'errore...
grazie

[Roby_72]

L'errore dello scritp è dalla seconda immagine caricata in poi.
Se carichi una sola immagine non te ne accorgi.

Roby

[power83]

Con questo funziona perfettamente anche il passaggio dalla form del titolo ma solo con file con dimensione < 300K..è possibile farlo anche per file fino a 3Mb? grazie