<
EOT
for ($i=1;$i<=$page_cnt;$i++){
if ($i ne $in{'page'}){
$out{'page_str'} .=<<"EOT";
$i/
EOT
$t_1 = $i / 30;
if (int($t_1) eq $t_1){$out{'page_str'} .= "
";}
}
else{
$out{'page_str'} .=<<"EOT";
$i/
EOT
}
chomp $out{'page_str'};
}
$out{'page_str'} = substr($out{'page_str'},0,-2);
$out{'page_str'} .=<<"EOT";
>
EOT
$start = ($in{'page'} - 1) * $cloth_num;
if ($start eq ''){$start = 0;}
$sql .= " offset $start limit $cloth_num;";
$out{'list'} =<<"EOT";