知识大全用ASP实现对MP3曲目信息的操作

Posted 2022-07-18 信息

篇首语：教书育人是教师的天职，既有苦，也有乐。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用ASP实现对MP3曲目信息的操作相关的知识，希望对你有一定的参考价值。

用ASP实现对MP3曲目信息的操作 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　先简单说一下MP 的ID 标记因为主要是操作这个玩意

　　MP 最开始的时候没有我们今天看到的那样有歌手年代专集等等信息

　　只有一些简单的参数如yes/no来表示是不是privated或者copyrighted等信息这样对MP 的相关工作带来了很多不便年的时候有个老外提出来在每个MP 后面追加一段数据用以存放上述的那些信息后来就发展成为id v 据我所知的现在已经到了具体的还是自己去查一下吧

　　还是老习惯用metadata来引入DLL 我以前有文章贴过的不知道的请自己去查

　　看代码〈! METADATA TYPE= typelib UUID= AA D EA NAME= ADODB Type Library 〉〈%Function ConvertBin(Binary) This function converts a binary byte into an ASCII byte for i = to LenB(Binary)strChar = chr(AscB(MidB(Binary i )))ConvertBin = ConvertBin & strCharNextEnd Functiondim objStreamdim strTag strSongName strArtist strAlbum strYear _strComment strGenre strFile Specify the folder to iterate through displaying all the MP sConst folder = C:mp s 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 bytesobjStream Position = objStream size Read the ID v tag infostrTag = ConvertBin(objStream Read( ))if ucase(strTag) = TAG thenstrSongName = ConvertBin(objStream Read( ))strArtist = ConvertBin(objStream Read( ))strAlbum = ConvertBin(objStream Read( ))strYear = ConvertBin(objStream Read( ))strComment = ConvertBin(objStream Read( ))end if Display the resultsresponse write 〈table〉〈tr〉〈td colspan= 〉〈h 〉 & _ ID Tag info for:〈/td〉〈/tr〉〈tr〉 & _ 〈td colspan= 〉 & 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 %〉自己试试吧

cha138/Article/program/net/201311/11461

知识大全 用ASP实现对MP3曲目信息的操作

知识大全用ASP实现对MP3曲目信息的操作