asp读取wma文件Tag的类

网上搜了下，只找到了个PHP的类，只好照葫芦画瓢写了一个，目前只完成了读取的功能，由于本人水平有限，如有写得不妥的地方，还请各位能帮忙指出

类主文件：wmaExif.class.asp

1. <%
2. 'Author: dragonbbc
3. 'Email: dragonbbc@163.com
5. '参考文章：
6. 'http://linle.ycool.com/post.1255557.html
7. 'http://www.itlearner.com/Article/2007/3944.shtml
9. '需指定的属性
10. 'File
12. '可用方法
13. 'CheckSize  检查文件大小
14. 'Parse  读取信息
15. 'GetInfo(TagName)
17. '常见TagName
18. '标准Tag: Title, Artist, Copyright, Description
19. '扩展Tag: WM/AlbumTitle, WM/EncodedBy, WM/Genre, WM/Lyrics, WM/Track, WM/Year, WM/URL, WM/UserWebURL, WMFSDKVersion, WM/TrackNumber
21. Class wmaExif
22.     Public File '文件
23.     
24.     Private objStream
25.     Private headtag, bodytag, std_tag, ext_tag
26.     Private headsize,headext1,tagnum,headext2,headbuf,bodysize,bodybuf
27.     Private framebuf(),sectionbuf()
28.     Private items1, items2
31.     Private Sub Class_Initialize()
32.     headtag = "3026b2758e66cf11a6d900aa0062ce6c"
33.     bodytag = "3626b2758e66cf11a6d900aa0062ce6c"
34.     std_tag = "3326b2758e66cf11a6d900aa0062ce6c"
35.     ext_tag = "40a4d0d207e3d21197f000a0c95ea850"
36.     items1 = Array("Title", "Artist", "Copyright", "Description", "Reserved")
37.     'items2 = Array("AlbumTitle", "EncodedBy", "Genre", "Lyrics", "Track", _
38.     '                            "Year", "URL", "UserWebURL", "TrackNumber")
39.     End Sub
41.   Private Sub Class_Terminate
42.     on error resume next
43.     CloseStream
44.   End Sub
45.     
46. 'GetInfo
47.     Public Function GetInfo(TagName)
48.         TagName = Replace(TagName, "/", "")
49.         If Eval("Not IsEmpty("&TagName&")") Then
50.             Execute("GetInfo = "&TagName)
51.         End If
52.     End Function
54. 'CheckSize
55.     Public Function CheckSize()
56.         CheckSize = False
57.         CreateStream
58.         If ReadHeader = False Then Exit Function
59.         If ReadBody = False Then Exit Function
60.         If objStream.Size <> headsize + bodysize Then Exit Function
61.         CheckSize = True
62.         CloseStream
63.     End Function
65. 'Parse
66.     Public Function Parse()
67.         CreateStream
68.         If ReadHeader = False Then Exit Function
69.         ReDim framebuf(tagnum)
70.         head_off = 1
71.         For j = 1 To tagnum
72.             frame_head = MidB(headbuf, head_off, 24)
73.             head_off = head_off + 24
74.             frametag = ReadHex(LeftB(frame_head, 16))
75.             framesize = ReadLong_UL(MidB(frame_head,17,4))
76.             'framebuf(j) = MidB(headbuf,head_off-24,framesize)
77.             If frametag = std_tag Then
78.                 Dim lenx(5)
79.                 tmp_off = 0
80.                 For i = 0 To 4
81.                     lenx(i) = ReadShort_UL(MidB(headbuf, head_off+2*i, 2))
82.                     tempstr = ReadString(MidB(headbuf, head_off+10+tmp_off, lenx(i)))
83.                     tmp_off = tmp_off + lenx(i)
84.                     Execute(items1(i)&" = tempstr")
85.                 Next
86.                 head_off = head_off + 10 + temp_off
87.             ElseIf frametag = ext_tag Then
88.                 inum = ReadShort_UL(MidB(headbuf, head_off, 2))
89.                 tmp_off = 2
90.                 While k < inum And tmp_off+24 < framesize
91.                     nlen = ReadShort_UL(MidB(headbuf, head_off+tmp_off, 2))
92.                     nbuf = ReadString(MidB(headbuf, head_off+tmp_off+2, nlen))
93.                     flag = ReadShort_UL(MidB(headbuf, head_off+tmp_off+2+nlen, 2))
94.                     vlen = ReadShort_UL(MidB(headbuf, head_off+tmp_off+2+nlen+2, 2))
95.                     vbuf = ReadString(MidB(headbuf, head_off+tmp_off+2+nlen+4, vlen))
96.                     'on error resume next
97.                     Execute(Replace(nbuf,"/","")&" = vbuf")
98.                     'err.clear
99.                     tmp_off = tmp_off + 6 + nlen + vlen
100.                     k = k + 1
101.                 Wend
102.                 head_off = head_off + framesize-24
103.             Else
104.                 head_off = head_off + framesize-24
105.             End If
106.         Next
107.         
108.         CloseStream
109.     End Function
111. 'get the header
112.     Private Function ReadHeader()
113.         ReadHeader = False
114.         buf = objStream.Read(30)
115.         If ReadHex(LeftB(buf, 16)) <> headtag Then Exit Function
116.         headsize = ReadLong_UL(MidB(buf,17,4))
117.         headext1 = MidB(buf,21,4)
118.         tagnum = ReadLong_UL(MidB(buf,25,4))
119.         headext2 = MidB(buf,29,2)
120.         headbuf = objStream.Read(headsize-30)
121.         ReadHeader = True
122.     End Function
124. 'get the body
125.     Private Function ReadBody()
126.         ReadBody = False
127.         buf = objStream.Read(24)
128.         If ReadHex(LeftB(buf, 16)) <> bodytag Then Exit Function
129.         bodysize = ReadLong_UL(MidB(buf,17,4))
130.         bodybuf = objStream.Read(bodysize-24)
131.         ReadBody = True
132.     End Function
134. 'CreateStream
135.     Public Function CreateStream()
136.         on error resume next
137.         Set objStream = Server.CreateObject("ADODB.Stream")
138.         objStream.Type = 1
139.         objStream.Open
140.         Err.clear
141.         objStream.LoadFromFile File
142.         If err<>0 Then
143.         objStream.LoadFromFile server.mappath(File)
144.         End If
145.         Err.clear
146.     End Function
148. 'CloseStream
149.     Public Function CloseStream()
150.         objStream.close
151.         Set objStream = nothing
152.     End Function
154. 'Read String    From Byte
155.     Private Function ReadString(binstr)
156.         If LenB(binstr) > 2 Then
157.             ReadString = LeftB(binstr, LenB(binstr)-2)
158.         Else
159.             ReadString = binstr
160.         End If
161.     End Function
163. 'Read Hex   From Byte
164.     Private Function ReadHex(binstr)
165.         ReadHex = ""
166.         on error resume next
167.         For i = 1 To LenB(binstr)
168.             ReadHex = ReadHex & Hex((AscB(MidB(binstr,i,1)) And &HF0)/16) & Hex(AscB(MidB(binstr,i,1)) And &H0F)
169.         Next
170.         ReadHex = LCase(ReadHex)
171.     End Function
173. 'Read Unsigned Long(Little Endian) From Byte
174.     Private Function ReadLong_UL(binstr)
175.         ReadLong_UL = 0
176.         on error resume next
177.         ReadLong_UL = AscB(MidB(binstr,1,1)) + AscB(MidB(binstr,2,1))*256 + AscB(MidB(binstr,3,1))*65536 + AscB(MidB(binstr,4,1))*16777216
178.     End Function
180. 'Read Unsigned Short(Little Endian) From Byte
181.     Private Function ReadShort_UL(binstr)
182.         ReadShort_UL = 0
183.         on error resume next
184.         ReadShort_UL = AscB(MidB(binstr,1,1)) + AscB(MidB(binstr,2,1))*256
185.     End Function
187. End Class
188. %>

