* / ------------------------------------------------ ------------------------------------------ -------- -------------------------------------------------- -------------------------------------------------- -------------------
* / De: Jianzheng State http://www.jzxue.com
* / Auteur: Tianya Écoutez le courrier électronique à la pluie: [email protected]: 809252803
* / Temps: 2007-10-6 Forum de programmation pour la première fois
* / Déclaration: Respectez le travail de l'auteur, veuillez garder le texte dans ce paragraphe
* / ------------------------------------------------ ------------------------------------------ -------- -------------------------------------------------- -------------------------------------------------- -------------------
<%
'Nom: Million Data Practice
'Auteur: Tianya écoute la pluie
'Heure: 6 octobre 2007
'Plate-forme: win2000 + iis5.0 + sql2000
'Affiller: utilisez-le aussi simple que la première fois.
'------------------------------------------------- --------------------------------------- --------- Connectez le base de données
Réponse.buffer = true
Dim SqllocalName, SqLusername, SqlPassword, SqlDatabas
Dim Connstr, Conn
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
SqllocalName = (local) 'Connexion IP [local (local) ip ip]
Nom d'utilisateur de la base de données SQLUserName = SA
Mot de passe utilisateur SQLPassword = XXXXXX
SQLDATABASENAME = NOM DE DATABASE 2008 '
Connstr = Provider = SQLOLEDB;
'' '' '' '' '' '' '' '' '' '' '' '' '' ''
Sur l'erreur reprendre ensuite
Définir Conn = Server.CreateObject (ADODB.Connection)
Conn.Open Connstr
Si err alors
err.Clear
Définir Conn = Rien
Response.Write <div style = 'Font-Size: 14px; Color = # FF0000' Align = 'Center'> Erreur de connexion de la base de données, veuillez vérifier la chaîne de connexion de la base de données </div>
Réponse.
Terminer si
'------------------------------------------------- --------------------------------------- --------- Connectez le base de données à compléter
'Définir les variables
«Nom de la Tblname;
«Instruction d'exécution STRSQL-TOTAL;
Dim tblname, fldname, fieldname, pagesizex, pageCountx, pageno, ordretype, strwhere
Dim StrSQL, FieldCount, Strtmp, Strororder, Topfield
'
Pageno = TRIM (request.querystring (pageno))
Si ISNUMERIC (PAGENO) ou PAGENO = alors 's'il n'y a pas de valeur de page, la valeur d'initialisation
Pageno = ABS (Pageno)
Si pageno = 0 alors pageno = 1
autre
Pageno = 1
terminer si
Tblname = tablews
Fldname = id 'montre que la valeur de champ de tri ne peut pas être répétée dans la base de données: il est recommandé que la clé primaire
Fieldname = id, titre, addtime
Pagesizex = 30
OrderType = 1 '0-est l'ordre de 1 litre
Strwhere = (code = '0101') et (Hits> 100) 'Remarque: Si une condition est utilisée () Double parenthèses
Topfield = (pageno-1) * pagesizex'top
Si OrderType = 0 alors
Strtmp = <(sélectionnez min
Storeder = Order by [& fldname &] desc
autre
Strtmp => (sélectionnez max
STOREDER = ORDER par [& fldname &] ASC
terminer si
'Définir les instructions SQL
StrSql = select top & clng (pagesizex) & fieldname & from & tblname &
Si pageno = 1 alors 'S'il s'agit de la première page, exécutez le code suivant pour vérifier la bibliothèque rapidement
Si strwhere <> alors
StrSql = strSql & Where & Strwhere & Strorder &
autre
StrSql = strSql & strorder
terminer si
autre
Si strwhere <> alors
StrSql = strSql & where & fldname & strtmp & (& fldname &) from (select top & clng (topfield) & fldname & frm & tblname & strwhere & str.
autre
StrSql = strSql & where & fldname & strtmp & (& fldname &) from (select top & clng (topfield) & fldname & tblname & strrener & as tbltmp) & plus fort &
terminer si
terminer si
Set rs = const.execute (strsql) 'Exécuter la requête
Si Rs.Bof et Rs.Eof alors
Conn.Close: Définissez Conn = Rien
Response.Write <Script Language = 'JavaScript'> alert ('Actuellement, aucun enregistrement n'est trouvé, veuillez revenir à la réopération! "); History.go (-1); </cript>
réponse.
terminer si
Si strwhere <> alors 'chercher des enregistrements totaux
FieldCount = Conn.ExECUTE (SELECT COUNT (& fldname &) from & tblname & strwhere &) (0) (0)
autre
FieldCount = Conn.ExECUTE (SELECT COUNT (& fldName &) from & tblname &) (0)
terminer si
if (fieldCount mod npageSize)> 0 puis 'Recherchez le numéro de page total PageCountx
PageCountx = (fieldCount- (FieldCount Mod Mod PageSizex)) / PageSizex +1
autre
PageCountx = (fieldCount / PageSizex)
terminer si
'Afficher les données
faire tout en pas Rs.Eof
Response.Write & rs (titre) && nbsp; & nbsp;
Rs.MovEnext
boucle
'Désactiver et libérer les ressources liées
Rs.Close
Conn.Close: Définissez Conn = Rien
'PAGE DE AFFICHAGE
Si pageno <= 1 alors
Response.Write <font color = '# ff0000'> [page d'accueil] [Précédent] </font>
autre
Response.Write [<a href = '?
Response.Write [<a href = '? >]
terminer si
Si Pageno> = PageCountx alors
Response.Write <Font Color = '# FF0000'> [Page suivante] [Page de queue] </font>
autre
Response.Write [<a href = '? ]]
Response.Write [<a href = '?
terminer si
Response.Write [Page Order <Font Color = Red> & Pageno & </font> Page / Common <Font Color = Red> & PageCountx & </font> Page]
Response.Write [Total <Font Color = Red> & FieldCount & </font> Entrée <Font Color = Red> & PageSizex & </font> Strip / Page]
Response.Write to: <Select Name = 'page' size = '1' onchange = javascript : window.location = '?
pour i = 1 à PayCountx
Réponse.Write <Option Value = & i &
Si pageno = i alors réponse.write selectd
Response.Write (> Non.
suivant
Réponse.write </lectD>
%>