• 这是一个错误的观点! 2019-10-04
  • (两会受权发布)中华人民共和国国家监察委员会主任简历 2019-10-04
  • 吴秀波海外购房疑重婚 工作室:一同购房者系原配 2019-09-15
  • 图解:关于世界杯开幕式的那点事 2019-09-15
  • 习近平作报告全场71次掌声 此处最密、此处最长(附原音) 2019-09-13
  • 河北人注意:外地车进京证每年限办12次每次最长7天 2019-08-15
  • 杨紫:“欢乐颂”里的那些姐妹故事 2019-08-06
  • “向党献礼 忠诚保畅” 交警铁骑队正式亮相宜春(多图) 2019-08-06
  • 女子有才也是德,京城何时有女子学校? 2019-07-25
  • 一加手机5【报价 图片 参数 评测】 2019-07-25
  • 首师大附属实验中学的“小小农场主” 2019-07-23
  • 珍视智慧和成熟这笔财富(环球走笔) 2019-07-15
  • 金参考|GDPR:体现欧盟“数字领袖”雄心 或直接冲击中企 2019-07-03
  • 坚决维护习近平总书记核心地位br维护党中央权威和集中统一领导 2019-07-03
  • 我国纳米核心技术取得重大突破 2019-06-28
  • 柏林赫塔VS奥格斯堡009:【精编ASP教程】75-用ASP实现对MP3曲目信息的操作

    2019-08-16        59

    德国柏林赫塔 www.mguj.net 先简单说一下MP3的ID3 标记,因为主要是操作这个玩意

    MP3最开始的时候没有我们今天看到的那样,有歌手、年代,专集等等信息

    只有一些简单的参数如yes/no来表示是不是privated或者copyrighted等信息,这样对MP3的相关工作带来了很多不便,1996年的时候有个老外提出来在每个MP3后面追加一段数据,用以存放上述的那些信息,后来就发展成为id3 v1 据我所知的现在已经到1.1了,具体的还是自己去查一下吧

    还是老习惯,用metadata来引入DLL,我以前有文章贴过的,不知道的请自己去查

    看代码

    〈!--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,i,1)))

    ConvertBin = ConvertBin & strChar

    Next

    End Function

    dim objStream

    dim strTag, strSongName, strArtist, strAlbum, strYear, _

    strComment, strGenre, strFile

    'Specify the folder to iterate through, displaying all the MP3s

    Const folder = "C:\mp3s\"

    'Grab the folder information

    Dim objFSO, objFolder, 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 "〈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〉"

    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

    Set objStream = Nothing 'Clean up...

    %〉

    自己试试吧

    希望能对你有所帮助


    AM 09:00 ~ 12:00

    PM 14:00 ~ 18:00

    Tel 010-50933590

    Hp 18910140161

    设计优势

    独立的设计团队 带给您全新的视觉体验

    功能开发

    强大的技术实力,完成您想要的任何功能

    售后服务

    完善的售后服务,解决您在使用过程中遇到的问题

  • 这是一个错误的观点! 2019-10-04
  • (两会受权发布)中华人民共和国国家监察委员会主任简历 2019-10-04
  • 吴秀波海外购房疑重婚 工作室:一同购房者系原配 2019-09-15
  • 图解:关于世界杯开幕式的那点事 2019-09-15
  • 习近平作报告全场71次掌声 此处最密、此处最长(附原音) 2019-09-13
  • 河北人注意:外地车进京证每年限办12次每次最长7天 2019-08-15
  • 杨紫:“欢乐颂”里的那些姐妹故事 2019-08-06
  • “向党献礼 忠诚保畅” 交警铁骑队正式亮相宜春(多图) 2019-08-06
  • 女子有才也是德,京城何时有女子学校? 2019-07-25
  • 一加手机5【报价 图片 参数 评测】 2019-07-25
  • 首师大附属实验中学的“小小农场主” 2019-07-23
  • 珍视智慧和成熟这笔财富(环球走笔) 2019-07-15
  • 金参考|GDPR:体现欧盟“数字领袖”雄心 或直接冲击中企 2019-07-03
  • 坚决维护习近平总书记核心地位br维护党中央权威和集中统一领导 2019-07-03
  • 我国纳米核心技术取得重大突破 2019-06-28
  • 赌pc稳赢方法 三公棋牌 江苏时时网 全民计划app下载安装 巴西三分彩的技巧 江苏五分快三人工计划 重庆时时官网开奖结果 极速时时开奖历 bet007足球即时比分网 乐翻二人麻将手机版 万人炸金花最新版2016 非凡炸金花要怎么下载 藏分真的能出款吗 北京pk10计划官网 重庆时时走势图 幸运飞艇全天计划免费版