Permettez-moi d'abord de parler brièvement de la balise ID3 du MP3, car elle est principalement utilisée pour faire fonctionner cette chose.
Au début, le MP3 ne contenait pas d'informations sur les chanteurs, les années, les albums, etc. comme nous le voyons aujourd'hui.
Il n'y a que quelques paramètres simples comme oui/non pour indiquer s'il est privé ou protégé par le droit d'auteur, etc. Cela a apporté beaucoup d'inconvénients aux œuvres liées au MP3. En 1996, un étranger a proposé d'ajouter une donnée après chaque MP3. , en utilisant Pour stocker les informations ci-dessus, il s'est ensuite développé en id3 v1. Pour autant que je sache, il a atteint la version 1.1 maintenant, je ferais mieux de le vérifier moi-même.
C'est encore une vieille habitude d'utiliser des métadonnées pour introduire des DLL. J'en ai déjà parlé. Si vous ne le savez pas, veuillez le vérifier vous-même.
Regarde le code
<!--METADATA TYPE=typelib
UUID=00000205-0000-0010-8000-00AA006D2EA4
NOM=Bibliothèque de types ADODB
-->
<%
Fonction ConvertBin (binaire)
'Cette fonction convertit un octet binaire en octet ASCII.
pour i = 1 à LenB (binaire)
strChar = chr(AscB(MidB(Binaire,i,1)))
ConvertBin = ConvertBin & strChar
Suivant
Fonction de fin
dimobjStream
dim strTag, strSongName, strArtist, strAlbum, strYear, _
strComment, strGenre, strFile
'Spécifiez le dossier à parcourir, affichant tous les MP3
Dossier Const = C:/mp3s/
'Récupérez les informations du dossier
Dim objFSO, objFolder, objFile
Définir objFSO = Server.CreateObject (Scripting.FileSYstemObject)
Définir objFolder = objFSO.GetFolder (dossier)
'Créer l'objet Stream
définir objStream = Server.CreateObject (ADODB.Stream)
objStream.Type = adTypeBinary
'Parcourir les fichiers du dossier
Pour chaque objFile dans objFolder.Files
'Ouvrez le flux
objStream.Open
objStream.LoadFromFile objFile.Path
'Lire les 128 derniers octets
objStream.Position =objStream.size - 128
'Lire les informations sur la balise ID3 v1
strTag = ConvertBin(objStream.Read(3))
si ucase(strTag) = TAG alors
strSongName = ConvertBin(objStream.Read(30))
strArtist = ConvertBin(objStream.Read(30))
strAlbum = ConvertBin(objStream.Read(30))
strAnnée = ConvertBin(objStream.Read(4))
strComment = ConvertBin(objStream.Read(30))
finir si
'Afficher les résultats
réponse.write <table><tr><td colspan=2><h3> & _
Informations sur la balise ID3 pour :</td></tr><tr> & _
<td colspan=2> & objFile.Name & </td></tr>
réponse.write <tr><td><b>Artiste : </b></td> & _
<td> & strArtiste & </td></tr>
réponse.write <tr><td><b>Suivi : </b></td> & _
<td> & strNomChanson& </td></tr>
réponse.write <tr><td><b>Album : </b></td> & _
<td> & strAlbum & </td></tr>
réponse.write <tr><td><b>Année : </b></td> & _
<td> & strAnnée & </td></tr>
réponse.write <tr><td><b>Commentaire : </b> & _
</td><td> & strComment & </td></tr>
réponse.write </table>
objStream.Fermer
Réponse.Écrire <p><hr><p>
Suivant
Définir objStream = Nothing'Clean up...
%>
Essayez-le vous-même