upload file multiplo

[cirmas78]

Nulla purtroppo

• Tipo di errore:
  Errore di run-time di Microsoft VBScript (0x800A01B6)
  Proprietà o metodo non supportati dall'oggetto: 'key'
  /miei/cswm/salvamultiplo.asp, line 83
• Tipo di browser:
  Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/49.0.2623.112 Safari/537.36
• Pagina:
  POST 11991 bytes to /miei/cswm/salvamultiplo.asp
• POST Data:
  error '80020009'

Comunque hai capito esattamente il mio problema.
Avendo questo campo ho risolto

[Vincent.Zeno]

posta lo script intero

[cirmas78]

Response.Write "FormKey: " & Uploader.key

Non funziona

• Tipo di errore:
  Errore di run-time di Microsoft VBScript (0x800A01B6)
  Proprietà o metodo non supportati dall'oggetto: 'key'
  /miei/cswm/salvamultiplo.asp, line 83
• Tipo di browser:
  Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/49.0.2623.112 Safari/537.36
• Pagina:
  POST 11991 bytes to /miei/cswm/salvamultiplo.asp
• POST Data:
  error '80020009'

[cirmas78]

Questa è la pagina Upload.asp che ho trovato e devo per forza utilizzare

<%
'***************************************
' File: Upload.asp
' Author: Jacob "Beezle" Gilley
' Email: avis7@airmail.net
' Date: 12/07/2000
' Comments: The code for the Upload, CByteString,
' CWideString subroutines was originally
' written by Philippe Collignon...or so
' he claims. Also, I am not responsible
' for any ill effects this script may
' cause and provide this script "AS IS".
' Enjoy!
'****************************************


Class FileUploader
Public Files
Private mcolFormElem


Private Sub Class_Initialize()
Set Files = Server.CreateObject("Scripting.Dictionary")
Set mcolFormElem = Server.CreateObject("Scripting.Dictionary")
End Sub

Private Sub Class_Terminate()
If IsObject(Files) Then
Files.RemoveAll()
Set Files = Nothing
End If
If IsObject(mcolFormElem) Then
mcolFormElem.RemoveAll()
Set mcolFormElem = Nothing
End If
End Sub


Public Property Get Form(sIndex)
Form = ""
If mcolFormElem.Exists(LCase(sIndex)) Then Form = mcolFormElem.Item(LCase(sIndex))
End Property


Public Default Sub Upload()
Dim biData, sInputName
Dim nPosBegin, nPosEnd, nPos, vDataBounds, nDataBoundPos
Dim nPosFile, nPosBound


biData = Request.BinaryRead(Request.TotalBytes)
nPosBegin = 1
nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))

If (nPosEnd-nPosBegin) <= 0 Then Exit Sub

vDataBounds = MidB(biData, nPosBegin, nPosEnd-nPosBegin)
nDataBoundPos = InstrB(1, biData, vDataBounds)

Do Until nDataBoundPos = InstrB(biData, vDataBounds & CByteString("--"))

nPos = InstrB(nDataBoundPos, biData, CByteString("Content-Disposition"))
nPos = InstrB(nPos, biData, CByteString("name="))
nPosBegin = nPos + 6
nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34)))
sInputName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
nPosFile = InstrB(nDataBoundPos, biData, CByteString("filename="))
nPosBound = InstrB(nPosEnd, biData, vDataBounds)

If nPosFile <> 0 And nPosFile < nPosBound Then
Dim oUploadFile, sFileName
Set oUploadFile = New UploadedFile

nPosBegin = nPosFile + 10
nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34)))
sFileName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
oUploadFile.FileName = Right(sFileName, Len(sFileName)-InStrRev(sFileName, "\"))


nPos = InstrB(nPosEnd, biData, CByteString("Content-Type:"))
nPosBegin = nPos + 14
nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))

oUploadFile.ContentType = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))

nPosBegin = nPosEnd+4
nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
oUploadFile.FileData = MidB(biData, nPosBegin, nPosEnd-nPosBegin)

If oUploadFile.FileSize > 0 Then Files.Add LCase(sInputName), oUploadFile
Else
nPos = InstrB(nPos, biData, CByteString(Chr(13)))
nPosBegin = nPos + 4
nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
If Not mcolFormElem.Exists(LCase(sInputName)) Then mcolFormElem.Add LCase(sInputName), CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
End If


nDataBoundPos = InstrB(nDataBoundPos + LenB(vDataBounds), biData, vDataBounds)
Loop
End Sub


'String to byte string conversion
Private Function CByteString(sString)
Dim nIndex
For nIndex = 1 to Len(sString)
CByteString = CByteString & ChrB(AscB(Mid(sString,nIndex,1)))
Next
End Function


'Byte string to string conversion
Private Function CWideString(bsString)
Dim nIndex
CWideString =""
For nIndex = 1 to LenB(bsString)
CWideString = CWideString & Chr(AscB(MidB(bsString,nIndex,1)))
Next
End Function
End Class


Class UploadedFile
Public ContentType
Public FileName
Public FileData

Public Property Get FileSize()
FileSize = LenB(FileData)
End Property


Public Sub SaveToDisk(sPath)
Dim oFS, oFile
Dim nIndex

If sPath = "" Or FileName = "" Then Exit Sub
If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\"

