Recommandé: Révaluez la méthode secrète pour résoudre le problème de la suppression accidentelle des fichiers ASP du logiciel antivirus Certains logiciels antivirus suppriment souvent certains fichiers ASP sous forme de virus, et parfois il est impossible de les empêcher. Le programme est inexplicablement incapable de l'utiliser car il y a moins de fichiers ~~. Cela est principalement dû au fait que le logiciel antivirus traite certains codes ASP comme des mots clés de Troie et enregistre des enregistrements, donc quand il y a ce mot-clé, il sera interdit d'exécuter ou de supprimer. La solution consiste à donner ces mots clés à
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:| 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:
| <Html> <A-Head> <Title> Moteur de recherche simple </TITAL> </ Head> <Bodybgcolor = # ffffffmarginwidth = 0marginheight = 0 LeftMargin = 0Topmargin = 0> <FormMethod = PostAction = DoQuery.asp? Act = Search> 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 SetConn = session (SiTeSearch_Conn) Autre SetConn = server.createObject (adodb.connection) Conn.opendriver = {Microsoft AccessDriver (*. MDB)}; dbq = & server.mappath (Database / Sitesearch.mdb) ,, SetSession (Sitesearch_Conn) = conn Endire 'Déclaration de requête sql = select * from [urlindex] où 'Champ de description de recherche SQL = SQL & ([Description] comme '% & Querywords (0) &%' 'en premier Fori = lbound (question de questionnaires) + 1Toubound (queywords) IfQuerywords (i) <> anduCase (querywords (i)) <> oranducase (querywords (i)) <> et là 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)) <> oranducase (querywords (i)) <> et là 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 'Rechercher des champs de titre SQL = SQL &) ou ([Titre] comme '% & Querywords (0) &%' Fori = lbound (question de questionnaires) + 1Toubound (queywords) IfQuerywords (i) <> anduCase (querywords (i)) <> oranducase (querywords (i)) <> et là Ifucase (querywords (i-1)) = orthhen sql = sql & ou [title] comme '% & querywords (i) &%' Autre SQL = SQL & et [Titre] comme '% & Querywords (i) &%' Endire Endire Suivant |
Partager: révéler les 17 codes typiques de base de la programmation ASP 1. Méthode pour ASP pour obtenir des données d'entrée de table: getPost 1.get: Une fois l'utilisateur a ajouté les données à l'URL, le format est "?
2 pages de la page suivante de la page suivante précédente