Recomendado: Métodos para analizar varios tipos de archivos de datos en ASP 1. Cree un objeto MDBRecordSet. Una base de datos MDB es una base de datos completa que puede contener varias tablas de datos. En esta función, la función de la conexión es conectarse a la base de datos, y la función de registro es abrir la tabla de datos. Function createMDBrecordSet (nombre del archivo de la base de datos, nombre de la tabla de datos o instrucción SELECT) Dim Conn, Provider, DBPAT
Formato de visualización:
Nombre de identificación | Nombre de identificación
1 Julieta | 2 Palyboy
3 bebé | 4 Tom
5 Lena | 6 Jery
Número de páginas antes y después: 1/4 6 ítems/Total número de registros en las páginas: 25 elementos
Código:
<!-#include file = conn.asp-> <html> <Body bgcolor =#fffff text =#000000> <ancho de tabla = 60% border = 1 alinearse = Center> <% Dim RS Dim SQL msg_per_page = 4 'Defina el número de registros que se muestran por página establecer rs = server.createObject (ADODB.RecordSet) sql = seleccionar * de la página orden por id 'Cambiarlo en su propia declaración SQL Rs.CursorLocation = 3 'El uso de cursores del cliente puede mejorar la eficiencia rs.pagesize = msg_per_page 'Defina el registro de la página Conjunto de registros Número de registros por página Rs.open SQL, Conn, 0,1 if Err.number <> 0 entonces 'Manejo de errores Response.WRITE La operación de la base de datos Falló: & Err.Description Err.Clear demás Si no (Rs.Eof y Rs.BoF), entonces 'detecta si el conjunto de registros está vacío TotalRec = Rs.RecordCount 'TotalRec: Número total de registros Si Rs.RecordCount Mod MSG_PER_PAGE = 0 entonces 'Calcule el número total de páginas, RecordCount: el número total de registros de datos n = Rs.RecordCount/MSG_PER_PAGE 'N: Número total de páginas demás n = Rs.RecordCount/Msg_per_Page+1 final si currentPage = request (página) 'CurrentPage: página actual Si CurrentPage <> entonces CurrentPage = Cint (CurrentPage) Si CurrentPage <1 entonces CurrentPage = 1 final si Si err.number <> 0 entonces Err.Clear CurrentPage = 1 final si demás CurrentPage = 1 Final si Si CurrentPage*msg_per_page> totalRec y no ((currentPage-1)*msg_per_page <totalRec) entonces CurrentPage = 1 final si Rs.AbsolutePage = CurrentPage 'AbsolutePage: Establezca el puntero al comienzo de una página RowCount = Rs.Pagesize 'PageSize: Establezca el número de registros de datos para cada página Dim I atenuante %> <TR align = Center Valign = Middle> <td width = 25%> id1 </td> <td width = 25%> name1 </td> <td width = 25%> id2 </td> <td width = 25%> name2 </td> </tr> <%do aunque no rs.eof y rowCount> 0%> <TR align = Center Valign = Middle> <td width = 25%> <%= rs (id)%> </td> <td width = 25%> <%= rs (testName)%> </td> <TD> <% RowCount = RowCount-1 Rs.Movenext Si no es RS.EOF entonces %> <%= rs (id)%> </td> <td width = 25%> <%= rs (testName)%> </td> </tr> <% RowCount = RowCount-1 Rs.Movenext demás Response.write & nbsp; </td> <td> & nbsp; </td> </tr> final si bucle final si final si rs. establecer RS = nada %> </table> |
Compartir: analice los parámetros de sintaxis de la función de fecha Descripción Devuelve el intervalo de tiempo entre dos fechas. Síntaxis de calificación (intervalo, date1, date2 [, FirstdayOfweek] [, FirstWeekOfyear]]) La sintaxis de la función fatífa tiene los siguientes parámetros: Intervalo de descripción del parámetro requerido. La expresión de la cadena representa el intervalo de tiempo utilizado para calcular la fecha1 y la fecha2. Valores relacionados
2 páginas en el total de la página 12 Página siguiente