Upload Immagini

**jet** · 17-03-2005, 01:40

codice:

 
<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/mdb-database/Forum_Avatar.mdb"),"SELECT * FROM Utenti"

.EnabledAspUpload = False
.EnabledImageSize = True
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "files\"
.Load
'.UploadOnly "Images"
While Not .Eof
If .Files("Height")>=51 or .Files("Width")>=51 then
 Response.write ("Le dimensioni dell'immagine " &_
 .GetFileName() &" non sono corrette (" &_
 .Files("Height") &"x" & .Files("Width") &"): File non caricato; ripetere l'operazione
"  )
%>
<head>
<meta http-equiv="refresh" content="15;URL=Registrazione_Forum.asp">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</head>
<%
else
 .MoveFirst 
 .Database.Open()
 .Save
%>
<font size="2" face="Verdana" color="#800000"><%response.Write "il file " & .GetFileName &" è stato salvato 
"%></font>
<%
.Database.Fields("Data") = .Form("Data")
.Database.Fields("Login") = .Form("user")
.Database.Fields("Password") = .Form("psw")
.Database.Fields("user") = .Form("user")

.Database.Fields("nomefile") = .GetFileName 


.Database.Update() 
.MoveNext
end if
Wend
End With
'end if
Set oUpload = Nothing
%>


<html>
<head>
<meta http-equiv="refresh" content="5;URL=http://www.miosito.it/login1.asp">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</head>

Ottengo un update sul primo ID della tabella e non l'insert sul nuovo record!

**Gio&Ste** · 17-03-2005, 01:50

Infatti fai solo un UPDATE, mentre dovresti fare:

codice:

.Database.Addnew()

**jet** · 17-03-2005, 10:23

**jet** · 17-03-2005, 10:39

codice:

Response object error 'ASP 0251 : 80004005' 

Response Buffer Limit Exceeded 

/public/UPLOAD/AggRegForum.asp, line 0 

Execution of the ASP page caused the Response Buffer to exceed its configured limit.

Adesso però ottengo questo errore se l'immagine risulta più grande dei limiti imposti, altrimenti funge...

**jet** · 19-03-2005, 21:30

Se escludo il Buffer, mi va in loop!

**Roby_72** · 19-03-2005, 21:39

codice:

<%
server.scripttimeout = 3600 'Secondi 
Dim oUpload

Roby

**jet** · 19-03-2005, 21:44

stampa lo stesso errore.

**jet** · 19-03-2005, 22:02

codice:

 
<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/mdb-database/Forum_Avatar.mdb"),"SELECT * FROM Utenti"

.EnabledAspUpload = False
.EnabledImageSize = True
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "files\"
.Load
'.UploadOnly "Images"
'While Not .Eof
If .Files("Height")>=51 or .Files("Width")>=51 then
 Response.write ("Le dimensioni dell'immagine " &_
 .GetFileName() &" non sono corrette (" &_
 .Files("Height") &"x" & .Files("Width") &"): File non caricato; ripetere l'operazione
"  )
%>
<head>
<meta http-equiv="refresh" content="15;URL=Registrazione_Forum.asp">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</head>
<%
else
 .MoveFirst 
 .Database.Open()
 .Save
%>
<font size="2" face="Verdana" color="#800000"><%response.Write "il file " & .GetFileName &" è stato salvato 
"%></font>
<%
.Database.Fields("Data") = .Form("Data")
.Database.Fields("Login") = .Form("user")
.Database.Fields("Password") = .Form("psw")
.Database.Fields("user") = .Form("user")

.Database.Fields("nomefile") = .GetFileName 


.Database.Update() 
.MoveNext
end if
'Wend
End With
'end if
Set oUpload = Nothing
%>


<html>
<head>
<meta http-equiv="refresh" content="5;URL=http://www.miosito.it/login1.asp">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</head>

Escludendo While not.EOF e Wend funge, ma se l'immagine manca l'errore è:

error '80020009'
ovviamente alla riga:
If .Files("Height")>=51 or .Files("Width")>=51 then

**jet** · 19-03-2005, 22:37

Come faccio ad assegnare un valore, ad esempio imm.jpg a
.GetFileName()
Se faccio If .GetFileName = "" .GetFilename = "imm.jpg" then ottengo un errore di sintassi;
Vorrei assegnare il nome di un'immagine di default, nel caso appunto l'immagine sia nulla.

Discussione: Upload Immagini

Strumenti discussione

Ricerca discussione

Visualizza

Upload Immagini

Permessi di invio