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.