ASPを使用してMP3トラック情報の操作戦略を実装する

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

名前= ADODBタイプライブラリ

- >

（％

関数convertbin（バイナリ）

'この関数は、バイナリバイトをASCIIバイトに変換します。

i = 1にレンブ（バイナリ）へ

strchar = chr（ascb（midb（binary、i、1）））

convertbin = convertbin＆strach

次

エンド関数

DIM OBJSTREAM

Dim Strtag、Strsongname、Strartist、Stralbum、Stryear、_

strcomment、strgenre、strfile

'すべてのmp3を表示して、反復繰り返してフォルダーを指定します

const folder = c：/mp3s/

'フォルダー情報を取得します

Dim 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））

ifを終了します

'結果を表示します

Response.Write <Table <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>＆stryear＆</td </tr>

Response.Write <Tr> <TD> <B>コメント：</b>＆_

</td> <td>＆strcomment＆</td </tr>

respons.write </table>

objstream.close

respons.write <p○hr> <p●

次

objstreamを設定=何もない 'クリーンアップ...

％>