返回列表 回复 发帖

[转帖]分页显示CGI程序范例

sub search{
$l=0;
$show=15;#设定每页显示数据的行数。
open (output,"sj.txt");#打开数据文件sj.txt
@count=<output>;
close(output);
$w=@count;#得到sj.txt文件中的数据信息总数$w.
if ($page eq ""){ $min=1; $max=$show; $page=1; }#设定首页的初始值page为页数,$min为数据文件中的第一行数据信息,$max为该页最末一行显示的数据文件中的数据信息行。
if ($page ne ""){ $min=(($page-1)*$show)+1; $max=$page*$show; }#各分页信息显示行的控制参数,变量含义与上一代码行相同。
$tempp=1;#每页显示行数的初始值。
$j=1;#页数的初始值。
print '<table border="0" cellspacing="0" style="font-size: 9pt" align="center"><tr><td width="500" >';

while ($w>0) {
print "<a href=$cgiurl?page=$j align=center>第$j页</a>。";
$w=$w-$show; $j++;
}#这个循环是建立页数的超连接。

print"Content-type:text/html\n\n";#建立输出格式
print"</td></tr></table>";
print '<table border="1" cellspacing="0" style="font-size: 9pt" align="center"><tr><td width="80" height="18" align="center" bgcolor="#FFBBDD">模块型号</td><td width="70" height="18" bgcolor="#7DCFFF" align="center">模块增益(dB)</td><td width="70" height="18" bgcolor="#7DCFFF" align="center">工作频率(MHZ)</td><td width="70" height="18" bgcolor="#7DCFFF" align="center">CTB失真 (dB)</td><td width="70" height="18" bgcolor="#7DCFFF" align="center">交调失真 (dB)</td><td width="70" height="18" bgcolor="#7DCFFF" align="center">互调失真(dB)</td><td width="70" height="18" align="center" bgcolor="#7DCFFF" align="center">输出电平(dB)</td><td width="70" height="18" align="center" bgcolor="#7DCFFF" align="center">噪声系数(dB)</td><td width="70" height="18" align="center" bgcolor="#7DCFFF" align="center">工作电流(mA)</td></tr>';
#上面一段代码是生成要显示的各数据信息的名称行,熟悉HTML的朋友应一看就知道。

open (output,"sj.txt");#再打开数据文件sj.txt
while ($temp=<output>){
@line[$l]=$temp;
$l++;}#此循环是将sj.txt中的每一行数据赋给数组@line
close(output);

for ($l;$l>=0;$l--){#进入显示循环。
($webname,$url,$key,$gl,$fdxs,$tzpv,$lx,$lx1,$lx2)=split(/&/, @line[$l]);#以&为标记分割数组@line并将分割后的数据赋给等式左边的各变量。

#下面一段代码为数据输出显示段,它受$min和$max这两个变量控制。
if ($tempp>=$min && $tempp<=$max) {
print "<tr><td width='80' height='18' align=center >$webname</td><td width='70' height='18' align=center >$key</td><td width='70' height='18' align=center>$url</td><td width='70' height='18' align=center >$gl</td><td width='70' height='18' align=center>$fdxs</td><td width='70' height='18' align=center >$tzpv</td><td width='70' height='18' align=center>$lx</td><td width='70' height='18' align=center>$lx1</td><td width='70' height='18' align=center>$lx2</td></tr>";
}
$tempp++;}
}      

                     我是一个呼吸着现在的空气而生活在过去的人
               这样的注定孤独,孤独的身处闹市却犹如置身于荒漠
                                     我已习惯了孤独,爱上孤独
                                 他让我看清了自我,还原了自我
                             让我再静静的沉思中得到快乐和满足
                                   再孤独的世界里我一遍又一遍
                                   不厌其烦的改写着自己的过去
                                             延伸到现在与未来
                                       然而那只是泡沫般的美梦
                                 产生的时刻又伴随着破灭的到来
                         在灰飞烟灭的瞬间我看到的是过程的美丽
                                      而不是结果的悲哀。。。
返回列表