Set oFS = Server.CreateObject("Scripting.FileSystemObject")
If Not oFS.FolderExists(sPath) Then Exit Sub

Set oFile = oFS.CreateTextFile(sPath & FileName, True)

For nIndex = 1 to LenB(FileData)
oFile.Write Chr(AscB(MidB(FileData,nIndex,1)))
Next


oFile.Close
End Sub

Public Sub SaveToDatabase(ByRef oField)
If LenB(FileData) = 0 Then Exit Sub

If IsObject(oField) Then
oField.AppendChunk FileData
End If
End Sub


End Class
%>

[cirmas78]

Questa la pagina che riceve

If Uploader.Files.Count = 0 Then
Response.Write "File NON salvato"
Else
' Loop through the uploaded files
For Each File In Uploader.Files.Items

'Response.Write "ddd: " & File

If Uploader.Form("saveto") = "disk" Then

set rsSelectContatore = Conn.Execute ("SELECT CONTATORE FROM TB_CLASSE WHERE CODICE = 'MAGA_'")
intContatore = rsSelectContatore.Fields("CONTATORE").Value + 1
set rsUpdateContatore = Conn.Execute ("UPDATE TB_CLASSE SET CONTATORE = " & intContatore & " WHERE CODICE = 'MAGA_'")


'Save the file
File.SaveToDisk Server.MapPath ("public\")

Response.Write "FormKey: " & Uploader.key

'Response.Write "FileName: " & File.FileName
'Response.Write "<br>FILE1: " & FILE1

if File.FileName = NomeFile1 then
Response.Write "<br>FileName1: " & File.FileName
Response.Write "<br>Contatore: " & contatorefile
end if

if File.FileName = NomeFile2 then
Response.Write "<br>FileName2: " & File.FileName
Response.Write "<br>Contatore: " & contatorefile
end if

if File.FileName = NomeFile3 then
Response.Write "<br>FileName3: " & File.FileName
Response.Write "<br>Contatore: " & contatorefile
end if



estensionefile = fso.GetExtensionName ("public\" & File.FileName)
fso.MoveFile Server.MapPath ("public\" & File.FileName), Server.MapPath ("public\MAGA_" & intContatore & "." & estensionefile)



contatorefile = contatorefile + 1

end if


Next
End If

[cirmas78]

Altra cosa molto particolare.

Dalla pagina che effettivamente effettua il salvataggio volevo recuperare il valore dei campi type="file"

FILE1_file = Uploader.Form("FILE1")
FILE2_file = Uploader.Form("FILE2")
FILE3_file = Uploader.Form("FILE3")
FILE4_file = Uploader.Form("FILE4")
FILE5_file = Uploader.Form("FILE5")


Mi risultato vuoti

Questo HTML della pagina di inserimento immagini
<div class="form-group">
<h1>File1</h1>
<input type="file" class="form-control" name="FILE1"> <input type="text" name="file1_text" />
</div>

<div class="form-group">
<h1>File2</h1>
<input type="file" class="form-control" name="FILE2"> <input type="text" name="file2_text" />
</div>

<div class="form-group">
<h1>File3</h1>
<input type="file" class="form-control" name="FILE3"> <input type="text" name="file3_text" />
</div>

<div class="form-group">
<h1>File4</h1>
<input type="file" class="form-control" name="FILE4"> <input type="text" name="file4_text" />
</div>

<div class="form-group">
<h1>File5</h1>
<input type="file" class="form-control" name="FILE5"> <input type="text" name="file5_text" />
</div>



Ho deciso, quanto meno temporaneamente di copiare in fase di submit (javascript) il contenuto del type="files" dentro allo speculare file type="text"

document.frmsite.file1_text.value = document.frmsite.FILE1.value;
document.frmsite.file2_text.value = document.frmsite.FILE2.value;
document.frmsite.file3_text.value = document.frmsite.FILE3.value;
document.frmsite.file4_text.value = document.frmsite.FILE4.value;
document.frmsite.file5_text.value = document.frmsite.FILE5.value;

Ultima cosa.
Ho provato ad inserire questo
Response.Write "<br><br>FormKey: " & Uploader.Files("FILE1")
non restituisce errore, ma non fa vedere nulla

[cirmas78]

Ciao,
ci sono novità per questa annosa problematica che mi sta facendo impazzire ?

[cavicchiandrea]

Premesso che non sviluppo più in asp da 15 anni. E che voler usare un linguaggio abbandonato da 20 anni lo trovo abbastanza assurdo. Così Uploader.item(“FILE1”).item(“Value”) per recuperare il nome l’hai provato?

[cirmas78]

Premesso che non sviluppo più in asp da 15 anni. E che voler usare un linguaggio abbandonato da 20 anni lo trovo abbastanza assurdo. Così Uploader.item(“FILE1”).item(“Value”) per recuperare il nome l’hai provato?

Si provato.

Purtroppo sono costretto ad usarlo. Le pagine sono tutte in ASP classic.

Caspita mi basterebbe capire quale sia il l'oggetto file che passa nel ciclo.

[Vincent.Zeno]

la disquisizioni sul linguaggio in quanto tale non sono argomento del thread, ovviamente.

@cirmas: più tardi forse riesco a dare un'occhiata migliore per aiutarti sul problema