Asp’de mp3 Id3v1 taglarını okuma

'Programlama' forumunda ...... tarafından 13 Eyl 2009 tarihinde açılan konu

Konu etiketleri:
  1. ......

    ...... Misafir




    Bu dersimizde Asp kodlarını kullanarak mp3 sitesi yapan ziyaretçilerimiz için Id3v1 taglarını okuyabilen bir uygulama hazırlayacağız. Bu uygulamada kullanılan dil VBScript‘ dir.


    Kod:
    <%
    Class  finMP3Source
    Public  File
    Public  ShowErrors
    Public  Title
    Public  Artist
    Public  Album
    Public  Year
    Public  Comment
    Public  Sub FileTara
    Title = “Null”
    Artist = “Null”
    Album = “Null”
    Year = “Null”
    Comment = “Null”
    SET  objFSO = Server.CreateObject(”Scripting.FileSystemObject”)
    IF  NOT objFSO.FileExists(File)  THEN  Error “There is no such file.”
    IF  LCASE(objFSO.GetExtensionName(File)) = “mp3″  THEN
    SET  objOKU = objFSO.OpenTextFile(File,1)
    strValue =  Right(objOKU.ReadAll, 128)
    IF  NOT  UCASE(Left(strValue, 3)) = “TAG”  THEN
    Error “This MP3 is not Id3v1.”
    ELSE
    Title =  Replace(TRIM(Mid(strValue, 4, 30)),  CHR(0), “”)
    Artist =  Replace(TRIM(Mid(strValue, 34, 30)),  CHR(0), “”)
    Album =  Replace(TRIM(Mid(strValue, 64, 30)),  CHR(0), “”)
    Year =  Replace(TRIM(Mid(strValue, 94, 4)),  CHR(0), “”)
    Comment =  Replace(TRIM(Mid(strValue, 98, 29)),  CHR(0), “”)
    END  IF
    END  IF
    End  Sub
    
    Private  Sub Error(strParam)
    IF  ShowErrors  THEN
    Response.Clear
    Response.Write “<h1>Program Error: ” & strParam & “</h1>”
    Response.End
    END  IF
    End  Sub
    End  Class
    %>


    Bu asp kodlarını bir dosyaya kaydetiniz. Daha sonra include olarak diğer sayfalarınızda da kullanabilirsiniz.​
     

Bu Sayfayı Paylaş