codice:
' inizio
dim w_ID, w_QSIDAnimal, w_QSIDUtente, w_QSSCategoria, w_QSnomeanimale, w_QSrazza, w_QSsesso, w_QSsegniparticolari, w_QSdescrizione, w_QSnatoil, w_QSmortoil, w_QSUserID, w_PFoto
dim w_CPrezzo, w_RPrezzo, w_SPrezzo, w_PuntiSconto, w_Iva, w_GiacenzaInfinita, w_Giacenza, w_Offerta
dim w_Spedizione, w_SpeseSpedizione, w_Tipologia, w_Categorie, w_Correlati, w_Home
dim percorso, ByteRicevuti, FileBinario, DatiRicevuti, FirmaFile, ArrPezzi, item, Inizio
dim Intestazione, ContenutoFile, NomeUpload, NomeFile, Upload1, DimensioneFile1, EstensioneFile1, textStream, i, j
dim FSO, NomeFile1, Upload2, DimensioneFile2, EstensioneFile2, NomeFile2, NomeFile3, Upload3, DimensioneFile3, EstensioneFile3
'Questa variabile setta il percorso di dove effettuare l'upolad
'la cartella non puo non esistere lo script non la crea ! ! !
Dim folder
Dim titolo_file
Dim nom_file
Dim byteCount
Dim RequestBin
Dim PosBeg
Dim char
Dim PosEnd
Dim boundary
Dim boundaryPos
Dim Pos
Dim intCount
Dim Name
Dim PosFile
Dim PosBound
Dim Value
Dim FileName
Dim ContentType
Dim nome_file
Dim filepathname
Dim ScriptObject
Dim MyFile
Dim nome_file2, max, nome_file3, max2, max3
' //// Directory dove verrà caricato il file
folder = "/public"
' ////// Inizio Componente Upload
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("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
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
' //// Fine Componente Upload
w_QSIDUtente = UploadRequest.Item("Utente").Item("Value")
w_QSSCategoria = UploadRequest.Item("SCategoria").Item("Value")
w_QSnomeanimale = UploadRequest.Item("nomeanimale").Item("Value")
w_QSrazza = UploadRequest.Item("Razza").Item("Value")
w_QSsesso = UploadRequest.Item("Sesso").Item("Value")
w_QSsegniparticolari = UploadRequest.Item("segniparticolari").Item("Value")
w_QSnatoil = UploadRequest.Item("natoil").Item("Value")
w_PFoto = UploadRequest.Item("PFoto").Item("Value")
'----------Prima foto
if UploadRequest.Item("UPlFotop").Item("FileName")="" then
Else
AutoRename = UploadRequest.Item("UPlFotop").Item("FileName")
contentType = UploadRequest.Item("UPlFotop").Item("ContentType")
filepathname = UploadRequest.Item("UPlFotop").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("UPlFotop").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
w_PFoto = filename
End if
w_PFoto="public/"&w_PFoto
' ora la pagina prosegue come prima, ma non usa i campi del form, bensì quelli recuperati da me
' fine
come posso modificarlo?
Rispondi quotando
Originariamente inviata da optime
ti posto il link alle risorse 
