Direkomendasikan: Gunakan kepercayaan diri untuk melakukan tes beban untuk program ASP Anda Memperkenalkan program yang beralih dari aplikasi tradisional CS-terstruktur ke program ruang web yang saat ini populer, kami menemukan bahwa kami berusaha untuk mengikuti tuntutan pengukuran dan kinerja yang terus meningkat. Salah satu tantangan terbesar adalah bagaimana menentukan berapa banyak pengguna yang dapat didukung program Anda
Mari kita bicara secara singkat tentang tag ID3 MP3, karena ini terutama digunakan untuk mengoperasikan benda ini
MP3 tidak seperti yang kita lihat hari ini di awal, termasuk penyanyi, era, koleksi, dan informasi lainnya.
Hanya ada beberapa parameter sederhana seperti ya/tidak untuk menunjukkan apakah itu pribadi atau hak cipta, yang telah menyebabkan banyak ketidaknyamanan pada karya terkait MP3. Pada tahun 1996, orang asing mengusulkan untuk menambahkan sepotong data di belakang setiap MP3 untuk menyimpan informasi di atas. Kemudian, berkembang menjadi ID3 V1. Sejauh yang saya tahu, telah mencapai 1.1. Untuk detailnya, itu harus diperiksa sendiri.
Masih kebiasaan lama menggunakan metadata untuk memperkenalkan DLL. Saya telah memposting artikel sebelumnya. Jika Anda tidak tahu, silakan periksa sendiri.
Lihat kodenya
| 〈!-Metadata Type = Typelib UUID = 00000205-0000-0010-8000-00AA006D2EA4 Name = ADODB Tipe Library -> (% Function ConvertBin (biner) 'Fungsi ini mengubah byte biner menjadi byte ASCII. untuk i = 1 ke lenb (biner) strchar = chr (ascb (midb (biner, i, 1))) ConvertBin = ConvertBin & Strchar Berikutnya Fungsi akhir redup objstream redup strtag, strsongname, strartist, stralbum, stryear, _ Strcomment, Strenre, Strfile 'Tentukan folder untuk beralih, menampilkan semua MP3 Folder const = c:/mp3s/ 'Ambil informasi folder Redup objfso, objolder, objfile Set ObjFSO = Server.CreateObject (Scripting.FilesystemObject) Atur objolder = objfso.getFolder (folder) 'Buat Objek Stream Set ObjStream = Server.CreateObject (adodb.stream) objstream.type = adtypeBinary 'Lingkarkan file di folder Untuk setiap objfile di objolder.files 'Buka alirannya objstream.open objstream.loadFromFile objfile.path 'Baca 128 byte terakhir objstream.position = objstream.size - 128 'Baca info tag ID3 V1 strtag = convertbin (objstream.read (3)) Jika uCase (strtag) = tag lalu 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)) akhiri jika 'Tampilkan hasilnya Response.Write 〈Table 〈T antikan 〈TD Colspan = 2 〈H3 antikan & _ Info tag ID3 untuk: 〈/td 〈/tr 〈T antikan & _ 〈Td colspan = 2 & objfile.name & 〈/td 〈/tr antikan Response.write 〈tr 〈td antikan 〈B amar artis: 〈/b 〈/td antikan & _ 〈Td antikan & strartist & 〈/td 〈/tr antikan Response.write 〈T antikan〉 td antikan 〈B amar trek: 〈/b 〈/td antikan & _ 〈Td antikan & strsongname & 〈/td 〈/tr antikan Response.write 〈tr indungi 〈Td & stralbum & 〈/td 〈/tr antikan Response.write 〈tr 〈td 〈B utar tahun: 〈/b 〈/td antikan & _ 〈Td antikan & stryear & 〈/td 〈/tr antikan Response.write 〈tr 〈td 〈B amar komentar: 〈/b & _ 〈/Td 〈td & strcomment & 〈/td 〈/tr antikan response.write 〈/table indungi objstream.close Respons.write 〈P 〈HR indungi Berikutnya Atur objstream = tidak ada yang membersihkan ... %Indungi |
Cobalah sendiri
Semoga membantu Anda
Bagikan: ASP: Benar atau Salah, Anda dengan jelas memahami proses pernyataan IF Anda Pelajari ASP untuk memahami proses pernyataan IF Anda. Berikut ini adalah konten yang dikutip: jika kondisi maka [pernyataan1] lain [pernyataan2] berakhir jika