De %
Si rs1.rcordCount > 0 entonces 'El conjunto de registros no está vacío y los registros de procesos
Rs1.pagesize = 10 'Establezca el número de registros que se muestran por página
Num = rs1.rcordCount 'registro total
Pagenum = rs1.pageCount 'Número total
Página = solicitud (página) 'Obtenga la información original del número de página
'¡El comienzo de la información original del número de página de procesamiento!
Si la página <> entonces
Página = cint (página)
Si err.number <> 0 entonces
Err.Clear
página = 1
final si
Si la página <1 entonces
página = 1
final si
demás
página = 1
Final si
Si la página*rs1.pagesize > num y no ((página-1)*rs1.pagesize <num)
página = 1
final si
'¡El final de la información original del número de página de procesamiento! Establecer el número de página actual
Rs1.absolutePage = página
%>
<!-Determine si la página actual es la última página y la visualización duplicada del registro de configuración de la configuración de configuración->
<% Si página <> pagenum entonces
lablenum = rs1.pagesize
demás
lablenum = num- (página-1)*rs1.pagesize
final si
para i = 1 a lablenum
%>
<Trbgcolor =#ffffff>
<Td Height = 25> <div align = center> <%= (rs1.fields.item (id). Valor)%> </div> </td>
<TD> <div align = Center> <%= (rs1.fields.item (nombre). Value)%> </div> </td>
<Td > <liv align = center> <%= (rs1.fields.item (dirección). Valor)%> </div> </td>
<TD> <div align = Center> <%= (rs1.fields.item (categoría). Valor)%> </div> </td>
<TD> <div align = Center> <%= (rs1.fields.item (finalmente modificado). Valor)%> </div> </td>
<TD> <div align = Center> <%= (rs1.fields.item (persona modificada). Valor)%> </div> </td>
</tr>
De %
Rs1.movenext
próximo
%>
<
<Ancho de tabla = 70% border = 0 align = Center CellPadding = 0 CellSpacing = 0>
<tr>
<Td altura = 35>
<Liv align = right>
<Font color =#333333>
Hay <%= num%> un enlace |
<A href = linkadmin.asp?
<%Si la página > 1 entonces > <a href = LinkAdmin.asp?
<%Si la página <Pagenum entonces > <a href = LinkAdmin.asp?
<A href = linkadmin.asp?
Página: <%= página%>/<%= Pagenum%> Página |
<%= Pagenum%> página
</font>
</div>
</td>
</tr>
</table>
<!-Grabe el código de codificación vinculado de la colección de páginas, el conjunto de registros es ejecutar el siguiente código cuando esté vacío->
<%Else%>
<Trbgcolor =#ffffff>
<Td Height = 25 colspan = 6> <div align = Center > < % Response.Write (¡No se pueden mostrar resultados!) %>
</div> </td>
</tr>
De %
final si
Rs1.close ()
Establecer rs1 = nada
%>