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

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

MP3最开始的时候没有我们今天看到的那样，有歌手、年代，专集等等信息
3 v2 c0 a5 D: r4 S只有一些简单的参数如yes/no来表示是不是privated或者copyrighted等信息，这样对MP3的相关工作带来了很多不便，1996年的时候有个老外提出来在每个MP3后面追加一段数据，用以存放上述的那些信息，后来就发展成为id3 v1 据我所知的现在已经到1.1了，具体的还是自己去查一下吧

还是老习惯，用metadata来引入DLL，我以前有文章贴过的，不知道的请自己去查
# n. F* {$ V: |2 a5 H  D( g( g
看代码

<!--METADATA TYPE="typelib"
! E" k% w. t) t0 l/ RUUID="00000205-0000-0010-8000-00AA006D2EA4"
4 E! T8 j- a7 DNAME="ADODB Type Library"
1 u2 ~1 y5 y2 W% H; X0 q1 l8 b-->

% y4 `6 S9 Q7 e1 M& x5 P/ [<%
# D$ |6 F9 z# R/ J: c9 w; hFunction ConvertBin(Binary)
'This function converts a binary byte into an ASCII byte.
" L; W) {7 w% _for i = 1 to LenB(Binary)
strChar = chr(AscB(MidB(Binary,i,1)))
ConvertBin = ConvertBin & strChar
& [- X. l; f+ @2 ^Next
End Function

( o- r3 I# g) A  d: [dim objStream
; a' P' d8 s+ T% ~dim strTag, strSongName, strArtist, strAlbum, strYear, _
) M4 Q3 m2 _; n+ IstrComment, strGenre, strFile

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

'Grab the folder information

Dim objFSO, objFolder, objFile
6 k. Y1 s! j# j8 ~' K0 ~, BSet objFSO = Server.CreateObject("Scripting.FileSYstemObject")
4 y, f8 q- u+ s2 f& C$ v9 \Set objFolder = objFSO.GetFolder(folder)
$ V5 A" E) J( K
/ x! q! h& _! _& j. B'Create the Stream object
2 {8 S. N" A9 w+ kset objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary
+ q% ^! X" T8 r( z
7 B. n5 J+ g0 ?& m, c3 S/ P'Loop through the files in the folder
1 u  O3 q/ ]* R( M" vFor Each objFile in objFolder.Files
'Open the stream
objStream.Open
objStream.LoadFromFile objFile.Path
6 g- x" ?: |3 a4 H
3 ?- i8 a7 m8 q. z+ Y! t, W0 k  w6 u'Read the last 128 bytes
objStream.Position = objStream.size - 128

1 I, r) s, `- w+ x& \'Read the ID3 v1 tag info
strTag = ConvertBin(objStream.Read(3))
$ P4 T/ L: c' C$ @, B2 R/ c7 gif ucase(strTag) = "TAG" then
. R" U5 d) |3 @; N6 d* Y4 J( ^! e5 ^strSongName = ConvertBin(objStream.Read(30))
; C9 W, K1 ]$ p$ L4 \. LstrArtist = ConvertBin(objStream.Read(30))
( e: P8 D7 b6 ]: SstrAlbum = ConvertBin(objStream.Read(30))
4 d! P9 h' l9 N2 f; U# @1 IstrYear = ConvertBin(objStream.Read(4))
, j" y) _" ~2 pstrComment = ConvertBin(objStream.Read(30))
end if

'Display the results
6 n5 {% [1 R) E& U: Vresponse.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>"
3 T+ h# R' r4 e3 c2 E4 E8 iresponse.write "<tr><td><b>Track: </b></td>" & _
0 \" f) o# K6 X! v: K"<td>" & strSongName & "</td></tr>"
response.write "<tr><td><b>Album: </b></td>" & _
<td>" & strAlbum & "</td></tr>"
response.write "<tr><td><b>Year: </b></td>" & _
! Y5 \) K+ ]$ a% I5 r"<td>" & strYear & "</td></tr>"
response.write "<tr><td><b>Comment: </b>" & _
# i. R: v1 a9 c2 J" ?"</td><td>" & strComment & "</td></tr>"
response.write "</table>"

objStream.Close
8 \: h( _# v( t0 V: j
Response.Write "<p><hr><p>"
3 L# i0 [* F, }, B( ZNext

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

+ w0 Z4 c5 c! [% S4 i6 l) E! z自己试试吧

9 x9 p; Q( q: m  Y  M  D希望能对你有所帮助