ASP Upload

voldemort

Utente Attivo
26 Mar 2009
168
5
0
Per caso qualcuno di voi sa indicarmi qualche tutorial o meglio qualche script già pronto per gestire l'upload di file con Classic ASP?
Ho letto un articoletto su come gestire gli upload con ASP senza usare DLL ma non ci ho capito molto... aiutatemi voi!!! Grazie ;-)
 

maxbossi

Amministratore
Membro dello Staff
ADMIN
MOD
25 Feb 2003
2.020
39
48
www.ikiweb.it
Sulle pagine di Mr.Webmaster (oltre che in questo forum) abbiamo affrontato più volte l'argomento. Ti posto qualche link sull'argomento ASP Upload:

Utilizzare il componente aspUpload
https://www.mrw.it/asp/articoli/upload-file-componente-aspupload_281.html

Utilizzare il componente aspSmartUpload
https://www.mrw.it/asp/articoli/gestire-upload-asp-grazie-aspsmartupload_589.html

Inoltre potrebbe interessarti questo post che ho scritto sul nostro blog:
http://blog.mrwebmaster.it/2010/05/25/gestire-gli-upload-con-asp.html

Ciao
 

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
550
13
18
Italy
www.riciclarte.info

kuma11

Nuovo Utente
4 Dic 2010
3
0
0
Salve io invece dovrei fare l'upload di file e memorizzare il nome del file su un database dove vi sono altri campi.
Il problema consiste nel fatto che nella form che riceve gli input, per poter effettuare l'upload devo riportare la stringa enctype="multipart/form-data" per indicare che sto trasferendo un file. Così facendo però non mi prende gli altri campi.
Ho provato in due modi 1 inserendo la stringa e 2 non inserendola. Riporto di seguito lo script e i relativi errori se qualcuno è così gentile da dargli un'occhiata e dirmi come posso risolvere.

OPZIONE 1: ERRORE “campi non compilati”

Script pagina aggiungi concorso:
<form enctype="multipart/form-data" method="POST" action="concorsi_DB.asp?tipo=aggiungi">
<table border="1" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="19%"><font face="Georgia" size="2">Ente</font></td>
<td width="81%"><font face="Georgia" size="2"><input type="text" name="ente" size="70"></font></td>
</tr>
<tr>
<td width="19%"><font face="Georgia" size="2">Titolo concorso</font></td>
<td width="81%"><font face="Georgia" size="2"><input type="text" name="titolo" size="70"></font></td>
</tr>
<tr>
<td width="19%"><font face="Georgia" size="2">Allegato1</font></td>
<td>
<font face="Georgia" size="2"> <br>Allegato <input type="file" name="allegato"> </td>
</tr>
</table>
<table width=100%>
<tr>
<td width="100%" colspan="2"><font face="Georgia" size="2"><input type="submit" value="Inserisci" name="B1">
<input type="reset" value="Reimposta" name="B2"></font></td>
</tr>
</table>
</form>

