Recomendado: Cómo usar ASP para eliminar tres puntajes más altos y tres puntajes más bajos Pregunta: ¿Cómo usar ASP para eliminar los tres puntajes más altos y tres puntajes más bajos? Solución: 1. Ordene la matriz completa y elimine los tres valores máximos y tres valores mínimos en ambos extremos (¡propuesto por otro interno!) 2. Seleccione los tres números más grandes y tres números más pequeños, y
Todos saben que las páginas web estáticas HTML tienen más probabilidades de ser indexadas por los motores de búsqueda. de las páginas web? Creo que todos también lo saben.
Para esto, decidí cambiar los métodos anteriores de construcción del sitio web y diseño web.
Método de reemplazo de etiquetas: esta es la definición que entiendo personalmente.
El método de reemplazo de la etiqueta es colocar las etiquetas establecidas en la plantilla web diseñada y luego reemplazarlas con las cosas que necesita mostrar. como
Plantilla archivo 1
Guardamos esta plantilla en la tabla de la base de datos tentable
<html>
<Evista>
<title> {$ Sitename} </title>
</ablo)
<Body>
{$ Arc_list $}
</body>
<html>
En la plantilla anterior, he puesto dos etiquetas {$ Sitename} Nombre del sitio web y lista de artículos {$ arc_list $}, y luego mira el siguiente código
<%
Dim RS, Sitename, Arc_list, FSO, MyFile, FilePath, HTML
Sitename = mi primera página HTML generada dinámicamente
Filepath = server.mappath (/html/index.html)
establecer rs = server.createObject (ADODB.RecordSet)
Rs.openselect [temp] de Temptable, Conn, 1,1
html = rs (temp) 'Leer plantilla de página web
rs.
html = reemplazar (html, {$ sitename}, sitename) 'reemplazar {$ sitename} etiqueta con un nombre de sitio personalizado
html = html & reemplazar (html, {$ arc_list $}, get_arclist ()) 'Reemplace la etiqueta {$ arc_list $} con la función get_arclist () personalizada
establecer RS = nada
Conn.clar
establecer conn = nada
establecer fso = createObject (*** ing.filesystemObject) 'Crear un objeto del sistema de archivos
Establecer myFile = fso.createTextFile (filePath, true) 'Crear archivo
MyFile.WriteLine (HTML) 'Escriba el código HTM en el archivo
MyFile.Close 'Archivo cerrado
Establecer myFile = Nothing 'Relale el objeto Archivo
establecer fso = nada 'Relase el objeto del archivo del sistema
Response.Write <*** language = 'java ***'> window.alert ('File Generation fue exitoso'); </ ***>
respuesta.end ()
Función get_arclist ()
Dim str, str1
str1 =
str = <ul> {list} </ul>
Rs.Penselect Título, URL de ARC
mientras que no rs.eof
str1 = str1 & <li> <a href = & rs (url) &> & rs (título) y </a> </li>
Rs.Movenext
encaminarse a
rs.
str = reemplazar (str, {list}, str1)
get_arclist = str
%>
Función final
¿El método anterior es muy simple? . . Jaja, Yu ahora está trabajando en una empresa de construcción de sitios web.
Compartir: Use ASP para realizar la función de la traducción de artículos en línea A veces quiero proporcionar soporte de varios idiomas para nuestras páginas web. . lan.htm