Recomendado: Use a confiança para realizar um teste de carga para o seu programa ASP Apresentando os programas que passam das aplicações tradicionais de estrutura CS para os programas espaciais da Web atualmente populares, descobrimos que estamos tentando acompanhar as crescentes demandas de medurabilidade e desempenho. Um dos maiores desafios é como determinar quantos usuários seu programa pode suportar
Vamos falar brevemente sobre a etiqueta ID3 do MP3, porque é usada principalmente para operar essa coisa
O MP3 não foi como vimos hoje no início, incluindo cantores, épocas, coleções e outras informações.
Existem apenas alguns parâmetros simples, como sim/não, para indicar se é privado ou protegido por direitos autorais, o que causou muita inconveniência ao trabalho relacionado do MP3. Em 1996, um estrangeiro propôs adicionar uma peça de dados por trás de cada MP3 para armazenar as informações acima. Mais tarde, ele se transformou em ID3 v1. Até onde eu sei, chegou a 1,1. Para detalhes, deve ser verificado por você mesmo.
Ainda é o antigo hábito de usar metadados para introduzir DLLs. Eu publiquei artigos antes. Se você não sabe, verifique você mesmo.
Olhe para o código
| 〈!-Tipo de metadados = TypeLib UUID = 00000205-0000-0010-8000-00AA006D2EA4 Nome = Biblioteca do tipo Adodb -> （% Função convertbin (binário) 'Esta função converte um byte binário em um byte ASCII. para i = 1 a lenb (binário) strchar = chr (ascb (midb (binário, i, 1))) Convertbin = convertbin & strchar Próximo Função final objStream dim Dim Strtag, Strsongname, Strartist, Stralbum, Stryear, _ Strcomment, strgenre, strfile 'Especifique a pasta para iterar, exibindo todos os mp3s Pasta const = c:/mp3s/ 'Pegue a informação da pasta Dim Objfso, ObjFolder, Objfile Set objfso = server.createObject (script.filesystemoBject) Set objFolder = objfso.getFolder (pasta) 'Crie o objeto de fluxo set objStream = server.createObject (adodb.stream) objstream.type = adtypebinary 'Faça uma folga pelos arquivos na pasta Para cada objfile em ObjFolder.Files 'Abra o fluxo objstream.open objstream.loadFromFile objfile.Path 'Leia os últimos 128 bytes objstream.Position = objstream.size - 128 'Leia as informações da tag ID3 V1 strtag = convertbin (objstream.read (3)) se ucase (strtag) = tag então 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)) final se 'Exiba os resultados Response.Write 〈tabela 〈tr jos 〈TD colspan = 2〉 〈H3〉 & _ ID3 Tag Informações para: 〈/td〉 〈/tr 〈tr jos & _ 〈TD colspan = 2 orre & objfile.name & 〈/td 〈/tr jos Response.Write 〈tr jos 〈TD〉 〈B Artista: 〈/B 〈/TD vens & _ 〈TD orre & Strartist & 〈/td〉 〈/tr jos Response.Write 〈tr jos 〈TD〉 〈B Trilha: 〈/b 〈/td jos & _ 〈Td orre & strsongname & 〈/td 〈/tr jos Response.Write 〈tr jos 〈TD〉 〈B Álbum: 〈/B 〈/TD jos & _ 〈TD orre & stralbum & 〈/td 〈/tr jos Response.Write 〈tr jos 〈TD〉 〈B Ano: 〈/B 〈/TD vens & _ 〈TD jos & stryear & 〈/td 〈/tr jos Response.Write 〈tr jos 〈TD〉 〈B Comentário: 〈/b jos & _ 〈/Td〉 〈td〉 & strComment & 〈/td 〈/tr jos Response.Write 〈/Table jos objstream.close Response.Write 〈P 〈HR〉 〈P jos Próximo Definir objstream = nada 'Limpe ... %Jos |
Experimente você mesmo
Espero que ajude você
Compartilhar: ASP: Verdadeiro ou Falso, você entende claramente o seu processo de declaração se Aprenda asp a entender seu processo de declaração IF. A seguir, é apresentado o conteúdo citado: se condição então [declarações1] else [declarações2] final se