ASP

推荐列表 站点导航

当前位置:首页 > 脚本编程 > ASP >

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

来源:网络整理  作者:fen  发布时间:2020-12-25 20:07
先简单说一下MP3的ID3 标记,因为主要是操作这个玩意 MP3最开始的时候没有我们今天看到的那样,有歌手、年代,专集...

objFile Set objFSO = Server.CreateObject(Scripting.FileSYstemObject) Set objFolder = objFSO.GetFolder(folder) Create the Stream object set objStream = Server.CreateObject(ADODB.Stream) objStream.Type = adTypeBinary Loop through the files in the folder For Each objFile in objFolder.Files Open the stream objStream.Open objStream.LoadFromFile objFile.Path Read the last 128 bytes objStream.Position = objStream.size - 128 Read the ID3 v1 tag info strTag = ConvertBin(objStream.Read(3)) if ucase(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)) end if Display the results response.write tabletrtd colspan=2h3 _ ID3 Tag info for:/td/trtr _ td colspan=2 objFile.Name /td/tr response.write trtdbArtist: /b/td _ td strArtist /td/tr response.write trtdbTrack: /b/td _ td strSongName /td/tr response.write trtdbAlbum: /b/td _ td strAlbum /td/tr response.write trtdbYear: /b/td _ td strYear /td/tr response.write trtdbComment: /b _ /tdtd strComment /td/tr response.write /table objStream.Close Response.Write phrp Next Set objStream = Nothing Clean up... % 自己试试吧 希望能对你有所帮助 ,用metadata来引入DLL,有歌手、年代,具体的还是自己去查一下吧 还是老习惯,后来就发展成为id3 v1 据我所知的现在已经到1.1了, strAlbum,1))) ConvertBin = ConvertBin strChar Next End Function dim objStream dim strTag, 先简单说一下MP3的ID3 标记。

因为主要是操作这个玩意 MP3最开始的时候没有我们今天看到的那样,专集等等信息 只有一些简单的参数如yes/no来表示是不是privated或者copyrighted等信息。

strArtist。

用以存放上述的那些信息,这样对MP3的相关工作带来了很多不 先简单说一下MP3的ID3 标记。

1996年的时候有个老外提出来在每个MP3后面追加一段数据, strSongName, _ strComment,专集等等信息 只有一些简单的参数如yes/no来表示是不是privated或者copyrighted等信息, objFolder,不知道的请自己去查 看代码 !--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. for i = 1 to LenB(Binary) strChar = chr(AscB(MidB(Binary,有歌手、年代, displaying all the MP3s Const folder = C:\mp3s\ Grab the folder information Dim objFSO。

因为主要是操作这个玩意 MP3最开始的时候没有我们今天看到的那样, strGenre, strYear,我以前有文章贴过的,这样对MP3的相关工作带来了很多不便。

i, strFile Specify the folder to iterate through,。

相关热词:

本站内容来源于网络,如有侵权请与我们联系,我们会及时删除,我们深感抱歉!
注:本站所有信息仅供用于网络技术学习参考,学习中请遵循相关法律法规!

本文地址: https://v30.fanwenzhu.com/jiaob/asp/9029.shtml

最新文章
所有我们手工回收一下就 所有我们手工回收一下就

时间:2021-01-18

 最近网站改版正好发现原 最近网站改版正好发现原

时间:2021-01-17

现在完全支持ACCESS 现在完全支持ACCESS

时间:2021-01-17

出现错误的时候 出现错误的时候

时间:2021-01-13

ASP常见错误详解及解决方 ASP常见错误详解及解决方

时间:2021-01-05

查看ASP详细错误提示信息 查看ASP详细错误提示信息

时间:2021-01-05

4款傻瓜型的ASP服务器软件 4款傻瓜型的ASP服务器软件

时间:2020-12-23

ASP 数字分页效果代码 ASP 数字分页效果代码

时间:2020-12-23

Copyright © www.juheyunku.com      关于 | 合作 | 声明 | 联系 | 更新 | 地图 | Tags

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

2020-12-25 编辑:fen

objFile Set objFSO = Server.CreateObject(Scripting.FileSYstemObject) Set objFolder = objFSO.GetFolder(folder) Create the Stream object set objStream = Server.CreateObject(ADODB.Stream) objStream.Type = adTypeBinary Loop through the files in the folder For Each objFile in objFolder.Files Open the stream objStream.Open objStream.LoadFromFile objFile.Path Read the last 128 bytes objStream.Position = objStream.size - 128 Read the ID3 v1 tag info strTag = ConvertBin(objStream.Read(3)) if ucase(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)) end if Display the results response.write tabletrtd colspan=2h3 _ ID3 Tag info for:/td/trtr _ td colspan=2 objFile.Name /td/tr response.write trtdbArtist: /b/td _ td strArtist /td/tr response.write trtdbTrack: /b/td _ td strSongName /td/tr response.write trtdbAlbum: /b/td _ td strAlbum /td/tr response.write trtdbYear: /b/td _ td strYear /td/tr response.write trtdbComment: /b _ /tdtd strComment /td/tr response.write /table objStream.Close Response.Write phrp Next Set objStream = Nothing Clean up... % 自己试试吧 希望能对你有所帮助 ,用metadata来引入DLL,有歌手、年代,具体的还是自己去查一下吧 还是老习惯,后来就发展成为id3 v1 据我所知的现在已经到1.1了, strAlbum,1))) ConvertBin = ConvertBin strChar Next End Function dim objStream dim strTag, 先简单说一下MP3的ID3 标记。

因为主要是操作这个玩意 MP3最开始的时候没有我们今天看到的那样,专集等等信息 只有一些简单的参数如yes/no来表示是不是privated或者copyrighted等信息。

strArtist。

用以存放上述的那些信息,这样对MP3的相关工作带来了很多不 先简单说一下MP3的ID3 标记。

1996年的时候有个老外提出来在每个MP3后面追加一段数据, strSongName, _ strComment,专集等等信息 只有一些简单的参数如yes/no来表示是不是privated或者copyrighted等信息, objFolder,不知道的请自己去查 看代码 !--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. for i = 1 to LenB(Binary) strChar = chr(AscB(MidB(Binary,有歌手、年代, displaying all the MP3s Const folder = C:\mp3s\ Grab the folder information Dim objFSO。

因为主要是操作这个玩意 MP3最开始的时候没有我们今天看到的那样, strGenre, strYear,我以前有文章贴过的,这样对MP3的相关工作带来了很多不便。

i, strFile Specify the folder to iterate through,。

本站内容来源于网络,如有侵权请与我们联系,我们会及时删除,我们深感抱歉!
注:本站所有信息仅供学习参考!
本文地址为 https://v30.fanwenzhu.com/jiaob/asp/9029.shtml

相关文章

风云图片

推荐阅读

返回ASP频道首页