O parágrafo a seguir é o código de paginação básico:
＜% sql = "Selecione ………………………… omitir o conjunto de instrumentos SQL rs = server.createObject (" adodb.recordset ") rs.open sql, conn, 1, 1 se não rs.eof then páginas = 30 'definir o número de registros exibidos por página As páginas podem ser divididas na página total = request.QueryString ("Page") 'o número de páginas passadas pelo navegador' se a instrução pertence ao processo básico de solução de problemas, se for o que deseja (página) ou cint (página) ＜ 1 Page = 1 elseiF (Page) ＞ Página, então Page = AllAgesef e não, não. Saída aqui …………… ＜ % Páginas = páginas - 1 rs.movenext loop else Response.write ("Não há conteúdo no banco de dados!") Fim se rs.close definir rs = nada %>O sistema já pagou os dados. Vamos dar uma olhada na definição da função de paginação que é discutida desta vez.
＜% Sub Pageurl (Purl) Dim EURL TXTS = request.Servervariables ("URL") txts = esquerda (txts, Instrrev (txts, "/", len (txts))-1) EURL = "http: //"; & Request.ServerVariables ("server_name") e txts para i = 1 para allpages txt = "" txt = "＜ Strong>" txt = txt & "＜ a href =" & eurl & purl & "page =" & i & ">" se i = cint (página) txt = txt = t & " Cint (página) então txt = txt & "＜/font>" txt = txt & "＜/a> ∥ ＜/strong>" resposta.write (txt) próximo finalSalve a cópia do código da função de paginação acima em um arquivo ASP. Use Incluir para apresentá -lo na página que você precisa usar para chamá -lo sempre que ligue ("/o nome do arquivo que você chamou?") Está OK. Por exemplo, se você quiser chamá -lo na minha página de notícias, é <%ligue ("/news.asp?")%>
O que acabamos de ver é limitado, o que significa que, na primeira parte do código, exceto o conteúdo de consulta SQL e o conteúdo de saída, as outras variáveis que declaram que o conjunto de registros não poderão ser alteradas; caso contrário, elas não poderão ser executadas. De fato, este programa é irrelevante. O mais importante é que essa função de paginação possa ser chamada em qualquer folha de ASP.