用FSO获得图片文件的信息(大小，宽，高)

<% 
''::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
''::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
''::: BMP, GIF, JPG and PNG ::: 
''::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
''::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
''::: ::: 
''::: 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 
''::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
''::: ::: 
''::: Functions to convert two bytes to a numeric value (long) ::: 
''::: (both little-endian and big-endian) ::: 
''::: ::: 
''::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
function lngConvert(strTemp) 
lngConvert = clng(asc(left(strTemp, 1)) + ((asc(right(strTemp, 1)) * 256))) 
end function 
function lngConvert2(strTemp) 
lngConvert2 = clng(asc(right(strTemp, 1)) + ((asc(left(strTemp, 1)) * 256))) 
end function

''::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
''::: ::: 
''::: This function does most of the real work. It will attempt ::: 
''::: to read any file, regardless of the extension, and will ::: 
''::: identify if it is a graphical image. ::: 
''::: ::: 
''::: Passed: ::: 
''::: flnm => Filespec of file to read ::: 
''::: width => width of image ::: 
''::: height => height of image ::: 
''::: depth => color depth (in number of colors) ::: 
''::: strImageType=> type of image (e.g. GIF, BMP, etc.) ::: 
''::: ::: 
''::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
function gfxSpex(flnm, width, height, depth, strImageType) 
dim strPNG 
dim strGIF 
dim strBMP 
dim strType 
strType = "" 
strImageType = "(unknown)" 
gfxSpex = False 
strPNG = chr(137) & chr(80) & chr(78) 
strGIF = "GIF" 
strBMP = chr(66) & chr(77) 
strType = GetBytes(flnm, 0, 3) 
if strType = strGIF then '' is GIF 
strImageType = "GIF" 
Width = lngConvert(GetBytes(flnm, 7, 2)) 
Height = lngConvert(GetBytes(flnm, 9, 2)) 
Depth = 2 ^ ((asc(GetBytes(flnm, 11, 1)) and 7) + 1) 
gfxSpex = True 
elseif left(strType, 2) = strBMP then '' is BMP 
strImageType = "BMP" 
Width = lngConvert(GetBytes(flnm, 19, 2)) 
Height = lngConvert(GetBytes(flnm, 23, 2)) 
Depth = 2 ^ (asc(GetBytes(flnm, 29, 1))) 
gfxSpex = True 
elseif strType = strPNG then '' Is PNG 
strImageType = "PNG" 
Width = lngConvert2(GetBytes(flnm, 19, 2)) 
Height = lngConvert2(GetBytes(flnm, 23,1))