Buscar y consultar código fuente
(1) Primero use access97 para crear una base de datos llamada list.mdb y cree una tabla llamada list en ella. Luego, ingrese algunos nombres de archivos que desea consultar en la lista, así como las palabras clave y los enlaces correspondientes. A continuación se establecen cuatro proyectos ID (número), título (tema), palabra (palabra clave) y url (dirección del enlace), como se muestra en la siguiente tabla:
ID título texto url
1 tutorial de cgi depuración local cgi cgi/testcgi.htm
2 Sala de chat del centro de descargas, descarga del libro de visitas/index.htm
(2) Una vez establecida la base de datos, puede crear Su página de búsqueda asp. El siguiente es el programa fuente de una página de búsqueda ASP, el nombre del archivo es search.htm. Este motor de búsqueda puede buscar tanto títulos como contenido de palabras. Por supuesto, puedes crear más búsquedas si es necesario:
lt! -# INCLUDE file = " adovbs . Inc " - gt;
lt "Establece una conexión a la base de datos.
con = " DBQ = " server . mappath(" list . MDB " ) "default dir = DIRVER = {Microsoft Access Driver (*.MDB)}"
"Cree un objeto de conexión y abra la base de datos.
set mycon = server . createobject("ADODB.Connection")
mycon open .
"Crear una rutina de objeto de conjunto de registros, abrir el archivo. objeto recordset y pase la cadena SQL y toda la información de conexión
lt set RS = server . createobject(" ADODB. Recordset")
rs.open "SELECT*FORM. List, con. títulos y palabras como '' amprequest . form(" word ") & "", MyCon, adOpenStatie
gt
"Después de crear la información de visualización de la consulta y la página de consulta, usted puedes nombrarlo como quieras.
lthtml gt lthead gt lttitle gt resultados de la consulta
ltbody bgcolor = " # ffffff " gt
ltp align="center " > ltbr gt
"Consulta estadística * * *Sí
ltdiv align="center " > ltcentergt
lttable border = " 1 " align = " center " border color = " 000000 " berdorcoorlight = " # 000000 " bordercolordark = " # ffffff " gt;
lttr align="center "
ltTD width = " 20 " align = " center " bgcolor = " # ffffff " gt. ID lt/TD gt;
ltTD width = " 60 " align = " center " bgcolor = " # ffffff " gt. Tema
ltTD width = " 20 " align = " center " bgcolor = " # ffffff " gt. ;
lttr align="center "
lt! - Extraer información de la base de datos - gt
lt mientras no rs.eof gt
lttr align="center "
ltTD width = " 20 " align = " center " bgcolor = " # ffffff " gt = RS(" id ") gt; gt;
ltTD ancho = " 60 " align = " centro " bgcolor = " # ffffff " gt. lt = RS(" título ") gt; lt/TD gt;
ltTD ancho = " 20 " align = " center " bgcolor = " # ffffff " gt. lta href = " lt =rs("url") > gtGO lt/a gt; lt/TD gt;
lt rs.movenext gt lt/tr gt; lt wend gt lt/table gt; lt /center gt; lt/div gt; lt rs.close gt
lt mycon.close gt
"Cerrar enlace
lt/body gt; lt/ html gt;
Construyamos una página de búsqueda.
lthtml gt lthead gt lttitle gtPágina de búsqueda
lt! -Crear tabla de búsqueda-gt;
ltfrom método = " POST " acción = " búsqueda . ASP " gt;
ltdiv align="center " > ltcentergt ltp gt ltinput type = " texto " nombre = " palabra " tamaño = " 30 " >> tipo de entrada = " enviar " valor = " enviar " nombre = " b 1 " > tipo de entrada = " restablecer " valor = " borrar " nombre = " B2 " gt; lt/p gt;
lt/centro gt; lt/div gt;
lthr width="600" align= "centro "
lthtml gt
Bien, el motor de búsqueda del sitio está completo aquí. ¡Lo siguiente que tienes que hacer es ingresar cosas en la base de datos!