<%
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: BMP, GIF, JPG и PNG :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: :::
'::: Эта функция получает указанное количество байтов от любого :::
'::: file, начиная с смещения (база 1) :::
'::: :::
'::: Прошедший: :::
'::: flnm => filepec из файла для чтения :::
'::: offset => offset, в котором можно начать читать :::
'::: bytes => Сколько байтов читать :::
'::: :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Функция GetBytes (FLNM, смещение, байты)
Dim objfso
Dim objftemp
Dim objtextStream
Dim lngsize
при ошибке резюме следующим
Установить objfso = createObject (scripting.filesystemobject)
'Во -первых, мы получаем размеры файлов
Установить objftemp = objfso.getfile (flnm)
lngsize = objftemp.size
установить objftemp = ничего
FSOforreading = 1
Установить objtextStream = objfso.opentextfile (flnm, fsoforreading)
Если смещение> 0, тогда
strbuff = objtextStream.read (Offset - 1)
конец, если
Если байты = -1, то получите все!
GetBytes = objtextStream.read (lngsize) 'reartall
еще
GetBytes = objtextStream.read (байты)
конец, если
objtextStream.close
Установить objtextStream = ничего
установить objfso = ничего
конечная функция
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: :::
'::: Функции для преобразования двух байтов в числовое значение (long) :::
'::::
'::: :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Функция lngConvert (strtemp)
lngconvert = clng (asc (left (strtemp, 1)) + ((ASC (справа (strtemp, 1)) * 256))))))
конечная функция
функция lngConvert2 (strtemp)
lngconvert2 = clng (asc (right (strtemp, 1)) + ((asc (left (strtemp, 1)) * 256))))))
конечная функция
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: :::
'::: Эта функция выполняет большую часть реальной работы. Это попытается :::
'::: прочитать любой файл, независимо от расширения, и Will :::
'::: Определите, является ли это графическое изображение. :::
'::: :::
'::: Прошедший: :::
'::: flnm => filepec из файла для чтения :::
'::: width => ширина изображения :::
'::: height => Высота изображения :::
'::: Devin => глубина цвета (в количестве цветов) :::
'::: strimageType => тип изображения (например, GIF, BMP и т. Д.) :::
'::: :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Функция gfxspex (flnm, ширина, высота, глубина, стримагетип)
Dim Strpng
Dim Strgif
Dim Strbmp
Dim Strtype
strtype =
StrimageType = (неизвестно)
gfxspex = false
strpng = chr (137) и chr (80) и chr (78)
strgif = GIF
strbmp = chr (66) и chr (77)
strtype = getbytes (flnm, 0, 3)
Если strtype = strgif, то ' - это GIF