Trucsweb.com

Forum de discussion

 Forum « Programmation ASP » (archives)

Re: Pagination du resultat à afficher sur un formulaire

Envoyé: 11 octobre 2004, 12h08 par Salem


Essaye ce code, ca devrait te convenir. Remplace juste les lignes
cnn.open "DSN=CMS"
et
sql = "select * from networks where active = -1"
avec ta chaine de connexion et ta requete SQL

<%@ LANGUAGE="VBSCRIPT" %>
<% page = clng(request("page"))
order = request("order")
if page = 0 then page = 1
nbline = clng(request("lpp"))
if nbline <= 0 then nbline = 30
Set cnn = Server.CreateObject("ADODB.connection")
cnn.open "DSN=CMS"
Set rs_rep = Server.CreateObject("ADODB.Recordset")
sql = "select * from networks where active = -1"
%><html>
<head>
<STYLE TYPE="text/css">
<!--
BODY {font-family: Arial; font-size : 10pt; color: black}
TABLE {font-family: Arial; font-size : 10pt; color : black}
SELECT {font-family: Arial; font-size : 10px; color : #333333}
TEXTAREA {font-family: Arial; font-size : 10px; color : black}
INPUT {font-family: Arial; font-size : 10px; color : #333333}
A {font-family: Arial; font-size : 10px; color : #9C2021}

A.linkRojoG { font: bold 11px Verdana; color: rgb(156,32,33); text-decoration: underline; }
A.linkRojoG:hover { font: bold 11px Verdana; color: rgb(0,0,0); text-decoration: none; }
-->
</STYLE>

<title><% =view %></title>
<script>
current_view = '<% =view %>';
function get_page(pg)
{ document.frm.page.value=pg;
document.frm.submit();
}
</script>
</head>
<body>
<table bgcolor="#E2E2E2">
<% rs_rep.cursorlocation = 3
if order <> "" then
if right(order, 5) = " DESC" then
sql = sql & " order by [" & left(order, len(order) - 5) & "] DESC"
else
sql = sql & " order by [" & order & "]"
end if
end if
rs_rep.open sql, cnn
rs_rep.pageSize = nbline
nbpage = rs_rep.pageCount
if page > nbpage then page = 1
rs_rep.absolutePage = page
%><tr><form method="post" name="frm" onSubmit="get_page(this.page.value); return false;">
<input type="hidden" name="order" value="<% =order %>">
<td witdh="1"><input type="button" value="Precedent" onClick="get_page(<% =page-1 %>);"
<% if page=1 then response.write(" disabled") %>></td>
<td witdh="100%" align="center"> <input type="text" size="3" name="lpp" value="<% =nbline %>"> Ligne(s) par page | Charger la page
<input type="text" size="3" name="page" value="<% =page %>"> / <% =nbpage %> <input type="submit" value="Go"></td>
<td witdh="1" align="right"><input type="button" value="Suivant" onClick="get_page(<% =page+1 %>);"
<% if page=clng(nbpage) then response.write(" disabled") %>></td>
</form></tr>
<tr>
<td colspan="3"><table width="100%" bgcolor="#E2E2E2" cellpadding="2">
<tr class="titleBold"><% for each column in rs_rep.fields %>
<td><a href="#" onClick="document.frm.order.value='<%
if order = column.name then
response.write(column.name & " DESC")
else
response.write(column.name)
end if %>';get_page(<% =page %>);return false;"
<% if trim(order) = trim(column.name) or trim(order) = trim(column.name & " DESC") then response.write("class=""linkRojoG""") %>>
<% =column.name %></a></td>
<% next %></tr>

<% for x = 1 to nbline
if not rs_rep.eof then %>
<tr bgcolor="#FFFFFF"><% for each column in rs_rep.fields
select case column.type
case 202: %><td><% =column.value %></td><%
case 135: %><td><% =simple_date(column.value) %></td><%
case 3, 11: %><td align="center"><% =column.value %></td><%
case else: %><td><% =column.value %></td><%
end select
next %></tr>
<% rs_rep.movenext:
end if
next %>
</table> <% =rs_rep.recordcount %> enregistrement(s) au total</td>
</tr>
<% rs_rep.close: set rs_rep = Nothing %>
</table>
</body>
</html>
<% cnn.close: set cnn = Nothing
function simple_date(dt)
if dt then
simple_date = day(dt) & "-" & monthname(month(dt), -1) & "-" & year(dt)
else
simple_date = ""
end if
end function
%>


Réponses

 Aucune réponse à ce message... 
Aucun médias sociaux
X

Trucsweb.com Connexion

X

Trucsweb.com Mot de passe perdu

X

Trucsweb.com Conditions générales

Conditions

Responsabilité

La responsabilité des Trucsweb.com ne pourra être engagée en cas de faits indépendants de sa volonté. Les informations mises à disposition sur ce site le sont uniquement à titre purement informatif et ne sauraient constituer en aucun cas un conseil ou une recommandation de quelque nature que ce soit.

Aucun contrôle n'est exercé sur les références et ressources externes, l'utilisateur reconnaît que les Trucsweb.com n'assume aucune responsabilité relative à la mise à disposition de ces ressources, et ne peut être tenue responsable quant à leur contenu.

Droit applicable et juridiction compétente

Les règles en matière de droit, applicables aux contenus et aux transmissions de données sur et autour du site, sont déterminées par la loi canadienne. En cas de litige, n'ayant pu faire l'objet d'un accord à l'amiable, seuls les tribunaux canadien sont compétents.

X

Trucsweb.com Trucsweb

X

Trucsweb.com Glossaire

X

Trucsweb.com Trucsweb

X

Trucsweb.com Trucsweb

Conditions

Aucun message!

Merci.

X
Aucun message!
X

Trucsweb.com Créer un compte