测试程序：wma.asp

1. <!-- #include file="wmaExif.class.asp" -->
2. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
3. <html xmlns="http://www.w3.org/1999/xhtml">
4. <head>
5. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
6. <title>利用ASP获取WMA的TAG信息</title>
7. </head>
8. <body>
9. <%
10. dim info
11. set info = New wmaExif
12. set info.File=request("soundPath")
13. If info.CheckSize = True Then
14.     info.Parse
15.   Response.write "歌名："&info.GetInfo("Title")&"<br/>"
16.   Response.write "歌手："&info.GetInfo("Artist")&"<br/>"
17.   Response.write "版权："&info.GetInfo("CopyRight")&"<br/>"
18.   Response.write "注释："&info.GetInfo("Description")&"<br/>"
19.   Response.write "专辑："&info.GetInfo("WM/AlbumTitle")&"<br/>"
20.   Response.write "曲目："&info.GetInfo("WM/TrackNumber")&"<br/>"
21.   Response.write "发行年份："&info.GetInfo("WM/Year")&"<br/>"
22.   Response.write "类型："&info.GetInfo("WM/Genre")&"<br/>"
23. Else
24.     Response.Write "error"
25. End If
26. set info = Nothing
27. %>
28. </body>
29. </html>

参考资料：
http://linle.ycool.com/post.1255557.html
http://www.itlearner.com/Article/2007/3944.shtml