Já conversamos sobre o programa de paginação para você mais cedo. Aqui fornecemos um e analisamos -o, e você pode ter novos ganhos.
A cópia do código é a seguinte:
<%
'O programa a seguir faz parte do código do sistema de artigos de tecnologia de programação no meu site, concentrando -se em destacar a paginação, para que outros códigos inúteis sejam limpos, você pode modificá -los e aplicá -los
OnErrorReReSumenext impede os usuários de modificar URLs à vontade para causar erros
IfRequest.QueryString ("página") = "" thenpage = 1: else: página = cint (request.QueryString ("página")) '' o número de páginas na página da URL =?
setLink1 = server.createObject ("adodb.connection") 'banco de dados de conexão
link1.open "provider = Microsoft.Jet.oledb.4.0; DataSource =" & Server.mappath ("banco de dados 1.MDB")
setrs = server.createObject ("adodb.recordset")
Rs.open "Select*da Tabela 1", Link1,1,1 '' Essas frases definem o cursor do conjunto de registros, o número de registros armazenados por página e as configurações atuais da página, o que é muito importante.
rs.pagesize = 13
rs.absolutePage = página
iferr.number <> 0hen 'impede os usuários de modificar maliciosamente URLs e bancos de dados sem erros de registros
Resposta "Erro de Exceção".
resposta.END
endif
%>
<BaseTarget = '_ Blank'> <!-Faça o conteúdo aparecer na nova janela->
<Tableborder = 1>
<%
fori = 0Tors.Pagesize-1 'exibe o conteúdo de dados específico. I+(página*13-13) +1 Esta solução mostra o número específico após a paginação.
ifrs.eofthenexitfor
Response.Write "<tr> <td>" & i+(página*13-13) +1 & ": <ahref = '" & rs ("Connect") & "'> & rs (" autor ") &" </a> </td> </tr> "
rs.movenext
próximo
%>
<tr> <tdalign = direita>
<BASETARGET = '_ TOP'> <!-Faça a conexão de paginação não aparecer na nova janela. A seguir, é apresentado o programa completo do programa de paginação perfeito em que quero me concentrar. Você pode modificá-lo conforme necessário->
<%
pagelen = split (request.Servervariables ("Query_string"), "&") 'Obtenha o URL do parâmetro após o URL? número
IFUDOUND (PAGELEN) <1 Then'se que o URL é do tipo XXX.ASP? Page = 1 ou xxx.asp, use o método de paginação padrão
ifpage> 1ThenResponse.write "<ahref = 'A.asp? Page = 1'> home </a> <ahref = 'a.asp? Page =" & Page-1 & "'> página anterior </a>": else: Response.Write "Homepage"
ifpage <rs.pagecountthenResponse.write "<ahref = 'a.asp?
fori = 1Tors.PageCount
ifi = pagethenResponse.writei & "": else: resposta.write "<ahref = 'a.asp? Page =" & i & "'>" & i & "</a>"