En grandes proyectos ASP, muchas páginas implican la función de giro de la página. Si cada página escribe un programa de cambio de página, dicho trabajo reducirá la eficiencia laboral, no será propicio para la modularización del proyecto y no puede reutilizar el código. Por lo tanto, es necesario modularizar funciones como el giro de la página.
Método de diseño:
1. Al llamar a este módulo, solo necesita pasar el conjunto de registros y el número de registros que se muestran en cada página;
2. Puede hacer clic en el enlace para girar la página, o puede ingresar directamente el número de página y girar la página después de presionar;
3. No considere el nombre del archivo, el programa puede estar en la página actual cada vez que gira.
Después de pensar en las tres preguntas anteriores, nuestro módulo de cambio de página pública puede comenzar.
<%
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'◆ Nombre del módulo: módulo de turno de página pública
'◆ Nombre del archivo: TurnPage.asp
'◆ Parámetros entrantes: RS_TMP (conjunto de registros), PageSize (número de registros que se muestran por página)
'◆ Salida: función de visualización de giro de la página de registro
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'
SUBTURNPAGE (BYREFRS_TMP, PAGESIZE) 'RS_TMP RECORD SET; Página el número de registros que se muestran por página;
Dimtotalpage'total páginas
Dimpageno 'qué página se muestra actualmente
DIMRECORDCOUNT'TOTAL Número de registros
Rs_tmp.pagesize = pageSize
RecordCount = rs_tmp.recordCount
TotalPage = int (RecordCount/Pagesize*-1)*-1
Pageno = request.querystring ("Pageno")
'Gire directamente ingrese el número de páginas para saltar;
Ifrequest.form ("Pageno") <> "" thenPageno = request.form ("Pageno")
'Si la página no está seleccionada, la primera página se muestra de forma predeterminada;
Ifpageno = "" thenpageno = 1
IfrecordCount <> 0Then
Rs_tmp.absolutepage = pageno
Endif
'Obtenga el nombre del archivo actual para que cada giro de la página se realice en la página actual;
DimFileName, posición
FileName = request.ServerVariables ("script_name")
Postion = instrrev (nombre de archivo, "/")+1
'Obtenga el nombre del archivo actual para que el enlace de cambio de página apunte al archivo actual;
FileName = Mid (nombre de archivo, publicación)
%>
<tableBorder = 0Width = '100%'>
<tr>
<tdalign = izquierda> recuento de página total: <fontcolor =#ff3333> <%= totalPage%> </font> página
Página actual <FontColor =#FF3333> <%= Pageno%> </font>
<tdalign = "Right">
<%IfrecordCount = 0ortotalPage = 1Then
Response.write "Inicio | Página anterior | Página siguiente | Última página"
Else%>
<href = "<%= FileName%>? Pageno = 1"> Inicio | </a>