2 upload

**ISE** · 07-12-2005, 19:36

Ragazzi vorrei far in modo che l'utente possa uplodare due file, utilizzando l'upload di BAOL ho scritto:

codice:


<% 
Dim oUpload 
Set oUpload = new cUpload
oUpload.SetPath "/public/" 
oUpload.Load
oUpload.Save

Set Con = Server.CreateObject( "ADODB.Connection" )
Con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&SERVER.MAPPATH("/mdb-database/offerteSicilia.mdb")

Set objrs = Server.CreateObject("ADODB.Recordset") 
objrs.open "SELECT * FROM TabellaOfferta",Con,3,3

objrs.addnew

objrs("titoloOfferta") = oUpload.Form("titoloOfferta")
objrs("testoOfferta") = oUpload.Form("testoOfferta")
objrs("blob") = oUpload.GetHTTPPathFile()

objRS.Update 

Set oUpload=Nothing 
objRS.Close 
Set objRS = Nothing 
Con.Close 
Set Con = Nothing 

Response.Redirect "home_proposte.asp"

%>

Se io aggiungessi:

codice:

objrs("nomecampo") = oUpload.GetHTTPPathFile()

Funziona?O devo seguire qualche procedura particolare?

**michele.santoro** · 07-12-2005, 20:59

Poco tempo fà c'era un 3D a proposito non ricordo quale fosse, ma puoi fare una ricerca sul forum.
Ho lo script perché ho l'abitudine di provarli e questo funzionava alla grande e serviva per l'upload (naturalmente con l'upload di Baol) di testo e due immagini di monete (il diritto e il rovescio)in un db e nella cartella public.

codice:


<%
	If Request.QueryString("Save")="1" then
		Dim oUpload
		Set oUpload = new cUpload
		oUpload.AutoRename = True
		oUpload.Overwrite = False
		oUpload.SetPath "public" 'Impostazione del percorso
		oUpload.Load
		While Not oUpload.EOF
			oUpload.Save()
			Select Case lCase(oUpload.Files("InputName"))
				Case "dritto"
					FileName_Dritto = oUpload.GetFileName()
				Case "rovescio"
					FileName_Rovescio = oUpload.GetFileName()
			End Select
			oUpload.MoveNext
		Wend			
		Set Conn = Server.CreateObject("ADODB.Connection")
		Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dbmonete.mdb")
		Set Rs=server.CreateObject("ADODB.Recordset")
		Rs.Open "tabmonete",Conn,3,3
		Rs.AddNew
		Rs("valuta")	= oUpload.Form("valuta")
		Rs("data")		= oUpload.Form("data")
		Rs("dritto")	= FileName_Dritto
		Rs("rovescio")	= FileName_Rovescio 
		Rs.update
		Rs.Close
		Conn.Close
		Set Rs = Nothing
		Set Conn=Nothing				
		Set oUpload = Nothing
	End if
%>

Vedi se può servirti come esempio

**ISE** · 08-12-2005, 17:24

codice:


<%
....
Case "dritto"
FileName_Dritto = oUpload.GetFileName()
Case "rovescio"
FileName_Rovescio = oUpload.GetFileName()
.....
......
Rs.AddNew
Rs("valuta")	= oUpload.Form("valuta")
Rs("data")	= oUpload.Form("data")
Rs("dritto")	= FileName_Dritto
Rs("rovescio")	= FileName_Rovescio 
.............
%>

Dove trovo scritto dritto e rovescio devo posso sostituire con i nomi dei miei campi?

codice:


<%
....
Case "blob"
FileName_blob = oUpload.GetFileName()
Case "immagine"
FileName_immagine = oUpload.GetFileName()
.....
......
Rs.AddNew
Rs("valuta")	= oUpload.Form("valuta")
Rs("data")	= oUpload.Form("data")
Rs("blob")	= FileName_blob
Rs("immagine")	= FileName_immagine
.............
%>

I miei campi per fare fare l'upload si chiamano
1) blob
2) immagine

