<%
'---------------------------------------------
'Nom de la fonction : ChkImg
'Fonction : Vérifier si le fichier image est légal
'Paramètres : img, chemin de l'image, chemin absolu relatif au répertoire racine du site Web
'Valeur de retour : type booléen, si l'image est légale, renvoie True, sinon renvoie False
'Condition : Le serveur doit supporter le composant AspJpeg,
'Si elle n'est pas prise en charge, afin d'éviter que toutes les images ne puissent être téléchargées, cette fonction renverra directement True
'http://www.downcodes.com/asp.asp
'---------------------------------------------
Fonction ChkImg(img)
On Error Resume Next 'Afin de capturer les informations sur l'erreur, le code doit continuer à s'exécuter lorsqu'une erreur se produit
Dim RetunValue, ChkJpeg
RetunValue = True
'Si le chemin est vide, l'image est considérée comme illégale
Si isnull(img) Alors ChkImg = False:Exit Function
Set ChkJpeg = Server.CreateObject("Persits.Jpeg")
If -2147221005 <> Err Then 'Si le composant est pris en charge, utilisez le composant pour vérifier la légalité de l'image
ChkJpeg.Open Server.mappath(img)
Si erreur alors
Valeur de retour = Faux
Fin si
Sinon 'Si le composant n'est pas pris en charge, ignorez et renvoyez True directement
ValeurRetour = Vrai
Fin si
'Travaux ultérieurs nécessaires
Si Err.number <> 0 Alors Err.clear
Définir ChkJpeg = Rien
ChkImg = RetunValue
Fonction de fin
%>
Remarque : étant donné qu'AspJpeg ne peut traiter que les fichiers déjà présents sur le serveur, nous devons le faire lors de l'application réelle : téléchargez d'abord l'image dans un dossier temporaire, puis vérifiez la légalité de l'image. Si elle est légale, copiez l'image. dans le répertoire de sauvegarde de l'image, supprimez le fichier temporaire et renvoyez le message de réussite du téléchargement. S'il est illégal, supprimez directement le fichier temporaire et renvoyez un avertissement d'erreur.
Étant donné que l'image est uniquement ouverte avec AspJpeg et qu'aucun traitement d'image n'est effectué, l'efficacité d'exécution de cette fonction est toujours très élevée et il n'y a fondamentalement pas lieu de s'inquiéter des problèmes d'efficacité lors de l'utilisation.