Recomendado: como implementar miniaturas sem componentes ASP Existem muitos componentes ASP que geram miniaturas na Internet. Se o seu espaço virtual não suportar o registro de novos componentes, você poderá sentir que seu site está perdendo a cor. Xinqing não é talentoso e combinado com recursos on-line, ela escreveu um programa de miniatura sem componentes apenas para referência. Vamos dar uma olhada no básico primeiro. Primeiro de tudo, sabemos que o seguinte código é exibido na página: img src = pic.gif borda = 0 largura
Este artigo ensina a instrução ASP Script Loop:
A característica do ambiente da página do servidor Dynamic ASP é que ele está escrito por meio de um ou vários idiomas de script. A linguagem de script pode ser considerada uma versão simplificada da linguagem de programação. É fácil de aprender e mestre, que fornece uma conveniência considerável aos designers de sites dinâmicos. Pode -se dizer que o uso adequado da linguagem de script está diretamente relacionado às vantagens e desvantagens dos aplicativos ASP. Depois de aprender as funções e as declarações condicionais do idioma de script VBScript no artigo anterior, hoje continuaremos analisando as declarações de loop no VBScript.
A função das instruções de loop é executar repetidamente o código do programa. Os loops podem ser divididos em três categorias: um tipo repete a instrução antes que a condição se torne falsa, um tipo repete a instrução antes que a condição se torne verdadeira e o outro tipo repete a instrução de acordo com o número especificado de vezes. As seguintes declarações de loop podem ser usadas no VBScript:
Faça ... loop: loop quando (ou até) a condição é verdadeira.
Enquanto ... wend: loop quando a condição é verdadeira.
Para ... próximo: especifique o número de loops e repita a instrução usando um contador.
Para cada ... Próximo: Para cada item no conjunto ou cada elemento da matriz, repita um conjunto de instruções.
Vamos primeiro olhar para ... loop, que pode executar blocos de declaração várias vezes (várias vezes). Repita o bloco de declaração quando a condição for verdadeira ou antes que a condição se torne verdadeira. Por favor, veja o seguinte exemplo: <html> <head>
<title> doloop.asp </title> <corpo bgcolor =#fffff> </head> <p> </p>
<p> Por favor, preencha os registros de liquidação de vendas para cada mês deste ano até este mês nesta página. <p>
< %
contador = 1
thismonth = mês (agora ())
Faça enquanto contador <thismonth + 1
Response.Write & Counter & Month:
Response.Write ___________________________________ & <BR> <BR>
Se contador> 13 então
saída do
final se
contador = contador+1
Laço
%>
<Hr> </body> </html>
Este programa ASP usa instruções de loop para criar uma tabela de registros de liquidação de vendas, recorte o código acima no bloco de notas e salvá -lo como Doloop.asp e navegue no navegador no HTTP. Dependendo do mês atual, você verá os resultados na figura abaixo.
Vamos analisar este programa. Nosso objetivo é imprimir uma tabela com base no mês atual. Primeiro, configuramos uma contagem de contadores e definimos seu valor como 1. Depois, usamos o mês das funções () e agora () para obter o mês atual e, finalmente, estabelecer um loop. Quando o valor da contagem é menor que o valor do mês atual, o valor do mês e uma linha horizontal são exibidos e o valor da contagem é aumentado em 1. A instrução LOOP é repetida até que as condições acima sejam falsas. Se a contagem for maior que 13, a saída será usada para sair do loop imediatamente.
As declarações de loop também podem usar a seguinte sintaxe:
Fazer
[Declarações] [Exit do]
[declarações] loop [{while | Até} condição]
Enquanto ... as declarações de Wend são fornecidas para usuários familiarizados com seu uso. No entanto, desde enquanto ... Wend não tem flexibilidade, é recomendável usar a instrução DO ... LOOP. Vamos dar uma olhada na próxima declaração. A próxima instrução for ... é usada para executar um bloco de declaração conforme os tempos especificados, usando uma variável contador em um loop, cujo valor aumenta ou diminui com cada loop.
O exemplo a seguir repete o procedimento MyProc 50 vezes. A instrução for especifica a variável X e seus valores de início e final. A próxima declaração adiciona a variável contador em 1 de cada vez. Sub DomyProc50Times ()
Dim x
Para x = 1 a 50
MyProc
Próximo
Final sub
A etapa da palavra -chave é usada para especificar o valor da variável contador cada aumento ou diminuição. No exemplo a seguir, a variável de contador J é incrementada em 2 de cada vez. Após o término do loop, o valor total é a soma de 2, 4, 6, 8 e 10.
Sub TwnoTotal ()
Dim J, total
Para J = 2 a 10 Etapa 2
Total = Total + J
Próximo
A soma do msgbox é & total &.
Final sub
Para diminuir a variável contador, coloque a etapa para um valor negativo. Neste momento, o valor de terminação da variável do contador deve ser menor que o valor inicial. No exemplo a seguir, a variável Mynum variável é diminuída em 2 de cada vez. Após o término do loop, o valor total é a soma de 16, 14, 12, 10, 8, 6, 4 e 2. Sub Newtotal ()
Dim Mynum, total
Para mynum = 16 a 2 etapa -2
total = total + mynum
Próximo
A soma do msgbox é & total &.
Final sub
A saída para a declaração é usada para sair da próxima declaração para ... antes que o contador atinja seu valor de terminação. Como o loop geralmente é apenas para sair em alguns casos especiais (como quando ocorre um erro), você pode usar a saída para a instrução no bloco de declaração verdadeiro da instrução if ... então ... else. Se a condição for falsa, o loop será executado como de costume.
Finalmente, vamos dar uma olhada no para cada ... a próxima declaração, para cada ... o próximo loop é semelhante ao para ... Next Loop. Para cada ... Em seguida, em vez de executar uma instrução conforme especificado, ele repete um conjunto de instruções para cada elemento na matriz ou para cada item na coleção de objetos. Isso é muito útil quando você não conhece o número de elementos da coleção. Sua sintaxe é a seguinte: para cada elemento no grupo
[declarações]
[Saia para]
[declarações] Próximo [elemento]
Compartilhar: ASP salva arquivos remotos para o local % Função saveemotefile (localfilename, remotefileurl) saveroterotefile = anúncios Dim True, recuperação, getRemotedAtAtAt Recurrigeal = server.createObject (microsoft.xmlhttp) com recuperação .open get, remotofileurl, false, .Send.