| 标题 | 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... %> |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。