[ 永遠的UNIX::UNIX技術資料的寶庫 ]   GB | BIG5
首頁 > 編程技術 > 源碼天堂 > 正文
Perl源碼:分頁顯示CGI程序范例
本文出自:http://gzdzw.51.net 作者: 思維 (2001-08-23 12:00:01)
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++;}
}                


(http://www.fanqiang.com)     進入【UNIX論壇】
相關文章
Perl源碼:一種圖形顯示式計數器CGI程序范例 (2001-08-23 15:00:00)
Perl源碼:分頁顯示CGI程序范例 (2001-08-23 12:00:01)
Perl源碼:在線人數統計CGI程序剖釋 (2001-08-23 10:00:01)
Perl源碼:日歷CGI程序淺解 (2001-08-23 09:00:01)
 

★  樊強制作 歡迎分享  ★