Izinkan saya berbicara secara singkat tentang tag ID3 MP3 terlebih dahulu, karena tag ini terutama digunakan untuk mengoperasikan benda ini.
Pada awalnya MP3 tidak memiliki informasi tentang penyanyi, tahun, album, dll seperti yang kita lihat sekarang.
Hanya ada beberapa parameter sederhana seperti ya/tidak untuk menunjukkan apakah itu pribadi atau berhak cipta, dll. Hal ini membawa banyak ketidaknyamanan pada karya terkait MP3. Pada tahun 1996, orang asing mengusulkan untuk menambahkan sepotong data setelah setiap MP3 , menggunakan Untuk menyimpan informasi di atas, kemudian berkembang menjadi id3 v1. Sejauh yang saya tahu, sekarang sudah mencapai 1.1.
Menggunakan metadata untuk memperkenalkan DLL masih merupakan kebiasaan lama. Saya telah mempostingnya sebelumnya.
Lihatlah kodenya
<!--METADATA TYPE=typelib
UUID=00000205-0000-0010-8000-00AA006D2EA4
NAME=Perpustakaan Tipe ADODB
-->
<%
Fungsi ConvertBin(Biner)
'Fungsi ini mengubah byte biner menjadi byte ASCII.
untuk i = 1 hingga LenB(Biner)
strChar = chr(AscB(MidB(Biner,i,1)))
ConvertBin = KonversiBin & strChar
Berikutnya
Fungsi Akhir
dimobjStream
redupkan strTag, strSongName, strArtist, strAlbum, strYear, _
strKomentar, strGenre, strFile
'Tentukan folder yang akan dilalui, menampilkan semua MP3
Folder konstan = C:/mp3s/
'Ambil informasi folder
Redupkan objFSO, objFolder, objFile
Setel objFSO = Server.CreateObject(Scripting.FileSYstemObject)
Setel objFolder = objFSO.GetFolder(folder)
'Buat objek Stream
setel objStream = Server.CreateObject(ADODB.Stream)
objStream.Type = adTypeBinary
'Ulangi file-file di folder
Untuk Setiap objFile di objFolder.Files
'Buka alirannya
objStream.Buka
objStream.LoadFromFile objFile.Jalur
'Baca 128 byte terakhir
objStream.Posisi =objStream.ukuran - 128
'Baca info tag ID3 v1
strTag = ConvertBin(objStream.Baca(3))
jika ucase(strTag) = TAG maka
strSongName = ConvertBin(objStream.Baca(30))
strArtist = ConvertBin(objStream.Baca(30))
strAlbum = ConvertBin(objStream.Baca(30))
strTahun = ConvertBin(objStream.Baca(4))
strComment = ConvertBin(objStream.Baca(30))
berakhir jika
'Tampilkan hasilnya
respon.tulis <tabel><tr><td colspan=2><h3> & _
Info Tag ID3 untuk:</td></tr><tr> & _
<td colspan=2> & objFile.Nama & </td></tr>
respon.tulis <tr><td><b>Artis: </b></td> & _
<td> & strArtis & </td></tr>
respon.tulis <tr><td><b>Lacak: </b></td> & _
<td> & strNamaLagu& </td></tr>
respon.tulis <tr><td><b>Album: </b></td> & _
<td> & strAlbum & </td></tr>
respon.tulis <tr><td><b>Tahun: </b></td> & _
<td> & strTahun & </td></tr>
respon.tulis <tr><td><b>Komentar: </b> & _
</td><td> & strKomentar & </td></tr>
respon.tulis </tabel>
objStream.Tutup
Respon.Tulis <p><hr><p>
Berikutnya
Setel objStream = Tidak Ada'Bersihkan...
%>
Cobalah sendiri