asp編程執行個體:用ASP實現對MP3曲目資訊的操作

編程

   先簡單說一下MP3的ID3標記，因為主要是操作這個玩意
MP3最開始的時候沒有我們今天看到的那樣，有歌手、年代，專集等等資訊
只有一些簡單的參數如yes/no來表示是不是privated或者copyrighted等資訊，這樣對MP3的相關工作帶來了很多不便，1996年的時候有個老外提出來在每個MP3後面追加一段資料，用以存放上述的那些資訊，後來就發展成為id3v1據我所知的現在已經到1.1了，具體的還是自己去查一下吧
還是老習慣，用metadata來引入DLL，我以前有文章貼過的，不知道的請自己去查
看代碼
<!--METADATATYPE="typelib"
UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODBTypeLibrary"
-->
<%
FunctionConvertBin(Binary)
'ThisfunctionconvertsabinarybyteintoanASCIIbyte.
fori=1toLenB(Binary)
strChar=chr(AscB(MidB(Binary,i,1)))
ConvertBin=ConvertBin&strChar
Next
EndFunction
dimobjStream
dimstrTag,strSongName,strArtist,strAlbum,strYear,_
strComment,strGenre,strFile
'Specifythefoldertoiteratethrough,displayingalltheMP3s
Constfolder="C:\mp3s\"
'Grabthefolderinformation
DimobjFSO,objFolder,objFile
SetobjFSO=Server.CreateObject("Scripting.FileSYstemObject")
SetobjFolder=objFSO.GetFolder(folder)
'CreatetheStreamobject
setobjStream=Server.CreateObject("ADODB.Stream")
objStream.Type=adTypeBinary
'Loopthroughthefilesinthefolder
ForEachobjFileinobjFolder.Files
'Openthestream
objStream.Open
objStream.LoadFromFileobjFile.Path
'Readthelast128bytes
objStream.Position=objStream.size-128
'ReadtheID3v1taginfo
strTag=ConvertBin(objStream.Read(3))
ifucase(strTag)="TAG"then
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))
endif
'Displaytheresults
response.write"<table><tr><tdcolspan=2><h3>"&_
"ID3Taginfofor:</td></tr><tr>"&_
"<tdcolspan=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.Close
Response.Write"<p><hr><p>"
Next
SetobjStream=Nothing'Cleanup...
%>
自己試試吧
希望能對你有所協助