Code de pagination rapide ASP

Auteur：Eve Cole Date de mise à jour：2025-08-15 18:16:02

Recommandé: ensemble de fonctions de fonctionnement du fichier ASP
% '==============================================. Adresses '==================================================================================================== ====================================================================================.

<% @ language = codepage VBScript = 936%>

option explicite 'Définition obligatoire des variables

Dim idcount'total Nombre d'enregistrements

Numéro de pages DIM par page

Nombre de pages de pagec

Numéro de page de la page DIM

Dim Pagenc 'Le nombre de numéros de page affichés par page = Pagenc * 2 + 1

PAGENC = 2

Nombre maximum de pages de pages de pages de PagenMax DIM affichées par page

Dim pagène 'le numéro de page minimum de pages affichée par page

page = clng (demande (page))

Dim Start 'Temps of Program Start

Dim Endt 'Time of Ending Program

Nom des données DIM

datafrom = table1

Dim Conn, RS

Passe de base de données DIM DATAPATH

id sqlid dim 'requis pour cette page

Dim-moi-même maîtrise de cette page

moi-même = request.servervariables (path_info)

Instruction DIM SQL'SQL

Déclaration de tri des taxis DIM

TOSSE 'TAXIS = Ordre par id ASC' Sort positif

Taxis = Order by id desc 'tri inversé

dim i 'entier utilisé pour la boucle

start = timer ()

Base de données DATAPATH = DB.MDB

pages = 30

'Connexion pour ouvrir la base de données

dob db

db = db.mdb 'définir le chemin et le nom de la base de données

Définir Conn = Server.CreateObject (ADODB.Connection)

Conn.Open Provider = Microsoft.Jet.oledb.4.0; Data Source = & Server.Mappath (DB)

Si err.number <> 0 alors

Erreur de liaison de la base de données Response.WRITE!

réponse.end ()

terminer si

'Obtenez le nombre total d'enregistrements

SQL = SELECT COUNT (ID) comme idCount à partir de [& dataFrom &]

set rs = server.createObject (adodb.recordSet)

Rs.Open SQL, Conn, 0,1

idcount = rs (idcount) 'Obtenez le nombre total d'enregistrements

si (idcount> 0) alors'f le nombre total d'enregistrements = 0, il ne sera pas traité

if (idCount mod pages = 0) alors'f le nombre total d'enregistrements est divisé par le nombre restant de chaque page, alors = le nombre total d'enregistrements / nombre de chaque page + 1

pagec = int (idcount / pages) 'Obtenez le nombre total de pages

autre

pagec = int (idcount / pages) + 1'get le nombre total de pages

terminer si

'Obtenez l'ID nécessaire pour cette page ===========================================================================================================

Les valeurs d'identification de tous les enregistrements ', car il n'y a que l'ID, donc la vitesse est très rapide

SQL = SELECT ID à partir de [& dataFrom &] & Taxis

set rs = server.createObject (adodb.recordSet)

Rs.Open SQL, Conn, 1,1

Rs.PageSize = Nombre d'enregistrements de Pages affichés par page

Si page <1 alors page = 1

Si page> pagec alors page = pagec

Si Pagec> 0 alors Rs.Absolutepage = Page

pour i = 1 à Rs.pagesize

Si Rs.Eof, sortez pour

si (i = 1) alors

sqlid = rs (id)

autre

SQLID = SQLID &, & RS (ID)

terminer si

Rs.MovEnext

'Fin de Id requis pour obtenir cette page ===============================================================================================

terminer si

<! doctype html public - // w3c // dtd html 4.01 transitional // en>

<html>

<adal>

<Title> Paging rapide </TITME>

</ head>

<tr>

<tr>

<tr>

<td> <strong> <font color = # ff6600> PAGIE rapide </font> </strong> </td>

</tr>

</ table>

<br>

<td width = 37%> <strong> thème </strong> </td>

<td width = 33%> <strong> contenu </strong> </td>

<td width = 21%> <strong> temps </strong> </td>

</tr>

Si (idCount> 0 et Sqlid <>) alors'f le nombre total d'enregistrements = 0, il ne sera pas traité

