<%
'' :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'' :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'' ::: 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 => ширина изображения :::
'' ::: eight => высота изображения :::
'' ::: 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)