Recommandé: ASP 3.0 Advanced Programming (38) 8.3.3 L'utilisation de l'état de connexion pour enregistrer les chaînes de connexion dans les variables d'application est une astuce courante, et elle est aussi efficace que d'utiliser un fichier inclus. Par exemple, vous pouvez ajouter le code suivant au fichier global.asa: sub application_onstart () strConn = "
Vous trouverez ci-dessous le tableau URLindex dans la bibliothèque: les champs URL et les mots clés ont été indexés respectivement.
| 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)) |
doquery.asp
| <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: ASP Tip Exemple: À propos du programme de formulaires d'exploitation Ce qui suit est le contenu référencé: l'insertion du contenu du formulaire dans la base de données avec ASP. <% '- Loader.asp -' - version 1.5.2