**ISE** · 08-12-2005, 18:05

Non mi scrive sul DB.

Il form invia:

codice:

<form name="form1" enctype="multipart/form-data" method="post" action="inseriscirecord.asp">
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="ContenutiBLU">Proposta </td>
<td></td>
<td><input name="titoloGruppi" type="text" id="titoloGruppi"></td>
</tr>
<tr>
<td colspan="3"></td>
</tr>
<tr>
<td class="ContenutiBLU">Descrizione Proposta</td>
<td></td>
<td><textarea name="descrizioneGruppi" id="descrizioneGruppi"></textarea></td>
</tr>
<tr>
<td colspan="3"></td>
</tr>
<tr>
<td class="ContenutiBLU">File</td>
<td></td>
<td><input name="blob" type="file" id="blob"></td>
</tr>
<tr>
<td class="ContenutiBLU"></td>
<td></td>
<td></td>
</tr>
<tr>
<td class="ContenutiBLU">Immagine</td>
<td></td>
<td><input name="immagine" type="file" id="immagine"></td>
</tr>
<tr>
<td colspan="3" class="ContenutiBLU"><div align="center">
<input type="submit" name="Submit" value="Aggiungi">
</div></td>
</tr>
</table>
</form>

**ISE** · 08-12-2005, 18:06

La pagine che rice i dati e che dovrebbe salvare sul db ha questo codice:

codice:


<%
If Request.QueryString("Save")="1" then
Dim oUpload
Set oUpload = new cUpload
oUpload.AutoRename = True
oUpload.Overwrite = False
oUpload.SetPath "public" 'Impostazione del percorso
oUpload.Load
While Not oUpload.EOF
oUpload.Save()
Select Case lCase(oUpload.Files("InputName"))
Case "blob"
FileName_blob = oUpload.GetFileName()
Case "immagine"
FileName_immagine = oUpload.GetFileName()
End Select
oUpload.MoveNext
Wend			
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&SERVER.MAPPATH("/mdb-database/prova.mdb")
Set Rs=server.CreateObject("ADODB.Recordset")
Rs.Open "TabellaGruppi",Conn,3,3
Rs.AddNew
Rs("titoloGruppi")	= oUpload.Form("titoloGruppi")
Rs("descrizioneGruppi")		= oUpload.Form("descrizioneGruppi")
Rs("blob")	= FileName_blob
Rs("immagine")	= FileName_immagine 
Rs.update
Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn=Nothing				
Set oUpload = Nothing
End if

Response.Redirect "gruppi.asp"

%>

**ISE** · 08-12-2005, 18:11

La tabella che dovrebbe stampare a video i dati del db:

codice:

<table width="100%"  border="0" cellspacing="0" cellpadding="0">
<%
if not rs.eof then
do until rs.eof
 %>
<tr> 		  
<td width="50" rowspan="3">
<%
If Not IsNull(rs("blob")) then
ext = right(rs("blob"),3)
%>
<a href="<%=rs("blob")%>" target="_blank">
<% if ext="pdf" then %>
[img]gfx/pdf.gif[/img]
<% elseif ext="doc" then %>
[img]gfx/doc.gif[/img]
<% elseif ext="jpg" then %>
[img]gfx/jpg.gif[/img]
<% end if %>
</a>
<%
End If
%>
</td>
<td width="50" rowspan="3">[img]gfx/trasp1px.gif[/img]</td>
<td class="ContenutiROSSO"><div align="center"><%=rs("titoloGruppi")%></div></td>
</tr>
<tr>
<td>[img]gfx/trasp1px.gif[/img]</td>
</tr>
<tr>
<td class="ContenutiBLU"><div align="left"><%=rs("descrizioneGruppi")%></div></td>
</tr>
<tr>
<td colspan="3">

