resize immagine con asp

[rixx]

salve ho questo script

Function ImageSize(immagine)
Dimensione = Array("","")
Formato = Right(uCase(immagine), 3)
Select Case Formato
Case "JPG"
Start = 167
max = 4
xs = 3
xe = 4
ys = 1
ye = 2
Case "PNG"
Start = 24
max = 8
xs = 3
xe = 4
ys = 7
ye = 8
Case "GIF"
Start = 10
max = 4
xs = 2
xe = 1
ys = 4
ye = 3
Case "BMP"
Start = 24
max = 8
xs = 4
xe = 3
ys = 8
ye = 7
Case "WMF"
Start = 14
max = 4
xs = 2
xe = 1
ys = 4
ye = 3
End Select

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists(immagine) Then
Set ts = fso.OpenTextFile(Server.MapPath(immagine), 1)
if Dimensione(0) > Dimensione(1) then
Dimensione(0) = HexToDec(HexAt(s,xs) & HexAt(s,xe))
Dimensione(1) = HexToDec(HexAt(s,ys) & HexAt(s,ye))
ts.Close
ImageSize = Dimensione
else
Dimensione(0) = mx
Dimensione(1) = mx
ts.Close
ImageSize = Dimensione
end if
end if
If not fso.FileExists(immagine) Then
Dimensione(0) = 20
Dimensione(1) = 20
ImageSize = Dimensione
end if
End Function

Function HexAt(s, n)
HexAt = Hex(Asc(Mid(s, n, 1)))
If Len(HexAt) = 1 Then HexAt = "0" & HexAt
End Function


Function HexToDec(cadhex)
Dim n, i, ch, decimal
decimal = 0
n = Len(cadhex)
For i=1 To n
decimal = decimal * 2
ch = Mid(cadhex, i, 1)
decimal = decimal + inStr("0123456789ABCDEFabcdef", ch) - 1
Next
HexToDec = decimal
End Function

noterete che la prima parte per fare il resize di un immagine che si trova sul server funziona, ma..
come faccio a fare il resize di un immagine non presente sul server, quindi senza usare fso?
grazie!

rixx

[Federix]

Scusa, non c'entra niente col tuo post, ma questo è uno script che effettua il resize delle immagini senza utilizzare nessun oggetto specifico???? Dove l'hai trovato??? Come funziona???

[Corinna]

Originariamente inviato da Federix
Scusa, non c'entra niente col tuo post, ma questo è uno script che effettua il resize delle immagini senza utilizzare nessun oggetto specifico???? Dove l'hai trovato??? Come funziona???

http://forum.html.it/forum/showthrea...43#post6458243

[deleted_c]

forse è uno script che calcola le dimensioni

[rixx]

si calcola le dimensioni ed effettua il resize ma solo se è sul server.....
ma come si calcolano le dimensioni di un immagine non sul server?
ovvero senza usare fso

thx

[rixx]

capirete il punto è che se
l'immagine non esiste
If not fso.FileExists(immagine) Then

non puo settare
Set ts = fso.OpenTextFile(Server.MapPath(immagine), 1)


pago da bere a chi mi spiega come fare

[rixx]

vabe a parte che poi sarebbe
capirete il punto è che se

Set ts = fso.OpenTextFile((immagine), 1)

[rixx]

o meglio, si puo calcolare la dimensione dell'immagine non sul server?
grazie

[Roby_72]

If fso.fileexists(nomeimmagine) then
'l'immagine c'è
else
'non c'è
end if

Roby

[rixx]

uhm il punto è che l'immagine non essendo presente sul server secondo lui non esiste ma se non esiste non so come calcolarne le dimensioni