Super asp grand contenu de classe Page_my Je choisis dans le blog d'Applebbs
MOT-CLÉ SUPER ASP Large Page_my Class Contenu Je prends la décision
Source
<%
'=======================================================================================================================.
'Showmorepageasp version
'Versionhuangjm1.00
'CodeBymaomao
'CreateDate2004-09-28
'QQ: 5144707
'http://blog.csdn.net/maomaoysq
'WriteFormylover: Huangjm't le programme peut être utilisé et modifié gratuitement, mais veuillez conserver les informations ci-dessus
'
'fonction
«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.
«Prise en charge de plusieurs paramètres de l'URL: http: //www.***.com/***.asp? Aa = 1 & page = 9 & bb = 2
'
'
'Paramères:
'Papgesize définit le nombre d'enregistrements pour chaque page de la page de pagination
«GetCurpageNum renvoie le nombre d'ensembles d'enregistrements de la page actuelle. Cette propriété est lue uniquement
'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
'InterfaceOfClass
'ShowPage affiche la barre de navigation de la page, la seule méthode publique
'
'############################################
'Créer un objet
'Sethjmpage = newshowmorepage
'Obtenez la connexion de la base de données
'hjmpage.getConn = conn
'instruction SQL
'hjmpage.getsql = "SELECT * NOTHOP_BOOKSWHERENEWSBOOK = 1OrderByBookIdDesc"
«Définissez les données d'enregistrement sur chaque page sur 20, et l'affichage par défaut est 10.
'hjmpage.pagesize = 20
«Les informations sur la pagination d'affichage peuvent être appelées à n'importe quel endroit, peuvent être appelées plusieurs fois
'hjmpage.showpage ()
'setrs = hjmpage.getrs ()' Renvoie un ensemble d'enregistrements
'Afficher que les données commencent
'Vous pouvez personnaliser la méthode d'affichage ici
«Fori = 1tohjmpage.getcurpagenum» Nombre d'enregistrements dans la page actuelle
'Response.Writeleft (Trim (RS ("BookName")), 13) & "...."
'Rs.MoVenext
'suivant
'Afficher les fins de données
'Sethjmpage = rien
'############################################
'=======================================================================================================================.
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