用ASP实现对MP3曲目信息的操作

先简单说一下mp3的id3 标记，因为主要是操作这个玩意mp3最开始的时候没有我们今天看到的那样，有歌手、年代，专集等等信息只有一些简单的参数如yes/no来表示是不是privated或者copyrighted等信息，这样对mp3的相关工作带来了很多不便，1996年的时候有个老外提出来在每个mp3后面追加一段数据，用以存放上述的那些信息，后来就发展成为id3 v1 据我所知的现在已经到1.1了，具体的还是自己去查一下吧还是老习惯，用metadata来引入dll，我以前有文章贴过的，不知道的请自己去查看代码<!--metadata type="typelib"uuid="00000205-0000-0010-8000-00aa006d2ea4"name="adodb type library"--><%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 & strcharnextend functiondim objstreamdim strtag, strsongname, strartist, stralbum, stryear, _strcomment, strgenre, strfile'specify the folder to iterate through, displaying all the mp3sconst folder = "c:\mp3s\"'grab the folder informationdim objfso, objfolder, objfileset objfso = server.createobject("scripting.filesystemobject")set objfolder = objfso.getfolder(folder)'create the stream objectset objstream = server.createobject("adodb.stream")objstream.type = adtypebinary'loop through the files in the folderfor each objfile in objfolder.files'open the streamobjstream.openobjstream.loadfromfile objfile.path'read the last 128 bytesobjstream.position = objstream.size - 128'read the id3 v1 tag infostrtag = convertbin(objstream.read(3))if ucase(strtag) = "tag" thenstrsongname = convertbin(objstream.read(30))strartist = convertbin(objstream.read(30))stralbum = convertbin(objstream.read(30))stryear = convertbin(objstream.read(4))strcomment = convertbin(objstream.read(30))end if'display the resultsresponse.write "<table><tr><td colspan=2><h3>" & _"id3 tag info for:</td></tr><tr>" & _"<td colspan=2>" & objfile.name & "</td></tr>"response.write "<tr><td><b>artist: </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>year: </b></td>" & _"<td>" & stryear & "</td></tr>"response.write "<tr><td><b>comment: </b>" & _"</td><td>" & strcomment & "</td></tr>"response.write "</table>"objstream.closeresponse.write "<p><hr><p>"nextset objstream = nothing 'clean up...%>自己试试吧希望能对你有所帮助www.sanchat

• 0
• 0
• 0
• 0
• 0