|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Bolotnov 2:5052/4.82 16 Jun 2001 10:09:06
To : Denis Roshchin
Subject : Сортировка из базы MySQL
--------------------------------------------------------------------------------
16 Jun 01, Denis Roshchin -> All:
> ну у меня, допустим, из таблицы селектится сто записей, и я их хочу до
> 20 на один экран выводить... То есть, чтобы на 1-ой: 1-20, 2: 21-40
> итд...
блин, как все туго. а по нужных 20 записей селектить нельзя?
example: /cgi-bin/select.pl?num=20
use CGI qw/:standard/;
$q = new CGI;
$num = $q->param('num');
print header,start_html;
use DBI;
$dbh = DBI->connect("DBI:mysql:database",undef,undef) or die $!;
$base_num = $dbh->selectrow_array("select count(*) from stable");
if ($num > $base_num){
print "no more entries!";
$dbh->disconnect;
print end_html;
}
else{
$sel = $dbh->prepare("select * from stable limit 20,20");
$sel->execute;
my @data;
while(@data = $sel->fetchrow_array){
print @data; #$data[0],$data[3]...
}
print "<a href=\"cgi-bin/select.pl?num=40\">more>>></a>" if $base_num >
($num+20);
$dbh->disconnect;
print end_html;
чего-то вроде этого никак?
не проверял, писал прямо здесь, но идея, думаю, понятна.
Alexander Bolotnov.
Scientia vincere tenebras.
---
* Origin: Крутой Перец... (2:5052/4.82)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
