Recommandé: certains codes ASP qui méritent d'être collectés Certains codes ASP qui valent la valeur de certains codes ASP qui valent la valeur de 1. OnContextMenu = window.event.returnvalue = false bloquera complètement la bonne bordure de la table de bouton de souris OnContextMenu = return (false) tdno / table peut être utilisé pour le tableau 2. Body onselectStart = return False SELECT SELECT SELECT SELECT.
Afin de pouvoir utiliser correctement, ils doivent être placés dans une application virtuelle sur le serveur et le fichier global.asa fourni doit être placé dans le répertoire racine de l'application. Le moyen le plus simple consiste à mettre le fichier global.asa dans le répertoire racine du site Web par défaut (par défaut, c: / inetpub / wwwroot).
Renommer tout fichier global.asa existant est un bon moyen de restaurer le fichier plus tard.
1. Afficher le contenu de la collection d'applications
L'objet Aspcounter est un membre de la collection StaticObjects (défini par l'élément <objet>), mais le reste (instifié par le serveur.CreateObject) sont des membres de la collection de contenu.
Vous pouvez voir les valeurs placées dans ces collections à l'aide de la page Web Global.asa, qui a été vue auparavant:
Ce qui suit est le contenu cité: ＜! - Déclarez l'instance de la composante Aspcounter avec Portée au niveau de l'application // - ＞ ＜ ID d'objet = AspCounter Runat = Scope du serveur = applicatOin PROGID = MSWC.COUNTER ＞ ＜ / objet ＞ ... ... ＜ Script Language = VBScript Runat = Server ＞ Sub application_onstart () «Créez une instance d'une connexion ADO avec la portée au niveau de l'application Définir l'application (adoconnection) = server.createObject (adodb.connection) Dim Vararray (3) 'Créez un tableau variant et remplissez-le varArray (0) = c'est un VarArray (1) = tableau des variantes varArray (2) = stocké dans le varArray (3) = objet d'application Application (variant_array) = VarArray 'Stockez-le en application THD Application (start_time) = cstr (maintenant) 'stocker la date / heure en tant que chaîne Application (Visit_Count) = 0 'Set Counter Variable à zéro Sub-Sub ... ... ＜ / script ＞ |
(1) Code pour traverser la collecte des contenus
Pour traverser la collection de contenus, A pour chaque ... la prochaine structure peut être utilisée. Chaque élément de l'ensemble peut être une variable de type variante simple, un tableau variant ou une référence à un objet. Étant donné que différents traitements sont requis pour chaque type de valeur, chaque type doit être vérifié pour déterminer son type.
Ce travail peut être effectué en utilisant la fonction VARTYPE dans VBScript. Ici, les fonctions isObject et IsArray sont utilisées à la place:
Ce qui suit est le contenu cité: Pour chaque objitem en application. Si isObject (application.contents (objitem)) alors Réponse.Write Object Reference: '& Objitem &' Elseif isArray (application.contents (objitem)) puis Réponse.Write Array: '& Objitem &' Contenu sont: VarArray = application.contents (objitem) «Remarque: ce qui suit ne fonctionne qu'avec un tableau unidimensionnel Pour intloop = 0 à ubound (varArray) Response.Write Index (& intloop &) = & _ VarArray (Intloop) et Suivant Autre Réponse.Write Variable: '& objitem &' = _ & Application.contents (objitem) & Terminer si Suivant |
Notez comment le programme récupère le tableau à partir de l'objet d'application. Attribuez-le à une variable locale, en utilisant l'énoncé suivant:
varArray = application.contents (objitem)
Utilisez la fonction ubound pour découvrir la taille du tableau (nombre d'éléments), et cette valeur peut être utilisée comme condition de terminaison de la traversée:
Pour intloop = 0 ubound (varArray)
Cet exemple est un tableau unidimensionnel et affichera uniquement le contenu d'un tel tableau. Le code peut être modifié au besoin pour gérer les tableaux multidimensionnels, par exemple:
Ce qui suit est le contenu cité: Pour intloop = 0 à ubound (varArray) IntNumberofdimensions = ubound (Vararray, 1) Pour intdimension = 0 à intnumberofdimensions Response.Write Index (& intloop &) = _ & VarArray (intloop, intdimension) Suivant Réponse. Suivant |
(2) Code pour traverser la collection StaticObjects
La collection StaticObjects contient toutes les références d'objets déclarées à l'aide d'éléments <objet> dans global.asa. Étant donné que chaque entrée est une variable d'objet, vous pouvez utiliser du code plus simple pour traverser ce tableau. Nous publierons le nom de l'objet (définition d'origine dans l'attribut ID):
Ce qui suit est le contenu cité: Pour chaque objitem dans l'application. Si IsObject (application.staticObjects (objitem)) alors Response.Write ＜ Object ＞ élément: id = '& objitem &' Terminer si Suivant |
Partager: syntaxe commune de 11 bases de données dans la programmation ASP Cet article présente principalement la syntaxe commune pour les connexions ASP à 11 bases de données. Pour plus de détails, veuillez vous référer aux éléments suivants: 1. Méthode de connexion sans dsn-insensée Base de données d'accès: Ce qui suit est le contenu référencé: SET ADOCON = Server.CreateObject (ADODB.Connection) Adoconn.OpenDriver = {Microsoft Access Driver (*. MDB)}; Dbq = _ server.mappath
2 pages de la page suivante de la page suivante précédente