Recomendado: Use la confianza para realizar una prueba de carga para su programa ASP Al introducir los programas que se mueven de aplicaciones tradicionales estructuradas con CS a los programas de espacio web actualmente populares, encontramos que estamos tratando de mantenernos al día con las crecientes demandas de medición y rendimiento. Uno de los mayores desafíos es cómo determinar cuántos usuarios puede admitir su programa
Hablemos brevemente sobre la etiqueta ID3 de MP3, porque se usa principalmente para operar esta cosa
MP3 no fue como vimos hoy al principio, incluidos cantantes, épocas, colecciones y otra información.
Solo hay algunos parámetros simples como sí/no para indicar si es privado o con derechos de autor, lo que ha causado muchos inconvenientes al trabajo relacionado de MP3. En 1996, un extranjero propuso agregar un dato detrás de cada MP3 para almacenar la información anterior. Más tarde, se convirtió en ID3 V1. Hasta donde yo sé, ha llegado a 1.1. Para más detalles, debe ser revisado por usted mismo.
Sigue siendo el antiguo hábito de usar metadatos para introducir DLL. He publicado artículos antes. Si no lo sabe, verifíquelo usted mismo.
Mira el código
| 〈!-Tipo de metadatos = typelib Uuid = 00000205-0000-0010-8000-00AA006D2EA4 Nombre = biblioteca de tipo ADODB -> （% Función convertbin (binaria) 'Esta función convierte un byte binario en un byte ASCII. para i = 1 a Lenb (binario) strchar = chr (ASCB (Midb (binario, i, 1))) Convertbin = convertbin & strchar Próximo Función final dim objstream Dim Strtag, Strsongname, Strartist, Stralbum, Stryear, _ strcomment, strgenre, strfile 'Especifique la carpeta para iterar, mostrando todos los mp3 Carpeta const = c:/mp3s/ 'Tome la información de la carpeta Dim objfso, objfolder, objfile Establecer objfso = server.createObject (scripting.filesystemObject) Establecer objfolder = objfso.getfolder (carpeta) 'Crea el objeto de transmisión Establecer objstream = server.createObject (ADODB.Stream) objstream.type = adtypeBinar 'Reunir los archivos en la carpeta Para cada objfile en objfolder.files 'Abra la transmisión objstream. objstream.loadFromFile objfile.path 'Lea los últimos 128 bytes objstream.position = objstream.size - 128 'Lea la información de la etiqueta ID3 V1 strtag = convertbin (objstream.read (3)) if ucase (strtag) = etiqueta entonces strsongName = Convertbin (objstream.read (30)) Startist = ConvertBin (objstream.read (30)) stralbum = Convertbin (objstream.read (30)) stryear = convertbin (objstream.read (4)) strcomment = Convertbin (objstream.read (30)) final si 'Muestra los resultados Respuesta. Escribe 〈Tabla 〈Tr〉 〈TD Colspan = 2〉 〈H3〉 y _ ID3 Información de la etiqueta para: 〈/td〉 〈/tr 〈tr〉 y _ 〈Td colspan = 2〉 & objfile.name & 〈/td 〈/tr〉 Respuesta. Write 〈TR〉 〈Td〉 〈B〉 Artista: 〈/B 〈/Td〉 y _ 〈Td〉 y strartist & 〈/td〉 〈/tr〉 Respuesta. Write 〈TR〉 〈td〉 〈b〉 pista: 〈/b 〈/td〉 y _ 〈Td〉 y strsongname & 〈/td 〈/tr〉 Respuesta. Write 〈TR〉 〈td〉 〈b〉 Álbum: 〈/b 〈/td〉 y _ 〈Td〉 y stralbum & 〈/td 〈/tr〉 Respuesta. Write 〈TR〉 〈Td〉 〈B〉 Año: 〈/B 〈/Td〉 y _ 〈Td〉 y stryear & 〈/td 〈/tr〉 Respuesta. Write 〈TR〉 〈td〉 〈b〉 Comentario: 〈/b〉 y _ _ 〈/Td〉 〈td〉 y strcomment & 〈/td 〈/tr〉 respuesta. Escribe 〈/Tabla〉 objstream.close Respuesta. Escribe 〈P 〈Hriante 〈P〉 Próximo Establecer objstream = nada 'limpieza ... %〉 |
Pruébalo tú mismo
Espero que te ayude
Compartir: ASP: Verdadero o Falso, comprende claramente su proceso de declaración IF Aprenda ASP para comprender su proceso de declaración IF. El siguiente es el contenido citado: if condición, entonces [declaraciones1] más [declaraciones2] finalizar si