Salve, mi sto cementando con l'Upload di Baol che da tutti è definito come il più funzionale e chiaro da capire.
Io sono all'ABC della programmazione ASP e vorrei riuscire a capire come funziona questa funzione di upload.
Provando e riprovando non sono giunto a nessuna conclusione.
Siccome non ho trovato nessuna guida su come usare Baol, vi mostro la parte di codice che ho utilizzato per la mia pagina di upload.
<%
If Request("Upload")="1" then
Dim oUpload
Set oUpload = new cUpload
oUpload.AutoRename = False
oUpload.Overwrite = true
oUpload.SetPath "."
oUpload.Upload
oUpload.SaveAs "."
Set oUpload=Nothing
end if
%>
<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/datashoemakers/Foto.mdb"),"SELECT Top 1 * FROM Immagini"
.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "Gallery/"
.Load
.MoveFirst
if .EOF then
NumFiles = .Count()
Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il ttipo di file."
else
.Database.Open()
While Not .EOF
.Save
response.Write "il file " & .GetFileName &" è stato salvato
"
'Inserimento dei valori
.Database.Fields("Immagine") = .Form("Immagine")
.Database.Fields("Gallery/") = .GetCompletePathFile
'Inserimento
.Database.AddNew()
.MoveNext
Wend
end if
End With
Set oUpload = Nothing
%>
<%
Dim oUpload
Set oUpload = new cUpload
oUpload.SetPath "Gallery\"
oUpload.UploadAndSave
Set oUpload=Nothing
%>
questo invece il codice del form
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="?upload=1">
File :
<INPUT TYPE="file" NAME="Campo1">
</p>
<INPUT TYPE="submit" NAME="Enter">
</p>
</FORM>
sicuramente dall'alto della mia ignoranza sbaglio qualche concetto base, perchè quando vado a visualizzare la pagina mi trova questo errore
Microsoft VBScript compilation error '800a0411'
Name redefined
/provaupload.asp, line 17
Dim oUpload
----^
Io sono aperto ad ogni consiglio, datemi anche dell'incapace, perchè realmente lo sono, ma sono volenteroso di imparare ad usare questo strumento di cui ho sempre rimandato l'apprendimento.
Graze in anticipo al benefattore che mi spiega come muovermi.
p.s.: ho seguito molti topic di questo forum alla ricerca di informazioni su Baol, ma non vi sono topic appositi per i principianti, ma solo riguardanti problemi "secondari"
Rispondi quotando
