<%
'=======================================================================================================================.
'XDownpagaSp version
'Version 1.00
'CodeByzykj2000
'Courriel: [email protected]
'Bbs: http: //bbs.513soft.net
«Ce programme peut être utilisé et modifié gratuitement. J'espère que mon programme pourra apporter la commodité à votre travail
'Mais s'il vous plaît, gardez ce qui précède, veuillez refus
'
'Caractéristiques du programme
«Ce programme résume principalement la pièce de pagination de données et la pièce d'affichage des données est complètement personnalisée par l'utilisateur.
'Soutenez plusieurs paramètres URL
'
'Instructions pour une utilisation
'Description du paramètre du programme
'Papgesize définit le nombre d'enregistrements pour chaque page de la page de pagination
'Getrs renvoie un ensemble de disques paginaire Cette propriété est lue uniquement
'GetConn obtient la connexion de la base de données
'GetSQL obtient une déclaration de requête
'Description de la méthode du programme
'ShowPage affiche la barre de navigation de la page, la seule méthode publique
'
'=======================================================================================================================.
Constbtn_first = "<fontface =" "webdings" "> 9 </font>" 'Définissez le style d'affichage du bouton de la première page
Constbtn_prev = "<fontface =" "webdings" "> 3 </font>" 'Définissez le style d'affichage du bouton sur la page précédente
Constbtn_next = "<fontface =" "webdings" "> 4 </font>" 'Définissez le style d'affichage du bouton de la page suivante
Constbtn_last = "<fontface =" "webdings" ">: </font>" 'Définissez le style d'affichage du bouton de la dernière page
Constxd_align = "Center" 'définit l'alignement des informations de pagination
Constxd_width = "100%" 'définit la taille de la boîte d'informations de pagination
Classxdownpage
Privatexd_pageCount, xd_conn, xd_rs, xd_sql, xd_pageSize, str_errors, int_curpage, str_url, int_totalpage, int_totalrecord, xd_surl
'=================================================================================================.
'Propriété de pages
'Définissez la taille de la page pour chaque page
'=================================================================================================.
PublicProperTyletPageSize (int_pageSize)
Ifisnumeric (int_pageSize) puis
Xd_pageSize = clng (int_pageSize)
Autre
str_error = str_error & "Le paramètre PageSize est incorrect"
Showerror ()
Endire
Endproperty
PublicpropertygetPageSize
Ifxd_pageSize = "" ou (pas (isNumeric (xd_pageSize)) puis
PageSize = 10
Autre
Pagesize = xd_pageSize
Endire
Endproperty
'=================================================================================================.
'Propriété Getrs
'Retour au plateau de record Paged
'=================================================================================================.
PublicPropertyGetGetRS ()
Setxd_rs = server.createObject ("adodb.recordSet")