Use ASP to implement operation of MP3 track information

Let’s briefly talk about the ID3 tag of MP3, because it is mainly used to operate this thing

MP3 was not as we saw today at the beginning, including singers, eras, collections and other information.
There are only some simple parameters such as yes/no to indicate whether it is private or copyrighted, which has caused a lot of inconvenience to the related work of MP3. In 1996, a foreigner proposed to add a piece of data behind each MP3 to store the above information. Later, it developed into id3 v1. As far as I know, it has reached 1.1. For details, it should be checked by yourself.

It's still the old habit of using metadata to introduce DLLs. I have posted articles before. If you don't know, please check it yourself.

Look at the code



<%
Function ConvertBin(Binary)
'This function converts a binary byte into an ASCII byte.
for i = 1 to LenB(Binary)
strChar = chr(AscB(MidB(Binary,i,1)))
ConvertBin = ConvertBin & strChar
Next
End Function

dim objStream
dim strTag, strSongName, strArtist, strAlbum, strYear, _
strComment, strGenre, strFile

'Specify the folder to iterate through, displaying all the MP3s
Const folder = "C:\mp3s\"

'Grab the folder information

Dim objFSO, objFolder, objFile
Set objFSO = ("")
Set objFolder = (folder)

'Create the Stream object
set objStream = ("")
= adTypeBinary

'Loop through the files in the folder
For Each objFile in
'Open the stream

'Read the last 128 bytes
= - 128

'Read the ID3 v1 tag info
strTag = ConvertBin((3))
if ucase(strTag) = "TAG" then
strSongName = ConvertBin((30))
strArtist = ConvertBin((30))
strAlbum = ConvertBin((30))
strYear = ConvertBin((4))
strComment = ConvertBin((30))
end if

'Display the results
"<table><tr><td colspan=2><h3>" & _
"ID3 Tag info for:</td></tr><tr>" & _
"<td colspan=2>" & & "</td></tr>"
"<tr><td><b>Artist: </b></td>" & _
"<td>" & strArtist & "</td></tr>"
"<tr><td><b>Track: </b></td>" & _
"<td>" & strSongName & "</td></tr>"
"<tr><td><b>Album: </b></td>" & _
<td>" & strAlbum & "</td></tr>"
"<tr><td><b>Year: </b></td>" & _
"<td>" & strYear & "</td></tr>"
"<tr><td><b>Comment: </b>" & _
"</td><td>" & strComment & "</td></tr>"
"</table>"

"<p><hr><p>"
Next

Set objStream = Nothing 'Clean up...
%>

Try it yourself

Hope it helps you