Asp’de mp3 Id3v1 taglarını okuma

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.​