Miniature con aspimage

[xtreme]

Ragazzi avrei una certa urgenza a risolvere questa cosa e spero possiate aiutarmi.
Dovrei creare delle miniature con aspimage, qualcuno che già lo usa saprebbe dirmi come fare?
Considerate che mi serve in una procedura di upload dove alla fine recupero il file binario (in questo caso l'immagine) e creo il file sul server. Nello stesso tempo devo creare la miniatura.... magari imponendo che la massima dimensione sia ad esempio 100 pixel.
Mi spiego meglio.... diciamo che qualsiasi siano le dimensioni dell'immagine, qualsiasi siano i rapporti (3:4, 4:3, 3:2, 2:3, etc...) la dimensione più grande deve essere di un massimo di 100 pixel.
Spero sia stato chiaro.... altrimenti chiedete

[xtreme]

up

[xtreme]

Ragazziiiiiiiiiii, nessuno usa Aspimage? Allora qualcuno sa suggerirmi qualche link per poter leggere qualche buon articolo?

[plasticity]

non serve! basta che aal'upload di tutto cio metti un if dicendo che l'immagine non viene uploadata se è + grande di tot dimensioni.

[xtreme]

Non ho capito scusami.... io devo scrivere qualche riga per creare una miniatura, un file uguale all'immagine uploadata, ma di dimensioni più piccole. Per questo mi serve aspimage, ma come devo fare per realizzare tutto ciò?
Non centrano niente dimensioni e if.... mi serve solo la procedura, le istruzioni da dare al componente.
Spero di essere stato chiaro.... fatemi sapere.
Ciao.

[xtreme]

up....
Ragazzi non c'è nessuno che può aiutarmi???

[xtreme]

uppppp

[cavicchiandrea]

Premesso che non utilizzo Aspimage, perche per quello che sò devi amministrare il server per poterlo installare, non è utilizzabile su spazio condiviso(Hosting). :master:
Prova a postare la pagina che deve fare il ridimensionamento delle immagini.

[xtreme]

[CODE
<%@LANGUAGE="VBSCRIPT"%>
<%server.scripttimeout = 3600 'secondi%>


<%
dim percorso,bytes,dati,doc,binario,firma,arrpezzi,pez zo,inizio,intestazione,contenuto,nomeupload,nomefi le

dim cn,rs,sql,titolo,descrizione,id_cliente,data,foto1 ,foto2,foto3,prefisso,giorno,ora

percorso = "/public/"

giorno = formatdatetime(Now(),2)
giorno = replace(giorno, "/","_")
ora = formatdatetime(Now(),3)
ora = replace(ora, ".","_")
prefisso = giorno&"_"&ora&"_"

bytes=request.TotalBytes

if bytes >0 then
dati=request.BinaryRead(bytes)

for i= 1 to lenB(dati)
binario=binario & chr(ascB(midB(dati,i,1)))
next
firma=left(binario,instr(binario,"" & vbcrlf)-1)
arrpezzi= split(binario,firma)

for pezzo = 1 to ubound(arrpezzi)-1
inizio=instr(arrpezzi(pezzo),"" & vbcrlf & "" & vbcrlf)
intestazione= left(arrpezzi(pezzo), inizio-1)
inizio = inizio + len("" & vbcrlf) + len("" & vbcrlf)
contenuto = mid(arrpezzi(pezzo),inizio, len(arrpezzi(pezzo))-inizio-1)

if instr(intestazione,"titolo") > 0 then
titolo = contenuto
end if

if instr(intestazione,"descrizione") > 0 then
descrizione = contenuto
end if

if instr(intestazione,"marca") > 0 then
marca = contenuto
end if

if instr(intestazione,"modello") > 0 then
modello = contenuto
end if

if instr(intestazione,"alimentazione") > 0 then
alimentazione = contenuto
end if

if instr(intestazione,"anno") > 0 then
anno = contenuto
end if

if instr(intestazione,"km") > 0 then
km = contenuto
end if

if instr(intestazione,"cilindrata") > 0 then
cilindrata = contenuto
end if

if instr(intestazione,"cv") > 0 then
cv = contenuto
end if

if instr(intestazione,"prezzo") > 0 then
prezzo = contenuto
end if


if instr(intestazione,"oggi") > 0 then
oggi = contenuto
data=oggi
end if

if instr(intestazione,"id_cliente") > 0 then
id_cliente = contenuto

set cn=Server.CreateObject("ADODB.Connection") '
cn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/mdb-database/salentocar.mdb") '
sql="SELECT nome FROM clienti WHERE id_cliente="& id_cliente
set rs=cn.execute(sql) '

if not rs.eof then
cliente = rs("nome")
prefisso = cliente & "_" & prefisso
end if
set rs = nothing '
cn.close '
set cn = nothing

end if



if instr(intestazione,"foto1") >0 then
i=instr(intestazione,"filename=")
j=instr(i+10,intestazione,chr(34))
nomeupload=mid(intestazione,i+10,j-i-10)
i=instrrev(nomeupload,"\")
if i<>0 then
nomefile=mid(nomeupload,i+1)
else
nomefile=nomeupload
end if

dim upload1,dimensione1,estensione1,nomefile1,textstre am,fso
if i<>0 then
set fso = CreateObject("Scripting.FileSystemObject")
upload1=true
dimensione1=len(contenuto)
estensione1=right(contenuto,3)
nomefile1=prefisso & nomefile
set textstream= fso.CreateTextFile(server.MapPath(percorso& nomefile1),true,false)
textstream.Write contenuto
textstream.Close
set textstream=nothing
set fso=nothing
end if
end if '


if instr(intestazione,"foto2") >0 then
i=instr(intestazione,"filename=")
j=instr(i+10,intestazione,chr(34))
nomeupload=mid(intestazione,i+10,j-i-10)
i=instrrev(nomeupload,"\")
if i<>0 then
nomefile=mid(nomeupload,i+1)
else
nomefile=nomeupload
end if

dim upload2,dimensione2,estensione2,nomefile2
if i<>0 then
set fso = CreateObject("Scripting.FileSystemObject")
upload2=true
dimensione2=len(contenuto)
estensione2=right(contenuto,3)
nomefile2=prefisso & nomefile
set textstream= fso.CreateTextFile(server.MapPath(percorso & nomefile2),true,false)
textstream.Write contenuto
textstream.Close
set textstream=nothing
set fso=nothing
end if
end if '



if instr(intestazione,"foto3") >0 then
i=instr(intestazione,"filename=")
j=instr(i+10,intestazione,chr(34))
nomeupload=mid(intestazione,i+10,j-i-10)
i=instrrev(nomeupload,"\")
if i<>0 then
nomefile=mid(nomeupload,i+1)
else
nomefile=nomeupload
end if

dim upload3,dimensione3,estensione3,nomefile3
if i<>0 then
set fso = CreateObject("Scripting.FileSystemObject")
upload3=true
dimensione3=len(contenuto)
estensione3=right(contenuto,3)
nomefile3=prefisso & nomefile
set textstream= fso.CreateTextFile(server.MapPath(percorso & nomefile3),true,false)
textstream.Write contenuto
textstream.Close
set textstream=nothing
set fso=nothing
end if
end if '


next


set cn=Server.CreateObject("ADODB.Connection")
cn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/mdb-database/salentocar.mdb")
sql="INSERT INTO annunci (titolo,descrizione,marca,modello,alimentazione,an no,km,cilindrata,cv,prezzo,data,id_cliente,foto1,f oto2,foto3)"
sql= sql & " VALUES ('"&titolo&"','"&descrizione&"','"&marca&"','"&mod ello&"','"&alimentazione&"','"&anno&"','"&km&"','" &cilindrata&"','"&cv&"','"&prezzo&"','"&data &"','"&id_cliente&"','"&nomefile1&"','"&nomefile2& "','"&nomefile3&"')"
'set rs= Server.CreateObject("ADODB.Recordset") ' ('"&email&"','"&password&"','"&nome&"','"&cognome& "','"&tel&"','"&citta&"','"&prov&"','"&risposta&"' )"
cn.execute(sql)

set rs = nothing
cn.close
set cn = nothing
'response.redirect ("loginform.asp?err=true")
'end if

%>
[/CODE]

A questo punto dopo aver fatto l'upload e aver "scritto" il file sul server devo creare la miniatura con aspimage che è installato sullo server di destinazione.
Ecco vorrei sapere come... ma sinceramente pensavo che fosse usato da molti più utenti di questo forum.
Evidentemente no.... non mi ha dato una risposta nessuno

Ciao cavicchiandrea vedi un po'

[cavicchiandrea]

Secondo me stai facendo un pò di confusione.
Nel tuo primo post la tua domanda era dopo aver uplodato il file volevi visualizzare la miniature massimo a 100 pixel.
Alla mia domanda posta lo script che fa il rimensionamento, tu inserisci lo scirpt che fa upload?
E poi non ho capito se l'oggeto aspimage e presente sul server?:master:
Da quello che sò in asp non è possibile rilevare i le dimensioni in pixel, ma in byte o larghezza x altezza.
Da una ricerca sul forum dell'oggetto aspimage se ne parlato prova avedere se puo eserti utile il link:
post

prova a visitre il sito che produce l'oggetto aspimage a questo link:

sito

Per concludere se il sito è su server aruba l'oggetto aspimage non è supportato.

Ciao