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

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

MP3最开始的时候没有我们今天看到的那样，有歌手、年代，专集等等信息
9 ?* l  L8 @" M% A  O, H. h只有一些简单的参数如yes/no来表示是不是privated或者copyrighted等信息，这样对MP3的相关工作带来了很多不便，1996年的时候有个老外提出来在每个MP3后面追加一段数据，用以存放上述的那些信息，后来就发展成为id3 v1 据我所知的现在已经到1.1了，具体的还是自己去查一下吧
- j, `* o/ d# ]" j* H
! G: x! \! W: A; S. ^8 l还是老习惯，用metadata来引入DLL，我以前有文章贴过的，不知道的请自己去查
/ \+ X$ f* p! d; D
) D" C) N  P- B+ I看代码

/ N5 P: c8 k" ?( O2 E, n<!--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.
0 a1 b/ s. b. V) K6 N1 P3 U: {' }for i = 1 to LenB(Binary)
' }7 F# y# ]# v6 astrChar = chr(AscB(MidB(Binary,i,1)))
, n3 X0 ]+ E' BConvertBin = ConvertBin & strChar
Next
! i( a5 p  z. N8 MEnd Function

0 T% {# j& D8 `1 Z8 Ldim objStream
  e9 m. ^2 n1 k6 d( C9 V4 Y' Zdim strTag, strSongName, strArtist, strAlbum, strYear, _
strComment, strGenre, strFile
; A1 u+ b6 T/ ]
'Specify the folder to iterate through, displaying all the MP3s
Const folder = "C:\mp3s\"
7 D  J! A5 [, |( b
9 W1 f& C, D6 B0 p'Grab the folder information
3 R. g9 T- Z* U1 n. z1 Y
6 R  e% g. Z; y) {  b' W% [3 TDim objFSO, objFolder, objFile
Set objFSO = Server.CreateObject("Scripting.FileSYstemObject")
+ c, N" e/ x6 L6 bSet objFolder = objFSO.GetFolder(folder)

'Create the Stream object
/ \5 \  e+ _# F# ^2 {7 A# h3 xset objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary

'Loop through the files in the folder
, M8 F6 G# k" u+ j" kFor Each objFile in objFolder.Files
'Open the stream
objStream.Open
objStream.LoadFromFile objFile.Path
9 R, w: c, T2 G! F6 \
* x# {3 g% M- l: \'Read the last 128 bytes
( Y0 \; i% Y' h9 T3 }( n9 ~3 _6 AobjStream.Position = objStream.size - 128
' t5 z/ p) s& o: X/ m7 X+ s; n" k
5 `1 @  q9 l6 y'Read the ID3 v1 tag info
strTag = ConvertBin(objStream.Read(3))
0 b' ]. @' F  @" V; Nif ucase(strTag) = "TAG" then
+ G# G) ~$ G1 T% g- @6 PstrSongName = ConvertBin(objStream.Read(30))
3 X9 l! B# l6 p8 s8 S4 \strArtist = ConvertBin(objStream.Read(30))
strAlbum = ConvertBin(objStream.Read(30))
+ e7 x0 {, W+ wstrYear = ConvertBin(objStream.Read(4))
strComment = ConvertBin(objStream.Read(30))
end if

5 {# k7 ]# t$ e'Display the results
7 T3 g1 F* R3 O; Cresponse.write "<table><tr><td colspan=2><h3>" & _
"ID3 Tag info for:</td></tr><tr>" & _
& m2 _  N/ N; r: M& \"<td colspan=2>" & objFile.Name & "</td></tr>"
response.write "<tr><td><b>Artist: </b></td>" & _
! Q4 ~1 `% h1 f0 n8 b2 o, W$ f9 @"<td>" & strArtist & "</td></tr>"
2 L+ W  @3 b& o/ w9 j2 zresponse.write "<tr><td><b>Track: </b></td>" & _
"<td>" & strSongName & "</td></tr>"
response.write "<tr><td><b>Album: </b></td>" & _
<td>" & strAlbum & "</td></tr>"
# @6 p" Z/ l( N# K5 ^: xresponse.write "<tr><td><b>Year: </b></td>" & _
7 a* V# C5 ~- I% t9 t: }9 S"<td>" & strYear & "</td></tr>"
response.write "<tr><td><b>Comment: </b>" & _
# e' `: c/ ~1 a: C- \* j; ?7 ["</td><td>" & strComment & "</td></tr>"
' e* m- Y$ X- ]5 xresponse.write "</table>"
7 {# g8 U, }# o! S2 p4 r
objStream.Close
3 |6 E0 d$ F6 i# i
Response.Write "<p><hr><p>"
, s! @+ j  A% x2 F: ONext

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

5 Y# h5 @* m" k) D0 z  M9 ^自己试试吧
* D8 M6 s  S  M
1 I5 A' a* X- B7 i/ Y  P' h希望能对你有所帮助
# I0 O' H5 K* e( @5 i7 g( e