<p>利用FSO取得BMP，JPG，PNG，GIF文件信息...<br />
<%<br />
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::<br />
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::<br />
'::: BMP, GIF, JPG and PNG :::<br />
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::<br />
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::<br />
'::: :::<br />
'::: This function gets a specified number of bytes from any :::<br />
'::: file, starting at the offset (base 1) :::<br />
'::: :::<br />
'::: Passed: :::<br />
'::: flnm => Filespec of file to read :::<br />
'::: offset => Offset at which to start reading :::<br />
'::: bytes => How many bytes to read :::<br />
'::: :::<br />
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::<br />
function GetBytes(flnm, offset, bytes)<br />
Dim objFSO<br />
Dim objFTemp<br />
Dim objTextStream<br />
Dim lngSize<br />
on error resume next<br />
Set objFSO = CreateObject("Scripting.FileSystemObject")<br />
<br />
' First, we get the filesize<br />
Set objFTemp = objFSO.GetFile(flnm)<br />
lngSize = objFTemp.Size<br />
set objFTemp = nothing<br />
fsoForReading = 1<br />
Set objTextStream = objFSO.OpenTextFile(flnm, fsoForReading)<br />
if offset > 0 then<br />
strBuff = objTextStream.Read(offset - 1)<br />
end if<br />
if bytes = -1 then ' Get All!<br />
GetBytes = objTextStream.Read(lngSize) 'ReadAll<br />
else<br />
GetBytes = objTextStream.Read(bytes)<br />
end if<br />
objTextStream.Close<br />
set objTextStream = nothing<br />
set objFSO = nothing<br />
end function</p>