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

來源:互聯網
上載者:User
編程

   先簡單說一下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...
%>
自己試試吧
希望能對你有所協助



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。