Recommandé: FileSystemObject Exemple de code Dans l'exemple de code décrit dans cette section, des exemples réels sont fournis pour illustrer bon nombre des fonctionnalités disponibles dans le modèle d'objet FileSystemObject. Ce code montre toutes les fonctionnalités de l'utilisation des modèles d'objets ensemble et comment les utiliser efficacement dans votre propre code
Tout d'abord, créez une base de données d'accès. Il y a un tableau URLindex dans la bibliothèque, où les champs URL et les mots clés sont indexés respectivement, comme suit:
| Ce qui suit est le contenu cité: Texte d'URL (index: avec (pas de duplication)) Texte de titre Description Texte Texte résumé Texte des mots clés (index: avec (pas de duplication)) |
Fichier du programme doquery.asp, code:
| Ce qui suit est le contenu cité: <Html> <A-Head> <Title> Moteur de recherche simple </TITAL> </ Head> <Corps bgcolor = # ffffff marginwidth = 0 marginheight = 0 Leftmargin = 0 topmargin = 0> <Formulaire méthode = post-action = doquery.asp? Act = search> Query: <input type = Text Name = QueryString> <br> <Type d'entrée = soumettre une valeur = soumettre> </ form> </ Center> <% tabac ACT = demande (acte) si (act = search) alors QueryString = request.form (QueryString) Querywords = Split (QueryString) strindent = 'Si la recherche est vide, retournez Si QuerryString = alors Réponse.redirect (default.asp) Terminer si Session.Timeout = 2 Si isObject (session (SiTesearch_Conn)) alors Définir Conn = Session (SiTeSearch_Conn) Autre Définir Conn = Server.CreateObject (ADODB.Connection) Conn.Open Driver = {Microsoft Access Driver (* .mdb)}; dbq = & server.mappath (database / Sitesearch.mdb) ,, Définir la session (SiTesearch_Conn) = Conn Terminer si 'Déclaration de requête sql = select * from [urlindex] où 'Champ de description de recherche SQL = SQL & ([Description] comme '% & Querywords (0) &%' 'en premier Pour i = lbound (querywords) 1 à ubound (questionnaires) Si Querywords (i) <> et ucase (querywords (i)) <> ou et ucase (querywords (i)) <> puis Si ucase (querywords (i-1)) = ou alors SQL = SQL & ou [Description] Comme «% & Querywords (i) &%» Autre SQL = SQL & et [Description] Comme «% & Querywords (i) &%» Terminer si Terminer si Suivant 'Rechercher le champ de mots clés SQL = SQL &) ou ([Mots-clés] comme '% & Querywords (0) &%' Pour i = lbound (querywords) 1 à ubound (questionnaires) Si Querywords (i) <> et ucase (querywords (i)) <> ou et ucase (querywords (i)) <> puis Si ucase (querywords (i-1)) = ou alors SQL = SQL & ou [Mots-clés] comme «% & Querywords (i) &%» Autre SQL = SQL & et [Mots-clés] comme «% & querywords (i) &%» Terminer si Terminer si Suivant 'Rechercher des champs de titre SQL = SQL &) ou ([Titre] comme '% & Querywords (0) &%' Pour i = lbound (querywords) 1 à ubound (questionnaires) Si Querywords (i) <> et ucase (querywords (i)) <> ou et ucase (querywords (i)) <> puis Si ucase (querywords (i-1)) = ou alors sql = sql & ou [title] comme '% & querywords (i) &%' Autre SQL = SQL & et [Titre] comme '% & Querywords (i) &%' Terminer si Terminer si Suivant 'Rechercher des champs de résumé SQL = SQL &) ou ([Résumé] comme '% & Querywords (0) &%' Pour i = lbound (querywords) 1 à ubound (questionnaires) Si Querywords (i) <> et ucase (querywords (i)) <> ou et ucase (querywords (i)) <> puis Si ucase (querywords (i-1)) = ou alors SQL = SQL & ou [Résumé] comme «% & Querywords (i) &%» Autre SQL = SQL & et [Résumé] comme «% & Querywords (i) &%» Terminer si Terminer si Suivant SQL = SQL &) ' Set rs = server.createObject (adodb.recordSet) Rs.Open SQL, Conn, 3, 3 Réponse.write <br> <b> Vous recherchez: </b> & quereystring Réponse.write <br> <b> Recherchez des mots clés: </b> Pour i = lbound (querywords) à ubound (questionnaires) Réponse.write <br> & strindent & i &: & querywords (i) Suivant 'Imprimez la chaîne SQL Response.Write <br> <b> SQL Déclaration: </b> & sql 'Imprimez les résultats Response.write <br> <b> Résultat: </b> <ul> Sur l'erreur reprendre ensuite Rs.MoveFirst Faire tout en pas Rs.Eof Réponse.write <br> & <a href = 'openPage.asp? IndexUrl = & rs.fields (url) .value &'> & rs.fields (titre) & </a> - Response.Write Rs.fields (Description) & <br> Response.Write <Font Size = 2> URL: & Rs.fields (URL) & </font> Response.Write <Hr Taille = 1 Width = 200 Align = Left> Rs.MovEnext Boucle Réponse.Write </ul> terminer si %> </docy> </html> |
Partager: comment créer une page de vérification de connexion Script de vérification de la connexion de l'utilisateur, chkpwd.asp Ce qui suit est le contenu référencé:% '========= Script de vérification de la connexion de l'utilisateur ======' Si l'objet passé n'est pas encore défini, il est défini comme faux, indiquant qu'il n'y a pas