Recommandé: comment implémenter des miniatures sans composants ASP Il existe de nombreux composants ASP qui génèrent des miniatures sur Internet. Si votre espace virtuel ne prend pas en charge l'enregistrement de nouveaux composants, vous pouvez sentir que votre site Web perd sa couleur. Xinqing n'est pas talentueux et combiné avec des ressources en ligne, elle a écrit un programme de miniatures sans composant pour référence uniquement. Jetons un coup d'œil aux bases en premier. Tout d'abord, nous savons que le code suivant s'affiche sur la page: img src = pic.gif border = 0 largeur
Cet article vous apprend la déclaration de boucle de script ASP:
La caractéristique de l'environnement ASP Dynamic Server Page est qu'elle est écrite via une ou plusieurs langages de script. Le langage de script peut être considéré comme une version simplifiée du langage de programmation. Il est facile à apprendre et à maîtriser, ce qui offre une commodité considérable aux concepteurs de sites Web dynamiques. On peut dire que l'utilisation appropriée du langage de script est directement liée aux avantages et aux inconvénients des applications ASP. Après avoir appris les fonctions et les instructions conditionnelles du langage de script VBScript dans l'article précédent, nous continuerons aujourd'hui à examiner les instructions de boucle dans VBScript.
La fonction des instructions de boucle est d'exécuter à plusieurs reprises le code du programme. Les boucles peuvent être divisées en trois catégories: un type répète l'instruction avant que la condition ne devienne fausse, un type répète l'instruction avant que la condition ne devienne vraie, et l'autre type répète l'instruction en fonction du nombre de fois spécifié. Les instructions de boucle suivantes peuvent être utilisées dans VBScript:
Faire ... Boucle: boucle lorsque (ou jusqu'à) la condition est vraie.
Tandis que ... wend: boucle lorsque la condition est vraie.
Pour ... Suivant: spécifiez le nombre de boucles et répétez l'instruction à l'aide d'un compteur.
Pour chaque ... Suivant: pour chaque élément de l'ensemble ou chaque élément du tableau, répétez un ensemble d'instructions.
Regardons d'abord DO ... LOOP, qui peut exécuter des blocs d'instruction plusieurs fois (diverses fois). Répétez le bloc d'énoncé lorsque la condition est vraie ou avant que la condition ne devienne vraie. Veuillez consulter l'exemple suivant: <html> <éadfr>
<Title> Doloop.asp </Title> <Body BgColor = # FFFFF> </ Head> <p> </p>
<p> Veuillez remplir les dossiers de règlement des ventes pour chaque mois de cette année à ce mois sur cette page. <p>
<%
compteur = 1
this Month = mois (maintenant ())
Faire en comptoir <thismonth + 1
Response.Write & Counter & Mois:
Response.Write ___________________________________ & <br> <br>
Si compteur> 13 alors
sortir faire
terminer si
compteur = compteur + 1
Boucle
%>
<hr> </ body> </html>
Ce programme ASP utilise des instructions de boucle pour créer une table d'enregistrement de règlement des ventes, coupez le code ci-dessus au bloc-notes et enregistrez-le en tant que Doloop.asp et parcourez-le dans le navigateur en HTTP. Selon le mois en cours, vous verrez les résultats du chiffre ci-dessous.
Analysons ce programme. Notre objectif est d'imprimer un tableau en fonction du mois en cours. Tout d'abord, nous avons configuré un comptoir et définir sa valeur sur 1. Ensuite, nous utilisons les fonctions mois () et maintenant () pour obtenir le mois en cours, et enfin établissons une boucle. Lorsque la valeur du nombre est inférieure à la valeur du mois en cours, la valeur du mois et une ligne horizontale sont affichées et la valeur du nombre est augmentée de 1. L'instruction de boucle est répétée jusqu'à ce que les conditions ci-dessus soient fausses. Si le nombre est supérieur à 13, la sortie sera utilisée pour quitter la boucle immédiatement.
Les instructions de boucle peuvent également utiliser la syntaxe suivante:
Faire
[instructions] [Exit do]
[instructions] boucle [{while | Jusqu'à} condition]
Alors que ... des instructions Wend sont fournies aux utilisateurs qui connaissent leur utilisation. Cependant, comme si ... Wend manque de flexibilité, il est recommandé d'utiliser l'instruction DO .... Jetons un coup d'œil à la déclaration pour la prochaine. L'instruction FOR ... NEXT est utilisée pour exécuter un bloc d'instruction comme des temps spécifiés, en utilisant une variable de compteur dans une boucle, dont la valeur augmente ou diminue avec chaque boucle.
L'exemple suivant répète la procédure MyProc 50 fois. L'instruction FOR Spécifie la variable de compteur X et ses valeurs de début et de fin. L'instruction suivante ajoute la variable de compteur par 1 à chaque fois. Sous-domyproc50times ()
Dim x
Pour x = 1 à 50
Myproc
Suivant
Sub-Sub
L'étape de mot-clé est utilisée pour spécifier la valeur de la variable de compteur à chaque augmentation ou diminution. Dans l'exemple suivant, la variable de compteur J est incrémentée de 2 à chaque fois. Une fois la boucle terminée, la valeur totale est la somme de 2, 4, 6, 8 et 10.
Sub twostotal ()
Dim J, Total
Pour j = 2 à 10 étape 2
total = total + j
Suivant
La somme de Msgbox est & Total &.
Sub-Sub
Pour diminuer la variable de comptoir, définissez l'étape sur une valeur négative. À l'heure actuelle, la valeur de terminaison de la variable de compteur doit être inférieure à la valeur de départ. Dans l'exemple suivant, le MYNUM de contre-variable est décrémenté de 2 à chaque fois. Une fois la boucle terminée, la valeur totale est la somme de 16, 14, 12, 10, 8, 6, 4 et 2. Sub NewTotal ()
Dim mynum, total
Pour mynum = 16 à 2 étape -2
Total = Total + Mynum
Suivant
La somme de Msgbox est & Total &.
Sub-Sub
La sortie pour la déclaration est utilisée pour quitter l'instruction FOR ... avant le compteur n'atteigne sa valeur de terminaison. Étant donné que la boucle est généralement juste pour quitter dans certains cas spéciaux (comme lorsqu'une erreur se produit), vous pouvez utiliser la sortie de sortie pour la déclaration dans le bloc de relevé vrai de l'instruction if ... alors ... else. Si la condition est fausse, la boucle fonctionnera comme d'habitude.
Enfin, jetons un coup d'œil à la déclaration pour chaque ... Suivant, la boucle pour chaque ... est similaire à la boucle pour ... Suivant. Pour chaque ... Suivant au lieu d'exécuter une instruction comme spécifié, il répète un ensemble d'instructions pour chaque élément du tableau ou pour chaque élément de la collection d'objets. Ceci est très utile lorsque vous ne connaissez pas le nombre d'éléments dans la collection. Sa syntaxe est la suivante: pour chaque élément du groupe
[instructions]
[Sortir pour]
[instructions] Suivant [élément]
Partager: ASP enregistre les fichiers distants à local % Function SaveremOteFile (localFileName, RemoteFileUrl) SaveremoteFile = True Dim Ads, Retrieval, GetRemoData set Retrieval = Server.CreateObject (Microsoft.xmlhttp) avec la récupération .Open.