<%
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: BMP, GIF, JPG 및 PNG :::
'::: 원본 : Junyd ::::::::::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: :::
'::: 이것은 bmp, gif, jpg 및 png pictures에서 바이트를 얻을 수 있습니다 :::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
함수 getBytes (flnm, 오프셋, 바이트)
Dim objfso
희미한 objftemp
희미한 objtextstream
희미한 lngsize
다음에 오류가 재개됩니다
set objfso = createobject (scripting.filesystemobject)
'먼저 파일 크기를 얻습니다
set objftemp = objfso.getfile (flnm)
lngsize = objftemp.size
objftemp = 아무것도 설정하지 않습니다
fsoforreading = 1
set objtextstream = objfso.opentextfile (flnm, fsoforreading)
오프셋> 0이면
strbuff = objtextstream.read (오프셋 -1)
끝 If
바이트 = -1이면 '모두를 얻으십시오!
getbytes = objtextstream.read (lngsize) 'Readall
또 다른
getbytes = objtextstream.read (바이트)
끝 If
objtextstream.close
objtextstream = 아무것도 설정하지 않습니다
OBJFSO = 아무것도 설정하지 않습니다
엔드 기능
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: :::
':: : 다음은 두 바이트를 통합 값으로 변환하는 기능입니다 :::
'::: (Small Endian and Big Endian) :::
'::: :::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
함수 lngconvert (strtemp)
lngconvert = clng (asc (왼쪽 (strtemp, 1)) + ((asc (right (right (strtemp, 1)) * 256)))
엔드 기능
함수 lngconvert2 (strtemp)
lngconvert2 = clng (asc (오른쪽 (strtemp, 1)) + ((ASC (왼쪽 (strtemp, 1)) * 256)))
엔드 기능
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: :::
':::이 기능은 대부분의 실제 작업을 수행합니다. 기꺼이 시도하고 있습니다 :::
'::: 모든 파일 읽기 :::
'::: 그래프의 이미지 인 경우 식별하십시오. :::
'::: :::
'::: 패스 : :::
'::: flnm => 파일의 filespec :::
'::: 너비 => 이미지의 너비 :::
'::: 높이 => 이미지의 높이 :::
'::: 깊이 => 색상 깊이 (색상 수) :::
'::: strimageType => 이미지 유형 (예 : GIF, BMP 등) :::
'::: :::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
기능 gfxspex (flnm, 너비, 높이, 깊이, strimageType)
희미한 strpng
희미한 strgif
희미한 strbmp
희미한 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입니다
strimageType = gif
너비 = lngconvert (getbytes (flnm, 7, 2))
높이 = lngconvert (getbytes (flnm, 9, 2))
깊이 = 2 ^ (ASC (getBytes (flnm, 11, 1)) 및 7) + 1)
gfxspex = true
elseif left (strtype, 2) = strbmp 그런 다음 '은 BMP입니다
strimagetype = bmp