controllo dimensioni di 2 immagini

**jet** · 13-10-2006, 17:43

Vorrei controllare le dimesioni di 2 immagini diverse tra loro, mentre con questo sorgente riesco solo a controllare una sola immagine.

<%
Response.Buffer = true
server.scripttimeout = 3600 'Secondi
Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = True
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "serate\"
.Load
titolo = oUpload.Form("titolo")
titolo= Replace(titolo, "'", "|")
descr1 = oUpload.Form("descr1")
descr1= Replace(descr1, "'", "|")
data = oUpload.Form("data")
nomefile = oUpload.Form("nomefile")
nomefile1 = oUpload.Form("nomefile1")
If titolo <>"" And descr1 <>"" Then
nomefile = .GetFileName()
.UploadOnly "Images"
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/mdb-database/News.mdb"),"SELECT * FROM News"

If Not.EOF then
If .Files("Height")>=251 or .Files("Width")>=201 then

Response.write "<html>"
Response.write "<head>"
Response.write "<title>.:: nuova serata con immagine che supera le dimensioni massime ::.</title>"
Response.write "<link rel=""stylesheet"" href=""/style.css"" type=""text/css"">"
Response.write "</head>"
Response.write "<body bgcolor=""#000000"">"
Response.write "

"
Response.write "[b]"
Response.write ("Le dimensioni dell'immagine " & .GetFileName() &" non sono corrette (" &_
.Files("Height") &"x" & .Files("Width") &"): File non caricato in quanto supera le dimensioni di 250 x 200 pixel;
ripetere l'operazione
" )
Response.write "[b]"
Response.write "</body>"
Response.write "</html>"
%>
<head>
<meta http-equiv="refresh" content="10;URL=/modulo_serate.asp?titolo=<%=titolo%>&descr1=<%=des cr1%>">
</head>
<%
else
.MoveFirst
.Database.Open()
.Save

Response.write "<html>"
Response.write "<head>"
Response.write "<title>.:: nuova serata con immagine::.</title>"
Response.write "<link rel=""stylesheet"" href=""/style.css"" type=""text/css"">"
Response.write "</head>"
Response.write "<body bgcolor=""#000000"">"
Response.write "

"
Response.write "[b]"
Response.write "i testi e l'immagine "
Response.write "" & .GetFileName & " sono stati salvati"
Response.write "[b]"
Response.write "</body>"
Response.write "</html>"

.Database.Fields("Data") = .Form("Data")
.Database.Fields("titolo") = .Form("titolo")
.Database.Fields("descr1") = .Form("descr1")

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

.Database.Addnew()
.MoveNext
end If

Else
Response.Redirect "/modulo_serate.asp"
End If

end with
%>

**jet** · 13-10-2006, 18:13

Chiedo se è consentitopassare le variabili come stringhe.

**jet** · 13-10-2006, 18:49

Vorrei sapere almeno se è possibile farlo;

**jet** · 13-10-2006, 19:26

Vado avanti, ma ottengo il seguente errore se nomefile rientra nei parametri, altrimenti mi fa il controllo:

ADODB.Stream error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/public/UPLOAD/upload.asp, line 291

riga 291: Stream.Write Request.BinaryRead(bTr)

<%
Response.Buffer = true
server.scripttimeout = 3600 'Secondi
Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = True
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "files\"
.Load
titolo = oUpload.Form("titolo")
titolo= Replace(titolo, "'", "|")
data = oUpload.Form("data")
nomefile = oUpload.Form("nomefile")
nomefile1= oUpload.Form("nomefile1")
If titolo <>"" Then
nomefile = .GetFileName()
.UploadOnly "Images"
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/mdb-database/news.mdb"),"SELECT * FROM news"

If Not.EOF then
If .Files("Height")>=101 or .Files("Width")>=101 then

Response.write "<html>"
Response.write "<head>"
Response.write "<title>.:: nuova serata con immagine che supera le dimensioni massime ::.</title>"
Response.write "<link rel=""stylesheet"" href=""/style.css"" type=""text/css"">"
Response.write "</head>"
Response.write "<body bgcolor=""#000000"">"
Response.write "

"
Response.write "[b]"
Response.write ("Le dimensioni dell'immagine " & .GetFileName() &" non sono corrette (" &_
.Files("Height") &"x" & .Files("Width") &"): File non caricato in quanto supera le dimensioni di 100 x 100 pixel;
ripetere l'operazione
" )
Response.write "[b]"
Response.write "</body>"
Response.write "</html>"

nomefile1 = .GetFileName()
.UploadOnly "Images"
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/mdb-database/news.mdb"),"SELECT * FROM news"

Else
If .Files("Height")>=351 or .Files("Width")>=251 then

Response.write "<html>"
Response.write "<head>"
Response.write "<title>.:: nuova serata con immagine che supera le dimensioni massime ::.</title>"
Response.write "<link rel=""stylesheet"" href=""/style.css"" type=""text/css"">"
Response.write "</head>"
Response.write "<body bgcolor=""#000000"">"
Response.write "

"
Response.write "[b]"
Response.write ("Le dimensioni dell'immagine " & .GetFileName() &" non sono corrette (" &_
.Files("Height") &"x" & .Files("Width") &"): File non caricato in quanto supera le dimensioni di 350 x 250 pixel;
ripetere l'operazione
" )
Response.write "[b]"
Response.write "</body>"
Response.write "</html>"
%>
<head>
<meta http-equiv="refresh" content="10;URL=/modulo_gallery.asp?titolo=<%=titolo%>">
</head>
<%
else
Dim ooUpload
Set ooUpload= new cUpload
With ooUpload
'La riga seguente imposta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/mdb-database/Bacheca_Titanic.mdb"),"SELECT * FROM bacheca"
.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "files\"
.Load
.UploadOnly "Images"
If Not .EOF then
.Database.Open()
While Not .EOF
.Save
%>
<%response.Write "il file " & .GetFileName &" è stato salvato
"%>
<%'Inserimento dei valori
.Database.Fields("Titolo") = .Form("Titolo")
Titolo= Replace(Titolo, "'", "|")
.Database.Fields("Data") = .Form("Data")
Select Case lCase(.Files("InputName"))
Case "nomefile" : .Database.Fields("nomefile") = .GetFileName
Case "nomefile1" : .Database.Fields("nomefile1") = .GetFileName
End Select

.MoveNext
Wend
.Database.Addnew()
.Database.Close
end If
end with
end If
end If
end If
Else
Response.Redirect "/modulo_serate.asp"
End If

end with
%>
<html>
<head>
<meta http-equiv="refresh" content="5;URL=/modulo_gallery.asp">
</head>

**Roby_72** · 13-10-2006, 19:44

Dovresti fare un loop per scorrere le immagini nell'oggetto oUpload.

Roby

**jet** · 13-10-2006, 19:47

Se ti spiegi meglio,mi faresti un grande favore, visto che sono quasi esausto.
Ma .GetFileName() ho visto che mi stampa sempre nomefile e non nomefile1.
Because?

**jet** · 13-10-2006, 20:30

Io non so dove inserire il loop.

**Roby_72** · 13-10-2006, 20:42

Originariamente inviato da jet
Se ti spiegi meglio,mi faresti un grande favore, visto che sono quasi esausto.
Ma .GetFileName() ho visto che mi stampa sempre nomefile e non nomefile1.
Because?

Because non fai il loop, appunto. Chi gli dice di prendere il secondo?
La documentazione di Baol74 dello script riporta l'esempio del loop.

Roby

**jet** · 13-10-2006, 21:22

Dove la trovo, la documentazione di baol74?

**Roby_72** · 13-10-2006, 21:33

Non me lo ricordo... dovresti cercare in questo forum, se non sbaglio un utente ne aveva tratto spunto e pubblicato qualcosa.

Roby

Discussione: controllo dimensioni di 2 immagini

Strumenti discussione

Ricerca discussione

Visualizza

controllo dimensioni di 2 immagini

Permessi di invio