Recomendado: Código de muestra de FilesystemObject En el código de muestra descrito en esta sección, se proporcionan ejemplos de la vida real para ilustrar muchas de las características disponibles en el patrón de objetos del sistema de archivos. Este código muestra todas las características de cómo usar patrones de objetos juntos y cómo usarlos de manera efectiva en su propio código
Primero, cree una base de datos de acceso. Hay una tabla de URLINDEX en la biblioteca, donde los campos de URL y palabras clave están indexados respectivamente, de la siguiente manera:
| El siguiente es el contenido citado: Texto de URL (índice: sin duplicación)) Texto de título Descripción Texto Texto resumido Texto de palabras clave (índice: sin duplicación)) |
Archivo de programa doquery.asp, código:
| El siguiente es el contenido citado: <html> <fead> <title> Simple Search Engine </title> </head> <Body bgcolor =#ffffff marginwidth = 0 marginheight = 0 LeftMargin = 0 topmargin = 0> <Form Method = Post Action = doQuery.asp? Act = Search> Consulta: <input type = text name = QueryString> <br> <Entrada tipo = enviar value = enviar> </form> </Center> <% acto de mal ACT = solicitud (ACT) if (act = buscar) entonces QueryString = request.form (QueryString) QueryWords = Split (Querystring) Strindent = 'Si la búsqueda está vacía, regrese Si QueryString = entonces Response.Redirect (default.asp) Final si Session.timeout = 2 If isObject (session (sitesearch_conn)) entonces Establecer Conn = Session (Sitesearch_Conn) Demás Establecer conn = server.createObject (ADODB.Connection) Conn.open Driver = {Microsoft Access Driver (*.mdb)}; dbq = & server.mappath (base de datos/sitesearch.mdb) ,, Establecer sesión (Sitesearch_Conn) = Conn Final si 'Declaración de consulta sql = select * de [urlindex] donde 'Campo de descripción de búsqueda sql = sql & ([descripción] como ' % & QUERYWORDS (0) & %' 'Primero Para i = lBound (Querywords) 1 a Ubound (Querywords) Si QueryWords (i) <> y UCase (QueryWords (i)) <> o y UCase (Querywords (i)) <> y luego Si UCase (QueryWords (I-1)) = o luego sql = sql & o o [descripción] como ' % & Querywords (i) & %' Demás sql = sql & y [descripción] como ' % & consultywords (i) & %' Final si Final si Próximo 'Buscar el campo Palabras clave sql = sql &) o ([palabras clave] como ' % & Querywords (0) & %' Para i = lBound (Querywords) 1 a Ubound (Querywords) Si QueryWords (i) <> y UCase (QueryWords (i)) <> o y UCase (Querywords (i)) <> y luego Si UCase (QueryWords (I-1)) = o luego sql = sql & o [palabras clave] como ' % & consultywords (i) & %' Demás SQL = SQL y y [Palabras clave] como ' % & Querywords (i) & %' Final si Final si Próximo 'Buscar campos de título sql = sql &) o ([título] como ' % & Querywords (0) & %' Para i = lBound (Querywords) 1 a Ubound (Querywords) Si QueryWords (i) <> y UCase (QueryWords (i)) <> o y UCase (Querywords (i)) <> y luego Si UCase (QueryWords (I-1)) = o luego sql = sql & o o [title] como ' % & Querywords (i) & %' Demás SQL = SQL y y [Título] como ' % & Querywords (i) & %' Final si Final si Próximo 'Buscar campos de resumen sql = sql &) o ([resumen] como ' % & Querywords (0) & %' Para i = lBound (Querywords) 1 a Ubound (Querywords) Si QueryWords (i) <> y UCase (QueryWords (i)) <> o y UCase (Querywords (i)) <> y luego Si UCase (QueryWords (I-1)) = o luego sql = sql & o [resumen] como ' % & Querywords (i) & %' Demás sql = sql & y [resumen] como ' % & Querywords (i) & %' Final si Final si Próximo sql = sql &) ' Establecer rs = server.createObject (ADODB.RecordSet) Rs.open SQL, Conn, 3, 3 Response.Write <br> <b> Estás buscando: </b> y Querystring Response.write <br> <b> Busque palabras clave: </b> Para i = lBound (QueryWords) a Ubound (QueryWords) Response.Write <br> & Strindent & I &: & Questwords (i) Próximo 'Imprima la cadena SQL Response.Write <br> <b> Declaración SQL: </b> y SQL 'Imprima los resultados Respuesta.Write <br> <b> Resultado: </b> <ul> En el currículum de error siguiente Rs.MoveFirst Haz mientras no rs.eof Response.write <br> & <a href = 'OpenPage.asp? Indexurl = & rs.fields (url) .value &'> & rs.fields (título) y </a> - - - - - Response.WRITE RS.FIELDS (Descripción) y <br> Response.write <font size = 2> url: & rs.fields (url) y </font> Respuesta.Write <HR size = 1 ancho = 200 align = izquierda> Rs.Movenext Bucle Response.Write </ul> final si %> </body> </Html> |
Compartir: Cómo crear una página de verificación de inicio de sesión Script de verificación de inicio de sesión del usuario, chkpwd.asp El siguiente es el contenido referenciado: % '========= Script de verificación de inicio de sesión de usuario =====' Si el objeto aprobado aún no está definido, se define como falso, lo que indica que no hay que no hay