Construisez d'abord une base de données d'accès.
| Ce qui suit est le contenu de référence: Texte d'URL (index: là (pas de duplication)) Texte de titre Texte de descriptions Texte résumé Texte des mots clés (index: là (pas de duplication)) |
Fichier du programme doquery.asp, code:
| Ce qui suit est le contenu de référence: <Html> <A-Head> <Title> Moteur de recherche simple </TITAL> </ Head> <Bodybgcolor = # ffffffffmarrinwidth = 0marginheight = 0 LeftMargin = 0Topmargin = 0> <FormMethod = postaction = doquery.asp? Requête: <putype = textName = queRystring> <br> <portType = soumedValue = soumed> </ form> </ Center> <% tabac ACT = demande (acte) si (act = search) alors QueryString = request.form (QueryString) Querywords = Split (QueryString) Strindent = 'Si la recherche est vide, retournez Ifquerystring = alors Réponse.redirect (default.asp) Endire Session.Timeout = 2 IfisObject (session (SiTesearch_Conn) puis) puis) SetConn = session (SiTeSearch_Conn) Autre SetConn = server.createObject (adodb.connection) Conn.OpenDriver = {MicrosoftAccessDriver (*. MDB)}; SetSession (Sitesearch_Conn) = conn Endire 'Déclaration de requête sql = select * from [urlindex] où 'Recherchez le champ description SQL = SQL & ([Description] comme '% & Querywords (0) &%' en premier Fori = lbound (question de questionnaires) + 1Toubound (queywords) Ifquerywords (i) <> anduCase (querywords (i)) <> orangewords (i)) Ifucase (querywords (i-1)) = orthhen SQL = SQL & ou [Description] Comme «% & Querywords (i) &%» Autre SQL = SQL & et [Description] Comme «% & Querywords (i) &%» Endire Endire Suivant 'Rechercher le champ de mots clés SQL = SQL &) ou ([Mots-clés] comme '% & Querywords (0) &%' Fori = lbound (question de questionnaires) + 1Toubound (queywords) Ifquerywords (i) <> anduCase (querywords (i)) <> orangewords (i)) Ifucase (querywords (i-1)) = orthhen SQL = SQL & ou [Mots-clés] comme «% & Querywords (i) &%» Autre SQL = SQL & et [Mots-clés] comme «% & querywords (i) &%» Endire Endire Suivant `` Champ de titre de recherche SQL = SQL &) ou ([Titre] comme '% & Querywords (0) &%' Fori = lbound (question de questionnaires) + 1Toubound (queywords) Ifquerywords (i) <> anduCase (querywords (i)) <> orangewords (i)) Ifucase (querywords (i-1)) = orthhen Sql = sql & ou [title] comme '% & querywords (i) &%' Autre SQL = SQL & et [Titre] comme '% & Querywords (i) &%' Endire Endire Suivant 'Champ de résumé de recherche SQL = SQL &) ou ([Résumé] comme '% & Querywords (0) &%' Fori = lbound (question de questionnaires) + 1Toubound (queywords) Ifquerywords (i) <> anduCase (querywords (i)) <> orangewords (i)) Ifucase (querywords (i-1)) = orthhen SQL = SQL & ou [Résumé] comme «% & Querywords (i) &%» Autre SQL = SQL & et [Résumé] comme «% & Querywords (i) &%» Endire Endire Suivant SQL = SQL &) ' Setrs = server.createObject (adodb.oldset) Rs.OpenSQL, Conn, 3,3 Réponse.write <br> <b> Ce que vous avez recherché est: </b> & querystring Response.Write <br> <b> Rechercher des mots clés: </b> Fori = lbound (querywords) toubnsnd (querywords) Réponse.write <br> & strindent & i &: & querywords (i) Suivant 'PrintThesqlstring Response.Write <br> <b> SQL Déclaration: </b> & sql 'PrintTheResults Response.write <br> <b> Résultat: </b> <ul> Onerrersumenext Rs.Movefired Dowhilenotrs.eof Response.Write <br> & <ahref = 'openPage.asp? Response.Writers.Fields (Description) & <br> Réponse.Write <Fontsize = 2> URL: & Rs.fields (URL) & </font> Response.Write <Hrsize = 1Width = 200Align = Left> Rs.MovEnext Boucle Réponse.Write </ul> endire %> </docy> </html> |