| 标题 | ASP对MP3曲目信息 |
| 范文 | 看代码 <!--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... %> |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。