ASP를 사용하여 MP3 트랙 정보의 작동 전략을 구현하십시오.

UUID = 00000205-0000-0010-8000-00AA006D2EA4

이름 = adodb 유형 라이브러리

->

(%

기능 변환 비 (바이너리)

'이 함수는 이진 바이트를 ASCII 바이트로 변환합니다.

i = 1에서 Lenb (Binary)의 경우

strchar = chr (ASCB (MIDB (바이너리, I, 1)))

ConvertBin = ConvertBin & Strch

다음

엔드 기능

희미한 objstream

희미한 strtag, strsongname, trrartist, stralbum, stryear, _

strcomment, strgenre, strfile

'모든 MP3를 표시하고 반복 할 폴더를 지정하십시오.

const folder = c :/mp3s/

'폴더 정보를 가져옵니다

Dim objfso, objfolder, objfile

set objfso = server.createobject (scripting.filesystemobject)

set objfolder = objfso.getfolder (폴더)

'스트림 객체를 만듭니다

set objstream = server.createobject (adodb.stream)

objstream.type = adtypebinary

'폴더의 파일을 통해 루프

objfolder.files의 각 objfile에 대해

'스트림을 엽니 다

objstream.open

objstream.loadfrile objfile.path

'마지막 128 바이트를 읽으십시오

objstream.position = objstream.size -128

'ID3 V1 태그 정보를 읽으십시오

strtag = convertbin (objstream.read (3))

UCASE (strtag) = 태그 인 경우

strsongname = convertbin (objstream.read (30))

trrartist = convertbin (objstream.read (30))

stralbum = convertbin (objstream.read (30))

stryear = convertbin (objstream.read (4))

strcomment = convertbin (objstream.read (30))

끝 If

'결과를 표시하십시오

응답. <TABLE <TR QUER <TD COLSPAN = 2> <H3> & _

id3 태그 정보 : 〈/td> 레스 </tr <tr> & _

<td colspan = 2> & objfile.name & 〈/td 〈/tr>

응답. 쓰기 <tr> <td> <b> 아티스트 : 〈/b </td> & _

<td> & trrartist & 〈/td> − </tr>

응답. 쓰기 <tr> <td> <b> 트랙 : 〈/b </td> & _

<td> & strsongname & 〈/td 〈/tr>

응답. <tr> <td> <b> 앨범 : 〈/b </td> & _

<td> & stralbum & 〈/td 〈/tr>

응답. 쓰기 <tr> <td> <b> 연도 : 〈/b </td> & _

<td> & stryear & 〈/td 〈/tr>

응답. <tr> <td> <b> 댓글 : 〈/b> & _

</td> <td> & strcomment & 〈/td 〈/tr>

응답. thrite </탁자>

objstream.close

응답. 쓰기 <p <hr> <p>

다음

objstream = 아무것도 '정리 ...

%>