... ecco quello che fa al caso nostro:

http://www.4guysfromrolla.com/webtech/050300-1.shtml

ciauz!!!

provato e funziona.
ci sono alcune correzioni da fare se nelle tue pagine usi
<% option explicit %>
(solo alcune variabili non "dichiarate" col Dim)
altrimenti funziona da subito (e funziona pure bene).

---

Modificato da Lupo il 12 novembre 2002 19.00 -

Sotto parte del codice ma come faccio a sapere solo la dimensione dell'immagine come la faccio a richiamare la funzione?


Ciao?



':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: :::
'::: This function gets a specified number of bytes from any :::
'::: file, starting at the offset (base 1) :::
'::: :::
'::: Passed: :::
'::: flnm => Filespec of file to read :::
'::: offset => Offset at which to start reading :::
'::: bytes => How many bytes to read :::
'::: :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
function GetBytes(flnm, offset, bytes)

Dim objFSO
Dim objFTemp
Dim objTextStream
Dim lngSize

on error resume next

Set objFSO = CreateObject("Scripting.FileSystemObject")

' First, we get the filesize
Set objFTemp = objFSO.GetFile(flnm)
lngSize = objFTemp.Size
set objFTemp = nothing

fsoForReading = 1
Set objTextStream = objFSO.OpenTextFile(flnm, fsoForReading)

if offset > 0 then
strBuff = objTextStream.Read(offset - 1)
end if

if bytes = -1 then ' Get All!

GetBytes = objTextStream.Read(lngSize) 'ReadAll

else

GetBytes = objTextStream.Read(bytes)

end if

objTextStream.Close
set objTextStream = nothing
set objFSO = nothing

end function

io ho la necessita di sapere la dimensione (larghezza e altezza) dell'immagine cosi che poi mi apre un pop-up tramite una funzione a dimensione immagine.

C'e il modo quindi dato una immagine di sapere la sua larghezza e altezza?

Ciao