<!-#include file = "conn.asp"->
<%
"La siguiente parte es verificar si la página presentada es un parámetro legal
"Esta parte es mejor para determinar si el parámetro enviado es un carácter de valor
Página de duendidad
Page = TRIM (request ("Página")
If page = "" entonces
página = 1
Elseif cint (página) <= 0 entonces
página = 1
demás
Página = cint (página)
Final si
"Consulta, elimine el registro que desea mostrar
Dim RS, SQL, STR
Establecer rs = server.createObject ("ADODB.Oldset")
Sql = "seleccionar * de a1"
Rs.open SQL, Conn, 1,3
Si no es RS.EOF entonces
str = rs ("a1")
Final si
Rs.
Establecer RS = nada
"Ponga los registros grabados en la matriz
Dim strtmp
strtmp = split ((str), "<br>"))
"Elimine el registro que se mostrará y obtenga el número de páginas al mismo tiempo
Dim n, tmp, i, j, tt
n = 500
i = 0
J = 0
Hacer mientras i <= UBORDER (STRTMP)
Tmp = strtmp (i)
Tt = verdadero
Hacer mientras TT
Si i> = Ubound (strtmp) entonces
Tt = falso
J = J 1
Elseif len (tmp)> = n el
Tt = falso
J = J 1
Elseif len (tmp) len (strtmp (i 1))> = n entonces
Tt = falso
J = J 1
Demás
Tmp = tmp "<br>" strtmp (i 1)
i = i 1
Final si
Bucle
si página = j entonces str = tmp "<br>"
i = i 1
Bucle
"Determine si los parámetros de la transmisión están cruzando el borde, si cruza el borde, obtendrá el contenido de la última página
Si la página> J entonces
str = tmp
final si
"Muestre el contenido de la paginación
"Presta atención a los parámetros del fallecimiento, solo la página se pasa aquí. Si hay otros parámetros para pasar juntos, de lo contrario no se mostrará después de la paginación.
Response.Write "Paging->" "" "
Para n = 1 a j
Si n = página entonces
Response.Write "& nbsp;"
demás
Response.write "[<a href = index.asp? Page =" & n & ">" & n & "</a>]
final si
Próximo
Response.write "<br> <br>" "
"Muestre esta parte de esta parte del contenido que se mostrará
Respuesta.WRITE STR
%>