<%
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: BMP, GIF, JPG 및 PNG :::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: :::
':::이 함수는 다음 :::에서 지정된 바이트 수를 가져옵니다.
'::: 파일, 오프셋에서 시작하여 (기본 1) :::
'::: :::
'::: 패스 : :::
'::: flnm => 파일의 filespec :::
'::: Offset => 읽기 시작할 오프셋 :::
':: bytes => 읽을 바이트 수 :::
'::: :::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
함수 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 = 아무것도 설정하지 않습니다
엔드 기능
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: :::
'::: 함수 두 바이트를 숫자 값으로 변환합니다 (long) :::
':: (Little-Endian과 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입니다