<%
’::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ¡
’::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ¡
'::: bmp, gif, jpg y png :::
’::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ¡
’::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ¡
'::: :::
'::: Esta función obtiene un número específico de bytes de cualquier :::
'::: archivo, comenzando en la compensación (base 1) :::
'::: :::
'::: Aprobado: :::
'::: flnm => filespec de archivo para leer :::
'::: offset => Offset para comenzar a leer :::
'::: bytes => cuántos bytes leer :::
'::: :::
’::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ¡
Función GetBytes (FLNM, Offset, Bytes)
Dim objfso
Dim objftemp
Dim objTextStream
Dim Lngsize
En el currículum de error siguiente
Establecer objfso = createObject (scripting.filesystemObject)
'Primero, obtenemos el tamaño de archivos
Establecer objftemp = objfso.getfile (flnm)
lngsize = objftemp.size
establecer objftemp = nada
fSoforreading = 1
Establecer objTextStream = objfso.opentextfile (flnm, fSoforreading)
Si compensan> 0 entonces
strbuff = objTextStream.read (Offset - 1)
final si
Si bytes = -1, entonces '¡Obtenga todo!
GetBytes = objTextStream.read (lngsize) 'Readall
demás
GetBytes = objTextStream.read (bytes)
final si
objTextStream.close
establecer objTextStream = nada
establecer objfso = nada
función final
’::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ¡
'::: :::
'::: Funciones para convertir dos bytes a un valor numérico (largo) :::
'::: (tanto little-endian y big-endian) :::
'::: :::
’::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ¡
función lngconvert (strtemp)
lngconvert = clng (ASC (izquierda (strtemp, 1)) + ((asc (derecha (strtemp, 1)) * 256)))
función final
función lngconvert2 (strtemp)
lngconvert2 = clng (asc (derecha (strtemp, 1)) + ((asc (izquierda (strtemp, 1)) * 256)))
función final
’::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ¡
'::: :::
'::: Esta función hace la mayor parte del trabajo real. Intentará :::
'::: para leer cualquier archivo, independientemente de la extensión, y Will :::
'::: Identifique si es una imagen gráfica. :::
'::: :::
'::: Aprobado: :::
'::: flnm => filespec de archivo para leer :::
'::: ancho => ancho de imagen :::
'::: altura => Altura de la imagen :::
'::: profundidad => profundidad de color (en número de colores) :::
'::: strimageType => Tipo de imagen (por ejemplo, GIF, BMP, etc.) :::
'::: :::
’::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ¡
función GFXSPEX (flnm, ancho, altura, profundidad, strimageType)
Dim strpng
Dim strgif
Dim strbmp
Dim strtype
strtype =
strimageType = (desconocido)
gfxspex = falso
strpng = chr (137) y chr (80) y chr (78)
strgif = gif
strbmp = chr (66) y chr (77)
strtype = getBytes (flnm, 0, 3)
Si strtype = strgif entonces 'es gif