Originariamente inviato da lucacasu
Salve a tutti..
Devo implementare questo script con la limitazione della grandezza dell' immagine. Visionando i vari post gia inseriti non son riuscito a inserire la if x fare il controllo..
Lo script che uso e funzionana bene è:
<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../mdb-database/dati.mdb"),"SELECT Top 1 * FROM escursioni"
.EnabledAspUpload = False
.EnabledImageSize = true
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "immagini"
.Load
.MoveFirst
if .EOF then
NumFiles = .Count()
Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il tipo di file."
%>
<center>
<input type="button" value="Indietro" onClick="history.back()" name="button22" style="color: #000000; font-size: 8 pt">
</center>
<%
else
.Database.Open()
While Not .EOF
if .Files("InputName")="campo2" then
.Files("DestPath") = Server.MapPath("immagini")
.Save
else
.Files("Name")=session("session.sessionID")
.Save
'Inserimento dei valori
.Database.Fields("titolo") = .Form("titolo")
.Database.Fields("luogo") = .Form("luogo")
.Database.Fields("durata") = .Form("durata")
.Database.Fields("orapartenza") = .Form("orapartenza")
.Database.Fields("prezzo") = .Form("prezzo")
.Database.Fields("testo") = .Form("testo")
.Database.Fields("tipo") = .Form("tipo")
.Database.Fields("immagine") = .GetFileName()
.Database.AddNew()
end if
%>
<center>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<%
response.Write "L' escursione " & .Form("titolo") &" a " & .Form("luogo") &" è stata inserita..
"
%>
<input type="button" value="Continua" onClick="location.href='../pannello.asp?codice=123'" name="button223" style="color: #000000; font-size: 8 pt">
</font>
</center>
<%
.MoveNext
Wend
end if
End With
Set oUpload = Nothing
%>
e grazie anticipatamente..
Rispondi quotando