cgi网页显示mysql数据库数据_请问关于perl+cgi分页显示mysql数据库的问题

请教各位大侠，我用perlcgi写了一个连接mysql的代码，现在有的数据库里有1000多条记录，同时显示在一个网页上非常慢，想请大侠帮我修改以下代码，每页显示100条，并且每一页有链接：#...

请教各位大侠，我用perl cgi写了一个连接mysql的代码，现在有的数据库里有1000多条记录，同时显示在一个网页上非常慢，想请大侠帮我修改以下代码，每页显示100条，并且每一页有链接：

#!/usr/bin/perl

use strict;

use DBI;

use CGI;

print "Content-type:text/html\n\n";

print<

windows环境变量

BEGIN

my $cgi=new CGI;

my $database=$cgi->param("database");

# Connect to target DB

my $dbh = DBI->connect("DBI:mysql:database=$database;host=localhost","root","4114", {'RaiseError' => 1});

# query

my $content=100;

my $page=1;

my $sqr = $dbh->prepare("SELECT * FROM alter_splicing limit $content");

$sqr->execute();

print "

print "

est_id\n";

print "

position\n";

print "

sbjct\n";

print "

est_numbers\n";

print "

type\n";

print "

geneid\n";

while(my $ref = $sqr->fetchrow_hashref()) {

my $query=$ref->{'est_id'};

my $sbjct=$ref->{'sbjct'};

print "

$query\n";

print "

$ref->{'position'}\n";

print "

$sbjct\n";

print "

$ref->{'est_numbers'}\n";

print "

$ref->{'type'}\n";

print "

$ref->{'geneid'}\n";

}

print "

";

$dbh->disconnect();

print<

END

可否帮忙改一下

展开