Поздравляю с 11 марта и вот тебе подарок.
это, конечно, не супер рулез код, но работает (ok, 8 мес. назад работал :)
a_sJpegName : Имя филе
a_lWidth : ширина, по ByRef
a_lHeight : высота, опять по ByRef

Function getSize(a_sJpegName , _
ByRef a_lWidth , _
ByRef a_lHeight )

Dim l_bByte
Dim i
Dim k, n

Dim l_bHeight1 , l_bHeight2
Dim l_bWidth1 , l_bWidth2

' on error resume next

' return value
getSize = "True"

' open file
' Open a_sJpegName For Binary Access Read As #1

Dim l_oFSO, l_oFile
set l_oFSO = Server.CreateObject("Scripting.FileSystemObject")

Set l_oFile = l_oFSO.OpenTextFile(a_sJpegName, 1, True)


While Not l_oFile.AtEndOfStream
l_bByte = l_oFile.read(1)

i = Asc(l_bByte)

' find FF C0 part of header
If i = 255 Then

' Get 1, , l_bByte
l_bByte = l_oFile.read(1)

' -----------------------------------------------------
' | FFC0 | seg len | bits/sample | height | width |
' -----------------------------------------------------
'Bytes 2 2 1 2 2
If CStr(Hex(Asc(l_bByte))) = "C0" Then
' skip 3 bytes

For n = 1 To 3
'Get 1, , l_bByte
l_bByte = l_oFile.read(1)
Next

'next 2 is height
l_bHeight1 = l_oFile.read(1)
l_bHeight2 = l_oFile.read(1)
'Get 1, , l_bHeight1
'Get 1, , l_bHeight2

' next 2 is width
l_bWidth1 = l_oFile.read(1)
l_bWidth2 = l_oFile.read(1)
'Get 1, , l_bWidth1
'Get 1, , l_bWidth2
End If
End If
Wend

' to transfer:
a_lHeight = CLng(Asc(l_bHeight1) * 256 + Asc(l_bHeight2))
a_lWidth = CLng(Asc(l_bWidth1) * 256 + Asc(l_bWidth2))

l_oFile.close

If Err.Number <> 0 Then
getSize = "False"
End If

End Function