<!-#incluir file = "Conn.asp"->
<%
"A parte seguinte é verificar se a página enviada é um parâmetro legal
"Esta parte é melhor para determinar se o parâmetro enviado é um caractere de valor
Página escura
Página = acabamento (solicitação ("página")
Se página = "" então
página = 1
Elseif cint (página) <= 0 então
página = 1
outro
Página = cint (página)
Final se
"Inquérito, retire o registro que você deseja exibir
Dim RS, SQL, STR
Definir rs = server.createObject ("adodb.oldset")
SQL = "Selecione * de A1"
Rs.ooopen SQL, Conn, 1,3
se não Rs.eof então
str = rs ("A1")
Final se
Rs.close
Definir rs = nada
"Coloque os registros gravados na matriz
Dim STRTMP
strtmp = split ((str), "<br>")))
"Remova o registro a ser exibido e obtenha o número de páginas ao mesmo tempo
Dim n, tmp, i, j, tt
n = 500
i = 0
j = 0
Faça enquanto eu <= Uborder (strtmp)
Tmp = strtmp (i)
Tt = true
Faça enquanto tt
Se i> = ubound (strtmp) então
Tt = false
j = j 1
Elseif len (tmp)> = n o
Tt = false
j = j 1
Elseif len (tmp) len (strtmp (i 1))> = n então
Tt = false
j = j 1
Outro
Tmp = tmp "<br>" strtmp (i 1)
i = i 1
Final se
Laço
se página = j então str = tmp "<br>"
i = i 1
Laço
"Determine se os parâmetros da transmissão estão cruzando a fronteira, se você cruzar a borda, você receberá o conteúdo da última página
Se página> J então
str = tmp
final se
"Mostre o conteúdo de paginação
"Preste atenção aos parâmetros da passagem, apenas a página será passada aqui. Se houver outros parâmetros a serem transmitidos juntos, caso contrário, ela não será exibida após a paginação.
Response.Write "PAGING->" ""
Para n = 1 a j
Se n = página então
Response.Write "& nbsp;"
outro
Response.Write "[<a href = index.asp? Page =" & n & ">" & n & "</a>]
final se
Próximo
Response.Write "<br> <br>" "
"Mostre esta parte desta parte do conteúdo a ser exibida
Response.Write str
%>