Script pagina concorsi_DB.asp:
<% ' PERCORSO DEL DATABASE
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("../../mdb-database/concorsi.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
' CONTROLLA SE TUTTI I CAMPI SONO STATI COMPILATI
IF Len(Request("ente")) = 0 or Len(Request("titolo")) = 0 then
' CAMPI NON COMPILATI!
%>
<hr>
<div align="center"><font face="Georgia" size="4"><b>Campi non compilati!</b></font></p>
<hr>
<%
Else
' CAMPI COMPILATI RICEVE L'OPERAZIONE DA SVOLGERE (AGGIUNGERE/MODIFICARE concorsi)
operazione = Request.QueryString("tipo")
Set RecSet = Server.CreateObject("ADODB.Recordset")

' IN BASE ALL'OPERAZIONE CREA LA QUERY AL DATABASE
IF operazione = "aggiungi" then
' DEVE AGGIUNGERE il concorso
SQL = "SELECT * FROM concorsi"
else
' DEVE MODIFICARE IL CONCORSO
SQL = "SELECT * FROM concorsi WHERE id = " & Request.Querystring("id") &""
End IF
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

' OPERAZIONE : AGGIUNGI concorsi
IF operazione = "aggiungi" then
RecSet.Addnew

' SE SI AGGIUNGE IL concorso, INSERISCE LA DATA CORRENTE
RecSet("data") = date()
End IF

RecSet("ente") = Server.HTMLEncode(Request.Form("ente"))
RecSet("titolo") = Server.HTMLEncode(Request.Form("titolo"))
RecSet("allegato") = Server.HTMLEncode(Request.Form("allegato"))

'inizio caricamento file
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save(Server.MapPath("../../public/Allegati")) 'percorso dove finirà il file
Set File = Upload.Files("allegato") ' input della form dove caricate il file
If Not File Is Nothing Then
filename=File.FileName
end if
'fine caricamento file

' AGGIORNA E CHIUDE IL DB
RecSet.Update
RecSet.Close
Set RecSet = Nothing
%>
<hr>
<div align="center"><font face="Georgia" size="4"><b>Operazione eseguita correttamente!</b></font></div>
<hr>
<%
End IF
Conn.Close
Set Conn = Nothing
%>

OPZIONE 2:
ERRORE
“Persist.Upload1 error “800°003d”
Wrong Content-Type. Make sure you have included the attribute ENCTYPE =”multipart/form-data” in your form.
/Pagine/Area_Riservata/concorsi_DB.asp, line 246”
Script pagina aggiungi concorso:

Script pagina aggiungi concorso:
<form method="POST" action="concorsi_DB.asp?tipo=aggiungi">
<table border="1" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="19%"><font face="Georgia" size="2">Ente</font></td>
<td width="81%"><font face="Georgia" size="2"><input type="text" name="ente" size="70"></font></td>
</tr>
<tr>
<td width="19%"><font face="Georgia" size="2">Titolo concorso</font></td>
<td width="81%"><font face="Georgia" size="2"><input type="text" name="titolo" size="70"></font></td>
</tr>
<tr>
<td width="19%"><font face="Georgia" size="2">Allegato1</font></td>
<td>
<font face="Georgia" size="2"> <br>Allegato <input type="file" name="allegato"> </td>
</tr>
</table>
<table width=100%>
<tr>
<td width="100%" colspan="2"><font face="Georgia" size="2"><input type="submit" value="Inserisci" name="B1">
<input type="reset" value="Reimposta" name="B2"></font></td>
</tr>
</table>
</form>

Script pagina concorsi_DB.asp:
<% ' PERCORSO DEL DATABASE
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("../../mdb-database/concorsi.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
' CONTROLLA SE TUTTI I CAMPI SONO STATI COMPILATI
IF Len(Request("ente")) = 0 or Len(Request("titolo")) = 0 then
' CAMPI NON COMPILATI!
%>
<hr>
<div align="center"><font face="Georgia" size="4"><b>Campi non compilati!</b></font></p>
<hr>
<%
Else
' CAMPI COMPILATI RICEVE L'OPERAZIONE DA SVOLGERE (AGGIUNGERE/MODIFICARE concorsi)
operazione = Request.QueryString("tipo")
Set RecSet = Server.CreateObject("ADODB.Recordset")

' IN BASE ALL'OPERAZIONE CREA LA QUERY AL DATABASE
IF operazione = "aggiungi" then
' DEVE AGGIUNGERE il concorso
SQL = "SELECT * FROM concorsi"
else
' DEVE MODIFICARE IL CONCORSO
SQL = "SELECT * FROM concorsi WHERE id = " & Request.Querystring("id") &""
End IF
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

' OPERAZIONE : AGGIUNGI concorsi
IF operazione = "aggiungi" then
RecSet.Addnew

' SE SI AGGIUNGE IL concorso, INSERISCE LA DATA CORRENTE
RecSet("data") = date()
End IF

RecSet("ente") = Server.HTMLEncode(Request.Form("ente"))
RecSet("titolo") = Server.HTMLEncode(Request.Form("titolo"))
RecSet("allegato") = Server.HTMLEncode(Request.Form("allegato"))

'inizio caricamento file
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save(Server.MapPath("../../public/Allegati")) 'percorso dove finirà il file
Set File = Upload.Files("allegato") ' input della form dove caricate il file
If Not File Is Nothing Then
filename=File.FileName
end if
'fine caricamento file

' AGGIORNA E CHIUDE IL DB
RecSet.Update
RecSet.Close
Set RecSet = Nothing
%>
<hr>
<div align="center"><font face="Georgia" size="4"><b>Operazione eseguita correttamente!</b></font></div>
<hr>
<%
End IF
Conn.Close
Set Conn = Nothing
%>

Praticamente la differenza tra i due script è la stringa "enctype="multipart/form-data""
 
Discussioni simili
Autore Titolo Forum Risposte Data
S [ASP.Net] [ASP] Upload Image ASP.NET 6
M [ASP] Upload file da form controllo Classic ASP 5
T [ASP] upload file Classic ASP 3
M modifica persist asp upload Classic ASP 7
P asp upload image con resize peso senza componenti? Classic ASP 0
A Aiuto per upload asp e/o html Classic ASP 10
V Problema con Pure Asp Upload Classic ASP 4
PoLe Upload ASP.NET non funziona con IE8 ASP.NET 2
voldemort Upload asp senza dll Classic ASP 1
M Upload con ASP.Net ASP.NET 1
U upload delle immagini con ASP Classic ASP 5
A asp upload immagine Classic ASP 2
T upload asp Classic ASP 23
M asp: errore nell'upload di file di grandi dimensioni Classic ASP 3
S UPLOAD ASP: Problemi di grandezza file? Classic ASP 6
T UpLoad in puro .asp Classic ASP 0
felino ASP.net MVC: Exception e chiamata AJAX ASP.NET 1
W Rinominare Documenti Con Form Asp Classic ASP 9
G Registrazione utente su pagina asp Classic ASP 13
R Sviluppatore ASP.NET Offerte e Richieste di Lavoro e/o Collaborazione 0
seranto [ASP] Controllare il testo inserito in Textarea Classic ASP 6
F classic asp popolare combo box javascript Presentati al Forum 1
P Passagio dati complessi tra una ASP.NET webapi e Angular ASP.NET 1
A [ASP.Net] Gestire il profilo ADMIN in un progetto ASP NET e pattern MVC ASP.NET 0
P [ASP.Net] Problema ERR_INCOMPLETE_CHUNKED_ENCODING 206 (Partial Content) con Font ASP.NET 4
A [ASP] Confronto tra dati Form e DB Classic ASP 2
A Mantenere la validazione reindirizzandoci su un secondo sito WEb. (ASP.NET) ASP.NET 0
StephenSoftware [ASP.Net] Pagina Master ed eventi... ASP.NET 0
K [ASP] Visualizzare nome del file selezionato Classic ASP 3
S [ASP] rubrica telefonica Classic ASP 2
M MySQL e classic ASP Classic ASP 5
D [ASP] Eliminare gli zeri che nn servono Classic ASP 1
G [ASP] Ciclare i valori di 2 array Classic ASP 2
S [RISOLTO] aggiorna tabella da select option asp classic Classic ASP 7
S elimina record sql asp classic Classic ASP 5
D [ASP] Autocomplete cerca su 2 campi del db Classic ASP 1
D [ASP] Leggere Campo decimal MYSQL Classic ASP 1
S [ASP] SALVARE VALORE SELECT OPTION SU CAMPO TABELLA ACCESS Classic ASP 9
NuviaSoftware [Retribuito] [Cerco] Programmatore ambienti ASP.NET,. Net Azure web apps, Javascript Offerte e Richieste di Lavoro e/o Collaborazione 0
D [ASP] scaricare articoli Classic ASP 8
D [ASP] Mysql insert e update Classic ASP 2
V [ASP.Net] avento keydown crh13 enter ASP.NET 0
A [ASP.Net] Dropdownlist ASP.NET 0
V Ricevere messaggi email certificata con CDO o altro oggetto in ASP Classic ASP 0
A [ASP] query wish list Classic ASP 3
riminese77 [ASP.Net] Popup Bootstrap in datagrid ASP.NET 0
D [ASP] si può fare? Classic ASP 29
D [ASP] ordinamento query Classic ASP 2
S SQL, ACCESS & ASP CLASSIC - QUERY Classic ASP 3
G [ASP] Incrementare un valore on the fly su selezione select Classic ASP 3

Discussioni simili