<%
'':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'' ::: bmp, gif, jpg et png :::
'':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'' ::: :::
'' ::: Cette fonction obtient un nombre spécifié d'octets de n'importe quel :::
'' ::: fichier, à partir du décalage (base 1) :::
'' ::: :::
''::: Passé: :::
'' ::: flnm => filestep de fichier à lire :::
'' ::: Offset => Offset pour 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)