Recommandé: utilisez la confiance pour effectuer un test de chargement pour votre programme ASP Présentation des programmes qui passent des applications traditionnelles structurées CS aux programmes d'espace Web actuellement populaires, nous constatons que nous essayons de répondre aux exigences croissantes de mesurabilité et de performances. L'un des plus grands défis est de savoir comment déterminer le nombre d'utilisateurs de votre programme
Parlons brièvement de la balise ID3 de MP3, car elle est principalement utilisée pour faire fonctionner cette chose
Le MP3 n'était pas comme nous l'avons vu aujourd'hui au début, y compris les chanteurs, les époques, les collections et autres informations.
Il n'y a que quelques paramètres simples tels que oui / non pour indiquer s'il est privé ou protégé par le droit d'auteur, ce qui a provoqué beaucoup d'inconvénients au travail connexe du MP3. En 1996, un étranger a proposé d'ajouter un morceau de données derrière chaque MP3 pour stocker les informations ci-dessus. Plus tard, il est devenu ID3 v1. Pour autant que je sache, il a atteint 1,1. Pour plus de détails, il doit être vérifié par vous-même.
C'est toujours la vieille habitude d'utiliser des métadonnées pour introduire des DLL. J'ai déjà publié des articles. Si vous ne le savez pas, veuillez le vérifier vous-même.
Regardez le code
| 〈! - Type de métadonnées = typelib UUID = 00000205-0000-0010-8000-00AA006D2EA4 Name = bibliothèque de type ADODB -> (% Fonction convertbin (binaire) «Cette fonction convertit un octet binaire en octet ASCII. pour i = 1 à Lenb (binaire) StrCar = Chr (ASCB (Midb (binaire, i, 1))) Convertbin = convertbin & strchar Suivant Fonction finale objstream sombre Dim strtag, strSongname, strartist, stralbum, stryear, _ Strcomment, Strgenre, Strfile 'Spécifiez le dossier pour itérer, affichant tous les MP3 Dossier const = c: / mp3s / 'Prenez les informations du dossier Dim objfso, objfolder, objfile SET OBJFSO = Server.CreateObject (Scripting.FileSystemObject) Set objfolder = objfso.getfolder (dossier) 'Créer l'objet Stream Définir ObjStream = Server.CreateObject (Adodb.Stream) objstream.type = adtypebiny 'Loop via les fichiers dans le dossier Pour chaque objfile dans objfolder.files 'Ouvrez le flux objstream.open objstream.loadFromfile objfile.path 'Lisez les 128 derniers octets objstream.position = objstream.size - 128 'Lisez les informations ID3 V1 Tag strtag = convertbin (objstream.read (3)) si ucase (strtag) = tag alors 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)) terminer si 'Afficher les résultats réponse.write 〈Table 〈trrou ID3 TAG INFO pour: 〈/ td〉 〈/ tr 〈trround & _ 〈Td colspan = 2〉 & objfile.name & 〈/ td 〈/ trrou Response.write 〈Tr〉 〈Td〉 〈B〉 Artiste: 〈/ b 〈/ td〉 & _ 〈Td précise & strartist & 〈/ td〉 〈/ Tr〉 Response.write 〈trrou 〈Td〉 & strSongName & 〈/ td 〈/ Tr〉 Response.write 〈Tr〉 〈Td〉 〈B〉 Album: 〈/ b 〈/ td〉 & _ 〈Td〉 & Stralbum & 〈/ td 〈/ Tr〉 Response.Write 〈trrou 〈Td〉 & Stryear & 〈/ td 〈/ Tr〉 Response.write 〈trrou 〈/ Td〉 〈Td〉 & Strcomment & 〈/ td 〈/ Tr〉 Response.Write 〈/ Table〉 objstream.close Response.write 〈P 〈Hr〉 〈p〉 Suivant Définissez Objstream = Rien de nettoyage ... %〉 |
Essayez-le vous-même
J'espère que ça vous aide
Partager: ASP: vrai ou faux, vous comprenez clairement votre processus de déclaration IF Apprenez ASP à comprendre votre processus de déclaration IF. Ce qui suit est le contenu cité: si condition alors [instructions1] else [instructions2] end si