Upload img

[larrygiu]

Devo uploadare un'immagine in una cartella del db e registrare la path sul db (mdb).
Il problema che di asp non so nulla, (conoscendo solo php). Voi direte perkè non l'hai fatto in php? Perkè tutto il progetto (molto ampio) era stato fatto in asp e io sono subentrato successivamente (e tra l'altro hanno cambiato server con aruba che non supporta questa parte di codice, altrimenti non ci sarebbe il problema).

Set Upload = Server.CreateObject("Persits.Upload.1")
count=Upload.SaveVirtual("./foto\")

Vorrei solo capire il codice che gestisce l'upload, ve lo posto (chi me lo spiega e magari darmi qualche dritta per risolvere il problema, tenendo conto che vorrei che le foto venissero uploadate in una cartella foto dentro la cartella public, questo codice invece si trova fuori dalla cartella public:

 
<% response.expires=0 %>
<%
id=request.querystring("id")
dim a(1)
nomecartella=ui
%>
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
count=Upload.SaveVirtual("./Fotosang\")
%>
<%i=0
dim car2(100),car22(100)
for each file in Upload.files
i=i+1
a(i)=file.path
loc=a(i)
car3=""
car33=""
z=0
k = InStr(loc, ".")
If k > 0 Then
strbuff = Mid(loc, 1, k - 1)
For k1 = k To 1 step -1
car = Mid(loc, k1, 1)
z=z+1
car2(z)=car
if car="\" then 
for t=z-1 to 1 step -1
car3=car3&car2(t)
next
exit for
end if
Next
End If
l=len(loc)
For k1 = k+1 To k+3
carr = Mid(loc, k1,1 )
car33=car33&carr
Next
a(i)=car3&car33 
' response.write a(i)
next
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source ="&server.mappath("/mdb-database/localisang.mdb")&" ;Persist Security Info = False;"
Set RS=Server.CreateObject("ADODB.Recordset")
if a(1)<>"" then
sql="update appart set piantina='"&a(1)&"' where id="&id
Set RS=OBJdbConnection.Execute(sql)
end if
%>

Saluti,
LARRY

[floyd46]

ciao
puoi creare un pannello di amministrazione, con dei campi in cui inserisci il percorso della foto; per esempio: images/foto1.jpg.
prima di scrivere il tutto nel db, dovresti uplodare tramite ftp la foto vera e propria; ti dico questo in quanto non tutti gli ISP danno i permessi di scrittura per uplodare tramite browser.
Cmq non è un sistema complicato, anzi, abbastanza semplice.
Se vuoi contattami in pvt.

ciao

[larrygiu]

L'upload della foto la faccio tramite un form.
Mentre per il percorso della cartella, aruba dà i permessi di scrittura solo alla cartella Public, quindi la cartella con le foto uploadate deve risiedere nella cartella Public.
Riesci a darmi una mano?

Ciao,
LARRY

[floyd46]

non conosco il sistema di Aruba, ma non dovrebbe essere 1 problema se dici che le foto le trasferisci tramite form;

sei al 50% già;
dovresti creare un pannello di amministrazione ed inserire 1 campo , che kiamerai URL FOTO, in cui tu devi scrivere tutto il percorso della cartella contenente le immagini:
Public/TuaCartellaImm/foto.jpg

se ho capito bene dovrebbe essere così.

ciao

[larrygiu]

Hai capito bene.
Allora nel db ho questi campi:
- id
- nome
- cognome
- immagine

Riesco a memorizzare tutti i campi di testo (nome e cognome), ma quando passo al form per caricare l'immagine non riesco a realizzare lo script ASP per l'upload dell'immagine (logicamente deve avere lo stesso ID del nome e cognome associato).

Spero di essermi spiegato.

LARRY

[larrygiu]

Son riuscito a fare l'upload nella cartella che volevo, però non riesco a memorizzare il nome del file nel db.
Infatti quando richiamo l'immagine da db non la visualizza.
:d

Questo è lo script per l'upload:

<%
Response.Expires = 0
Response.Buffer = TRUE
'Response.Clear
%>

<%
'Creiamo l'oggetto FileUploader ed assegnamogli il nome Uploader
Dim Uploader, File
Set Uploader = New FileUploader

'Impostiamo la dimensione max della somma dei file in byte
'Uploader.maxSize = 50000 '50kb

'Impostiamo la dimensione max del file in byte
Uploader.maxFileSize = 100000 '100kb

'Impostiamo il tipo di file ammessi
Uploader.fileExt = "jpg,gif,bmp"

'Impostiamo se sovrascrivere file gi‡ presenti
Uploader.OverWrite = False 'True sovrascrivi - False cambia nome in nomefileN.ext dove N Ë un numero incrementale

'Iniziamo il processo di upload
Uploader.Upload()


'Visualizziamoli
%>
<html>
<head>
<title>byluciani.com -- Risultato upload</title>
</head>
<body>
<center>
<form action="form_upload.htm">
<table border="0" width="400" bgcolor="#000080" cellspacing="1" cellpadding="0">
  <tr>
    <td width="100%" align="center"><font face="Tahoma" color="#FFFFFF" size="2">Risultato</font></td>
  </tr>
  <tr>
    <td width="100%">
      <table border="0" width="100%" bgcolor="#99CCFF" cellspacing="0" cellpadding="0">
        <tr>
          <td width="100%" align="center"></td>
        </tr>
<%
strPath = Server.MapPath("/public/fotosang") & "\"

'Controlliamo se sono stati inviati dei file
If Uploader.Files.Count = 0 Then
%>
        <tr>
          <td width="100%"><font color="#000080" size="2" face="Tahoma">Nome file:Nessun file inviato.</font></td>
        </tr>
<%
	If Uploader.Error Then
%>	
        <tr>
          <td width="100%"><font color="#000080" size="2" face="Tahoma">Errore:<%=Uploader.ErrorDesc%></font></td>
        </tr>	
<%	
  End If
Else

	'Ciclo tra i file inviati
	For Each File In Uploader.Files.Items
		
		'Salvo il file
		File.SaveToDisk strPath

		'Mostriamo i dettagli dei file salvati
%>
        <tr>
          <td width="100%"><font color="#000080" size="2" face="Tahoma">Nome file:<%=File.FileName%></font></td>
        </tr>
        <tr>
          <td width="100%" height="36"><font color="#000080" size="2" face="Tahoma">Dimensioni:<%=File.FileSize%>byte</font></td>
        </tr>
        <tr>
          <td width="100%"><font color="#000080" size="2" face="Tahoma">Tipo:<%=File.ContentType%></font></td>
        </tr>
<%		
	Next

End If
%>
        <tr>
          <td width="100%"></td>
        </tr>
        <tr>
          <td width="100%" align="center"><input type="submit" name="enter" value="Ancora"></td>
        </tr>
        <tr>
          <td width="100%"></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</form>

<%
Set Uploader = Nothing

Dim objFSO, objFolder, objFile, a(1)

Set objFSO = server.createobject("scripting.filesystemobject")
Set objFolder = objFSO.getfolder(strpath)

For Each objFile in objFolder.Files
  Response.Write "

[img]../public/fotosang/" & objfile.name & "[/img]
<font color='#000080' size='2' face='Tahoma'>" & objfile.name & " - " & objFile.DateCreated & "
"
  Response.Write objfile.size & " byte - " & objfile.type & "</font>"
Next

set objfolder = Nothing
set objfso = nothing

Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source ="&server.mappath("/mdb-database/localisang.mdb")&" ;Persist Security Info = False;"
Set RS=Server.CreateObject("ADODB.Recordset")

if objfile.name<>"" then
sql="update appart set piantina="&objfile.name&" where id="&id
Set RS=OBJdbConnection.Execute(sql)
end if

%>

Chi sa dirmi il perkè?

Ciao,
LARRY

[larrygiu]

U P

[lukeonweb]

Se il server supporta ASP.NET e non c'è bisogno di leggere delle Session (tipo area riservata) leggi questo

http://www.mrwebmaster.it/tutorial/a...utorial194.htm