[img]gfx/trasp1px.gif[/img]</p>


[img]<%=rs([/img]" border="0"></p></td>
</tr>
<%
rs.moveNext
loop
end if
rs.close
set rs = nothing
con.close
set con = nothing
%>
</table>

**ISE** · 09-12-2005, 11:59

Ragazzi un aiutino please!!!

**michele.santoro** · 09-12-2005, 13:53

codice:


<%
	If Request.QueryString("Save")="1" then
		Dim oUpload
		Set oUpload = new cUpload
		oUpload.AutoRename = True
		oUpload.Overwrite = False
		oUpload.SetPath "public" 'Impostazione del percorso
		oUpload.Load
		While Not oUpload.EOF
			oUpload.Save()
			Select Case lCase(oUpload.Files("InputName"))
				Case "dritto"
					FileName_Dritto = oUpload.GetFileName()
				Case "rovescio"
					FileName_Rovescio = oUpload.GetFileName()
			End Select
			oUpload.MoveNext
		Wend			
		Set Conn = Server.CreateObject("ADODB.Connection")
		Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dbmonete.mdb")
		Set Rs=server.CreateObject("ADODB.Recordset")
		Rs.Open "tabmonete",Conn,3,3
		Rs.AddNew
		Rs("valuta")	= oUpload.Form("valuta")
		Rs("data")		= oUpload.Form("data")
		Rs("dritto")	= FileName_Dritto
		Rs("rovescio")	= FileName_Rovescio 
		Rs.update
		Rs.Close
		Conn.Close
		Set Rs = Nothing
		Set Conn=Nothing				
		Set oUpload = Nothing
	End if
%>
<form name="form1" method="post" enctype="multipart/form-data" action="?save=1">
<blockquote>
	<div align="center">
		<table border="0" width="90%" id="table1">
			<tr>
				<td>
				<p align="right"><font size="2" color="#000080" face="Verdana">valuta</font><font color="#000080" face="Verdana">
				<input name="valuta" type="text" id="valuta"></font></td>
				<td></td>
				<td><font size="2" color="#000080" face="Verdana"> 
				dritto </font>
				<font color="#000080" face="Verdana">
				<input name="dritto" type="file" id="dritto" ></font></td>
			</tr>
			<tr>
				<td>
				<p align="right">
				<font color="#000080" face="Verdana">
				<font size="2">data <textarea rows="2" name="data" cols="20"></textarea></font></font><font size="2" color="#000080" face="Verdana"> </font>
				</td>
				<td></td>
				<td><font size="2" color="#000080" face="Verdana">rovescio
				</font><input name="rovescio" type="file" id="rovescio" ></td>
			</tr>
			<tr>
				<td></td>
				<td>
				<p align="center">
				<input type="submit" name="Submit" value="Invia"></td>
				<td></td>
			</tr>
		</table>
	
</blockquote>
</form>

Questa è la pagina per l'upload dei dati e files. Chiamala come vuoi.

Il database è così configurato:

Nome del database: dbmonete.mdb
Nome Tabella: tabmonete

I campi della tabella sono i seguenti:
Id Contatore
valuta Testo
data Memo
dritto Testo
rovescio Testo

Il file upload.asp (quello di Baol) ce l'hai tu!

Il tutto funziona egregiamente. Non ti rimane che sostituire i nomi dei campi del database e all'interno del file sopra postato e il gioco è fatto.
Ciao

**ISE** · 09-12-2005, 14:24

Perfetto...funziona!!!

**michele.santoro** · 09-12-2005, 17:56

Non avevo dubbi in proposito, era testato e ...
... io al tuo posto ringrazierei anche e soprattutto la persona che ha postato lo script (un mesetto fà, più o meno, non ricordo proprio chi fosse) e il SUPER BAOL.

Discussione: 2 upload

Strumenti discussione

Ricerca discussione

Visualizza

2 upload

Permessi di invio