<%
':::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::
':::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::
'::: BMP,GIF,JPG和PNG ::::
':::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::
':::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::
'::::::::
':::此功能从任何:::获取指定数量的字节
'::: file,从偏移开始(基数1)::::
'::::::::
':::通过::::
'::: flnm => filespec to read ::::
'::: offset =>偏移开始阅读::::
'::: bytes =>读多少个字节读::::
'::::::::
':::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::
函数getBytes(flnm,偏移,字节)
昏暗的objfso
昏暗的objftemp
昏暗的objTextStream
昏暗的lngsize
下一个错误简历
设置objfso = createObject(scripting.filesystemobject)
'首先,我们得到文件大小
设置objftemp = objfso.getfile(flnm)
lngsize = objftemp.size
设置objftemp =没有
fsoforreading = 1
设置objtextStream = objfso.opentextfile(flnm,fsoforreding)
如果偏移> 0,则
strbuff = objtextstream.read(offset -1)
如果结束
如果字节= -1,请全部获取!
getBytes = objtextstream.read(lngsize)'readall
别的
getBytes = objtextstream.read(bytes)
如果结束
objTextStream.Close
设置objTextStream =没有
设置objfso =没有
结束功能
':::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::
'::::::::
':::函数将两个字节转换为数字值(long)::::::
':::( Little-Endian和Big-Endian):::::
'::::::::
':::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::
功能lngconvert(strtemp)
lngconvert = clng(asc(left(strtemp,1))) +((ASC(右(strtemp,1)) * 256))))))))
结束功能
函数lngconvert2(strtemp)
lngconvert2 = clng(asc(右(strtemp,1))) +((asc(左(strtemp,1)) * 256))))))))
结束功能
':::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::
'::::::::
':::此功能可以完成大部分实际工作。它将尝试:::
':::读取任何文件,无论扩展如何,will :::::
':::确定它是否是图形图像。 :::
'::::::::
':::通过::::
'::: flnm => filespec to read ::::
'::: width =>图像的宽度::::
':::高度=>图像高度::::
'::: depth =>颜色深度(颜色数量):::
'::: strimagetype =>图像类型(例如GIF,BMP等)::::::
'::::::::
':::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::
功能GFXSPEX(FLNM,宽度,高度,深度,刻板型)
昏暗的strpng
昏暗的strgif
DIM STRBMP
昏暗的strype
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