Lassen Sie mich zunächst kurz auf das ID3-Tag von MP3 eingehen, da es hauptsächlich zur Bedienung dieses Dings verwendet wird.
Zu Beginn verfügte MP3 nicht über Informationen zu Sängern, Jahren, Alben usw., wie wir es heute sehen.
Es gibt nur einige einfache Parameter wie Ja/Nein, um anzugeben, ob es privat oder urheberrechtlich geschützt ist. Dies hat zu großen Unannehmlichkeiten bei MP3-bezogenen Arbeiten geführt. 1996 schlug ein Ausländer vor, nach jeder MP3 ein Datenelement anzuhängen Um die oben genannten Informationen zu speichern, wurde es später zu id3 v1 entwickelt. Soweit ich weiß, ist es jetzt besser, es selbst auszuprobieren.
Es ist immer noch eine alte Gewohnheit, Metadaten zur Einführung von DLLs zu verwenden. Wenn Sie es nicht wissen, überprüfen Sie es bitte selbst.
Schauen Sie sich den Code an
<!--METADATA TYPE=typelib
UUID=00000205-0000-0010-8000-00AA006D2EA4
NAME=ADODB-Typbibliothek
->
<%
Funktion ConvertBin(Binär)
'Diese Funktion wandelt ein Binärbyte in ein ASCII-Byte um.
für i = 1 bis LenB(Binär)
strChar = chr(AscB(MidB(Binary,i,1)))
ConvertBin = ConvertBin & strChar
Nächste
Funktion beenden
dimobjStream
dim strTag, strSongName, strArtist, strAlbum, strYear, _
strComment, strGenre, strFile
„Geben Sie den Ordner an, der durchlaufen werden soll, und zeigen Sie alle MP3s an.“
Const-Ordner = C:/mp3s/
„Besorgen Sie sich die Ordnerinformationen.“
Dimmen Sie objFSO, objFolder, objFile
Setze objFSO = Server.CreateObject(Scripting.FileSYstemObject)
Setze objFolder = objFSO.GetFolder(folder)
'Erstellen Sie das Stream-Objekt
set objStream = Server.CreateObject(ADODB.Stream)
objStream.Type = adTypeBinary
'Durchlaufen Sie die Dateien im Ordner
Für jede objFile in objFolder.Files
„Öffne den Stream.“
objStream.Open
objStream.LoadFromFile objFile.Path
'Lesen Sie die letzten 128 Bytes
objStream.Position =objStream.size - 128
„Lesen Sie die ID3 v1-Tag-Informationen.“
strTag = ConvertBin(objStream.Read(3))
wenn ucase(strTag) = TAG dann
strSongName = ConvertBin(objStream.Read(30))
strArtist = ConvertBin(objStream.Read(30))
strAlbum = ConvertBin(objStream.Read(30))
strYear = ConvertBin(objStream.Read(4))
strComment = ConvertBin(objStream.Read(30))
Ende wenn
„Zeigen Sie die Ergebnisse an.“
Response.write <table><tr><td colspan=2><h3> & _
ID3-Tag-Informationen für:</td></tr><tr> & _
<td colspan=2> & objFile.Name & </td></tr>
Response.write <tr><td><b>Künstler: </b></td> & _
<td> & strArtist & </td></tr>
Response.write <tr><td><b>Track: </b></td> & _
<td> & strSongName& </td></tr>
Response.write <tr><td><b>Album: </b></td> & _
<td> & strAlbum & </td></tr>
Response.write <tr><td><b>Jahr: </b></td> & _
<td> & strJahr & </td></tr>
Response.write <tr><td><b>Kommentar: </b> & _
</td><td> & strComment & </td></tr>
Antwort.write </table>
objStream.Close
Response.Write <p><hr><p>
Nächste
Set objStream = Nothing'Clean up...
%>
Probieren Sie es selbst aus