먼저 MP3의 ID3 태그에 대해 간략히 설명하겠습니다. 주로 이 작업을 수행하는 데 사용되기 때문입니다.
처음에 MP3에는 오늘날 우리가 보는 것처럼 가수, 연도, 앨범 등에 대한 정보가 없었습니다.
개인정보인지 저작권이 있는지 여부 등을 나타내는 예/아니요 등의 간단한 매개변수만 있습니다. 이로 인해 MP3 관련 작업에 많은 불편이 발생했습니다. 1996년에 한 외국인이 각 MP3 뒤에 데이터 조각을 추가하자고 제안했습니다. , 위의 정보를 저장하기 위해 나중에 id3 v1으로 개발되었습니다. 지금은 1.1에 이르렀습니다. 직접 확인하는 것이 좋습니다.
DLL을 소개하기 위해 메타데이터를 사용하는 것은 여전히 오래된 습관입니다. 모르신다면 직접 확인해 보세요.
코드를 보세요
<!--메타데이터 유형=typelib
UUID=00000205-0000-0010-8000-00AA006D2EA4
NAME=ADODB 유형 라이브러리
-->
<%
함수 ConvertBin(바이너리)
'이 함수는 이진 바이트를 ASCII 바이트로 변환합니다.
i = 1에서 LenB(이진수)로
strChar = chr(AscB(MidB(Binary,i,1)))
ConvertBin = ConvertBin & strChar
다음
기능 종료
Dimobj스트림
희미한 strTag, strSongName, strArtist, strAlbum, strYear, _
strComment, strGenre, strFile
'모든 MP3를 표시하여 반복할 폴더를 지정합니다.
Const 폴더 = C:/mp3s/
'폴더 정보를 가져옵니다
희미한 objFSO, objFolder, objFile
objFSO = Server.CreateObject(Scripting.FileSYStemObject) 설정
objFolder 설정 = objFSO.GetFolder(폴더)
'스트림 객체 생성
objStream = Server.CreateObject(ADODB.Stream) 설정
objStream.Type = adTypeBinary
'폴더에 있는 파일을 반복합니다.
objFolder.Files의 각 objFile에 대해
'스트림을 열어라
objStream.Open
objStream.LoadFromFile objFile.Path
'마지막 128바이트를 읽습니다.
objStream.Position =objStream.size - 128
'ID3 v1 태그 정보 읽기
strTag = ConvertBin(objStream.Read(3))
ucase(strTag) = TAG이면
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))
종료하면
'결과를 표시합니다
response.write <테이블><tr><td colspan=2><h3> & _
ID3 태그 정보:</td></tr><tr> & _
<td colspan=2> & objFile.Name & </td></tr>
response.write <tr><td><b>아티스트: </b></td> & _
<td> & strArtist & </td></tr>
response.write <tr><td><b>트랙: </b></td> & _
<td> & strSongName& </td></tr>
response.write <tr><td><b>앨범: </b></td> & _
<td> & strAlbum & </td></tr>
response.write <tr><td><b>연도: </b></td> & _
<td> & str연도 & </td></tr>
response.write <tr><td><b>댓글: </b> & _
</td><td> & strComment & </td></tr>
응답.쓰기 </table>
objStream.Close
응답.쓰기 <p><hr><p>
다음
objStream = Nothing'으로 설정하세요. 정리...
%>
직접 시도해 보세요