<%
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: bmp, gif, jpg et png :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: :::
'::: Cette fonction obtient un nombre spécifié d'octets de n'importe quel :::
'::: fichier, en commençant par le décalage (base 1) :::
'::: :::
'::: Passé: :::
'::: flnm => filestep de fichier à lire :::
'::: Offset => Offset auquel commencer à lire :::
'::: octets => combien d'octets à lire :::
'::: :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Fonction GetBytes (FLNM, Offset, octets)
Faible objfso
Faible objftemp
Dim objtextstream
LngSize faible
sur l'erreur reprendre ensuite
Set objfso = createObject (scripting.fileSystemObject)
'Premièrement, nous obtenons la taille des fichiers
Set Objftemp = objfso.getFile (FLNM)
lngSize = objfemp.size
définir objfemple = rien
fsoforreading = 1
Set objTextStream = objfso.OpenTExtFile (flnm, fsoforreading)
Si le décalage> 0 alors
strbuff = objTextStream.read (Offset - 1)
terminer si
Si octets = -1, alors «Obtenez tout!
GetBytes = objTextStream.Read (lngSize) 'readall
autre
GetBytes = objTextStream.read (octets)
terminer si
objTextStream.close
définir objTextStream = rien
définir objfso = rien
fonction finale
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: :::
'::: Fonctions pour convertir deux octets en une valeur numérique (long) :::
'::: (à la fois petit-endian et big-endian) :::
'::: :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
fonction lngConvert (strTemp)
lngConvert = Clng (ASC (gauche (strTEmp, 1)) + ((asc (droit (strTEmp, 1)) * 256)))
fonction finale
fonction lngConvert2 (strTemp)
lngConvert2 = clng (asc (droite (strTEmp, 1)) + ((asc (gauche (strTEmp, 1)) * 256))))
fonction finale
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: :::
'::: Cette fonction fait la majeure partie du vrai travail. Il essaiera :::
'::: pour lire n'importe quel fichier, quelle que soit l'extension, et Will :::
'::: Identifiez s'il s'agit d'une image graphique. :::
'::: :::
'::: Passé: :::
'::: flnm => filestep de fichier à lire :::
'::: largeur => largeur d'image :::
'::: hauteur => hauteur de l'image :::
'::: profondeur => profondeur de couleur (en nombre de couleurs) :::
'::: StrimageType => Type d'image (par exemple GIF, BMP, etc.) :::
'::: :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
fonction gfxSpex (flnm, largeur, hauteur, profondeur, strimageype)
sombre strpng
Dim Strgif
Strbmp dim
massacre
strType =
strimagetype = (inconnu)
gfxSpex = false
Strpng = Chr (137) & Chr (80) & Chr (78)
strgif = gif
strbmp = chr (66) & chr (77)
strType = Getbytes (flnm, 0, 3)
Si strType = strgif alors 'est gif