Recientemente capacité a otros sobre la paginación ASP. Para los principiantes que son nuevos en ASP, la paginación más simple es usar la tecnología de paginación Recordset. Se utiliza principalmente para paginar una pequeña cantidad de datos. Adecuado para paginar una gran cantidad de datos. Recomendado.
1． Crear objeto conjunto de registros
Copie el código de la siguiente manera:Dim objMyRst
Set objMyRst=Server.CreateObject(ADODB.Recordset)
objMyRst.CursorLocation=adUseClientBatch 'El cliente puede procesar por lotes
objMyRst.CursorType=adOpenStatic' El tipo de cursor es estático.
Nota: Los objetos Recordset no pueden ser
.utilizado con Set objMyRst=Conexión .Excute. La instrucción strSQL se crea porque el objeto Recordset que crea es adOpenFowardOnly y no admite la paginación
2 del conjunto de registros. Abra el objeto Recordset
y copie el código de la siguiente manera:
Dim strSql
strSql=select * from ietable
objMyRst.Oepn strSql,ActiveConnection,,,adCmdText
3. Establezca la propiedad PageSize de Recordset
y copie el código de la siguiente manera:
objMyRst.PageSize=20
El tamaño de página predeterminado es 10.
4. Establezca la propiedad AbsolutePage de Recordset
de la siguiente manera:
Copie el código de la siguiente manera:
Dim intCurrentPage
intCurrentPage=1
objMyRst.AbsolutePage=intCurrentPage
AbsolutePage es 1 para el valor PageCount del objeto Recordset
5.
El códigopara mostrar
el código de copia de datos es el siguiente:
Response.Write(<table>)
PrintFieldName(objMyRst)
For i=1 To objMyRst.PageSize
PrintFieldValue(objMyRst)
objMyRst.MoveNext
Si objMyRst.Eof, entonces salga para
la siguiente
respuesta.Write( </table> )
Descripción:
1. adOpenStatic, adUseCilentBatch, adCmdText son constantes definidas por adovbs.inc. Para usarlas, copie adovbs.inc al directorio actual e inclúyalas en el programa.
Copie el código de la siguiente manera:
<! --#Include File=adovbs.inc-->
2. El código de la función PrintFielName, PrintFieldValue es el siguiente:
Copie el código de la siguiente manera:
<%
Función PrintFieldName(objMyRst)
'El parámetro objMyRst es un objeto Recordset
' Definición
Dim objFld
Response.Write < tr bgcolor='#CCCCCC'>
para cada objFld en objMyRst.Fields
Response.Write <td> & objFld.Name & </td>
Siguiente
Response.Write(</tr>)
Fin Función
Función PrintFieldValue(objMyRst)
'El parámetro objMyRst es un objeto Recordset
' Definición
Dim objFld
Response.Write(<tr >)
Para Cada objFld en objMyRst.Fields
'Response.Write<td> & objMyRst.Fields(intLoop).value & </td>
Response.Write <td> & objFld.value & </td>
Siguiente
Response.Write(<tr>)
Función final
%>