Recomendado: entusiastas de la web dinámica: filtrado de función ASP HTML El código HTML de filtrado ASP es el siguiente contenido referenciado: Función Remouthtml (STHTML) Dim objregExp, coincida, coincide con objregexp = new Regexp OBJ
Un ejemplo de producción estadística que puede numerar a los visitantes, un número récord de visitas, IP y tiempo
Tomo la biblioteca de acceso como ejemplo. De hecho, si usa la biblioteca del servidor SQL, simplemente cambie las declaraciones de la biblioteca de enlaces. La estructura de la biblioteca es la siguiente
Nombre del archivo de la biblioteca: Cont.asp fue originalmente cont.mdb, pero después de la compilación, la extensión se cambió a ASP para evitar que la biblioteca se descargara.
Nombre de la tabla: pestaña
Nombre de campo Tipo de datos Descripción
ID automáticamente numera el número de visitante
El texto IP se utiliza para grabar la IP del visitante
La hora de fecha de DAT1 se utiliza para registrar el último visitante del visitante
La hora de la fecha se utiliza para registrar la hora en que el visitante visita primero
Número CS, tipo entero se usa para grabar visitas de visitantes
El programa es muy simple, con solo dos archivos. Dispcont.asp se utiliza para mostrar resultados estadísticos, y Contpage.asp se utiliza para mostrar información estadística.
Primero veamos las estadísticas de contpage.asp, el código es el siguiente:
| El siguiente es el contenido citado: <% Establecer conn = server.createObject (ADODB.Connection) Connstr = dbq = server.mappath (cont.asp); defaultDir =; driver = {Microsoft Access Driver (*.mdb)}; Conn.open Connstr '' *** La instrucción anterior se usa para conectarse a la biblioteca, y cont.asp es el nombre del archivo de la biblioteca. keren = request.cookies (keren) '' Lea las cookies, el nombre de las cookies es: Keren, jaja. . Lo apestoso de la literatura E de Ayu es que solo sabe cómo usar Pinyin. Si keren = entonces '' juzga si las cookies están vacías. Si están vacíos, deben ser nuevos amigos, de lo contrario son viejos amigos. SQL = SELECCIONAR * DESDE TAB WHERE ID = -1 establecer rs = server.createObject (ADODB.RecordSet) Rs.open SQL, Conn, 1, 3 Rs.AddNew '' Si es un nuevo visitante, agregue un nuevo registro en la biblioteca. RS (CS) = 1 '' Nota El número de visitas es 1 rs (ip) = request.ServerVariAbles (remota_addr) '' Dígame la IP, rs (dat) = ahora '' diga la fecha y hora actuales, rs (dat1) = date '' diga la fecha actual, y la fecha que se utilizará para la primera visita en el futuro. Response.cookies (keren) = rs (id) '' Escriba una cookie y el contenido es el mismo que el ID. Response.cookies (keren) .expires = fecha 365 '' Establezca la fecha válida de las cookies a partir de ahora, 365 días, De lo contrario, lo anterior es la forma de tratar con nuevos amigos. ¿Qué debo hacer con los viejos amigos? Mira lo siguiente: SQL = SELECCIONAR * DESDE TAB WHERE ID = & KEREN '' Vaya a la biblioteca para encontrar los registros de nuestros viejos amigos establecer rs = server.createObject (ADODB.RecordSet) Rs.open SQL, Conn, 1, 3 RS (CS) = RS (CS) 1 '' está bien, encontrado, agregue 1 visitas RS (IP) = request.ServerVariables (Remote_addr) '' Vea cuál es su IP y escríbela. rs (dat) = ahora '' dime la hora actual, es decir, la hora de la última visita, Response.cookies (keren) = rs (id) '' Luego escriba cookies. No sé si esta oración es redundante, así que no lo probé. Response.cookies (keren) .Expires = fecha 365 '' Establezca el tiempo de vencimiento de las cookies para que no lo reconozca si llega un año. final si Rs.Update '' He grabado todo lo que debo recordar, actualice la biblioteca. rs.Clase '' Cierre el objeto de conjunto de registros. Establecer Conn = Nothing '' Release Conn, todavía creo que la conexión debe activarse y desactivarse lo antes posible. Creo que es el más indeseable ponerlo en sesión. 4 %> |
De acuerdo, el registro está hecho, hay más de veinte líneas de código, un programa pequeño muy simple. Después de escrito el programa, ¿cómo se puede colocar en la página? Es muy simple. Simplemente encuentre un lugar en la página de inicio y agregue esta línea de código: <img src = contpage.asp width = 0 altura = 0>.
El siguiente paso es mostrar el registro.
Nombre del archivo: dispcont.asp, consulte el código:
| El siguiente es el contenido citado: <% Establecer conn = server.createObject (ADODB.Connection) Connstr = dbq = server.mappath (cont.asp); defaultDir =; driver = {Microsoft Access Driver (*.mdb)}; Conn.open Connstr '' *** La instrucción anterior se usa para conectarse a la biblioteca, y cont.asp es el nombre del archivo de la biblioteca. Page3 = solicitud (PAG) if página3 = entonces página3 = session (contpag) '' Número de páginas, página actual if página3 = entonces página3 = 1 PA = solicitud (PA) if pa = entonces pa = session (contpa) '' Número de pantalla por página Si PA = entonces PA = 15 '' por defecto, se muestran 15 elementos por página y se pueden cambiar a voluntad sesión (contPag) = Page3 sesión (contpa) = pa Páginas = PA '' Número de visualización por página ******************* El programa anterior se utiliza para implementar la función de paginación SQL = SELECT * DEL ORDER DE TAB BY -DAT, -ID Dim RS Establecer rs = server.createObject (ADODB.RecordSet) Rs.open SQL, Conn, 1,1 CSI = 0 CS1 = 0 CS100 = 0 CSDAT1 = 0 haz mientras no rs.eof CSI = CSI RS (CS) Si RS (CS) = 1 entonces CS1 = CS1 1 Si RS (CS)> = 100 entonces CS100 1 if dateValue (RS (DAT)) = fecha entonces CSDAT1 = CSDAT1 1 final si Rs.Movenext bucle Zs = rs.RecordCount '' ******************************************** 8 El siguiente programa se usa para la pantalla de paginación %> <Evista> <title> estadísticas en línea </title> </ablo> <Body Style = Font-Size: 9PT BGColor =#D8EDF8> Hay un total de <%Respuesta.WRITE ZS%> registros, y ahora el <%Response.Write Page3%> Página muestra cada página: [<<a href = dispcont.asp? Pag = <%= page3%> & pa = 15> 15], [<a href = dispcont.asp ?p? Pag = <%= page3%> & pa = 20> 20], [<a a a a a que href = dispcont.asp? pag = <%= page3%> & pa = 30> 30], [<a href = dispcont.asp? pag = <%= page3%> & pa = 40> 40] [<a href = dispcont.asp> actualizar] <Div align = izquierda> <tabla border = 0 cellPadding = 0 style = font-size: 9pt> <tr> <TD> Número de página </td> <%Page2 = 1 para i = 1 a ZS PAGE PAGAS if page3 = cstr (página2) entonces %> <td> [<%Response.Write Page2%>] </td> < % else %> <TD> <a href = dispcont.asp? pag = <%respuesta.write Page2%>> [<%Response.Write Page2%>] </td> <% final si Page2 = Página2 1 próximo Sn = páginas * (página3-1) '' Número de registro actual = número de visualización por página * Número de páginas - Número de visualización por página Si sn> zs entonces sn = 0 Rs.Move Sn, 1 '' ************************************ %> </tr> </table> </div> <table style = font-size: 9pt width = 100% borderColorlight =#000000 border = 1 borderCollark =#fffff bgcolor =#a4d1e8 cellpacing = 0 cellPadding = 3> <tr> <td> número </td> <td> Última visita a la página de inicio </td> <td> Última visita a IP </td> <td> Número de página de inicio </td> <td> Número de la primera fecha de visita </td> </tr> <% para i = 1 a las páginas Response.Write </tr> Response.Write <TD> & RS (ID) & </td> Response.Write <TD> & RS (DAT) & </td> Response.Write <TD> & RS (IP) & </td> Response.Write <TD> & RS (CS) & </td> Response.Write <TD> & RS (DAT1) & </td> Response.Write </tr> Rs.Movenext Si rs.Eof entonces salga por próximo rs. %> <tr> <td> total <%= zs%> </td> <td> El número de visitas es más de 100 veces <%= CS100%> </td> <td> El número de visitas es 1: <%= CS1%> </td> <TD> El número total de visitas es <%= CSI%> </ td> <td> hoy: las visitas: <%= csdat1%> </td> </tr> </table> |
'' ************************************************ La pantalla completa es la pantalla completa. Todos están disponibles. No se considera ningún registro ni situación.
Compartir: Juego de Tetris escrito en ASP El siguiente es el contenido referenciado: <%si no request.queryString (ven) = t entonces%> <html> <fead> <meta nombre