'Utilisez dans pour sélectionner les données dans la langue de cette page et ne lisez que les données requises pour cette page, donc la vitesse est rapide

sql = select [id], [aaaa], [bbbb], [cccc] de [& datafrom &] où id dans (& sqlid &) & taxis

set rs = server.createObject (adodb.recordSet)

Rs.Open SQL, Conn, 0,1

tandis que (pas Rs.Eof) 'remplir les données dans le tableau

</tr>

Rs.MovEnext

se promener

</ table>

<br>

<td align = Left> Il y a un total de <strong> <font color = # ff6600> <% = idcount%> </font> </strong>, <strong> <font color = # ff6600> <% = page %> </font> </strong> / <% = pagec %>, et chaque page est <strong> color = # ff6600> <% = pages%> </font> </strong> enregistre. </td>

</tr>

</ table>

'Définissez le numéro de page pour démarrer =========================================================.

pagenmin = page-pagenc 'Calculez la valeur de démarrage du numéro de page

pagenMax = page + Pagenc 'Calculez la valeur finale du numéro de page

if (pagenmin <1) alors'f la valeur de démarrage du numéro de page est inférieure à 1 alors = 1

pagenmin = 1

terminer si

Si (page> 1) alors 'Si le numéro de page est supérieur à 1, il sera affiché (première page)

Response.Write (<a href = '& moi-même &? Page = 1'> <font color = '# 000000'> Page 1 </font> </a>)

terminer si

Si (pagenmin> 1) alors 'Si la valeur de démarrage du numéro de page est supérieure à 1, elle sera affichée (mise à jour)

Response.Write (<a href = '& moi-même &? Page = & Page- (Pagenc * 2 + 1) &'> <font color = '# 000000'> Advance </font> </a>)

terminer si

if (pagenmax> pagec) alors 'si la valeur finale du numéro de page est supérieure au nombre total de pages, alors = nombre total de pages

Pagenmax = Pagec

terminer si

Pour i = Pagenmin à Pagenmax 'Loop Output Number Number

si (i = page) alors

Response.Write (<font color = '# ff6600'> <strong> & i & </strong> </font>)

autre

Response.Write ([<a href = & moi-même &? Page = & i &> <font color = '# 000000'> & i & </font> </a>])

terminer si

Si (pagenmax <pagec) alors 'Si la valeur finale du numéro de page est inférieure au nombre total de pages, il sera affiché (après)

Response.Write (<a href = '& moi-même &? Page = & Page + (Pagenc * 2 + 1) &'> <font color = '# 000000'> After </font> </a>)

terminer si

Si (page <pagec) alors «Si le numéro de page est inférieur au nombre total de pages, il sera affiché (dernière page)

Response.Write (<a href = '& moi-même &? Page = & Pagec &'> <font color = '# 000000'> Dernière page </font> </a>)

terminer si

'Définissez le numéro de page sur fin ===========================================================.

%> <script linguisse = javascript>

<! -

fonction goPage () {

window.location.href = <% = moi-même%>? Page = + page.Value;

}

// ->

</cript>

Aller à

<Name Input = Page Type = Text Value = <% = Page%> Size = 5> Page

<entrée type = name du bouton = soumettre une valeur = Jump> </td>

</tr>

</ table>

terminer si

<br>

<tr>

<p>

endt = timer ()

Rs.Close

Définir RS = rien

Conn.Close

Définir Conn = Rien

<% = formatNumber ((endt-start) * 1000,3)%> ms </p>

<p> <a href = http://stone-stone.vip.sina.com/ cible = _blank> Espace en pierre </a> </p> </td>

</tr>

</ table>

</tr>

</pally> </td>

</tr>

</ table>

</docy>

</html>

Partager: les conseils de configuration d'ASP pour l'utilisation de fckEditor
1. Ouvrez le fichier fckconfig.js dans la langue par défaut (par rapport au dossier fckEditor, le même ci-dessous), modifiez le langage de détection automatique en non-détection et modifiez la langue par défaut en chinois simplifié: code de programme fckconfig.autodetectLanguage = false; Fckconfig.defaultLanguage = 'zh-cn'; 2. Ouvrez le fichier fckconfig.js dans la liste des polices, dans la liste des polices