阅 读 文 章

Perl源码:分页显示CGI程序范例

[来源:网上转载 (http://www.chinaunix.net) | 作者:网友(不详) | 时间:2007-07-07 | 浏览:人次 ]

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=http://fanqiang.chinaunix.net/program/code/2001-08-23/$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) {
论坛热门帖子: [lch203] 写得蛮好的linux学习笔记(10-21)
[黑马制造] 学习java的30个目标(10-19)
[笑傲股林] 做测试半年了,有点迷茫,应该再学些什么提高自己的测试水平和测试能力呢?(10-19)
[udp8589] 大家用google的来吱一声? 用百度的~~也来报道下?(10-18)
[沂偌掳兆] 本人总结的一些认为C++比较经典的书籍,希望对大家有用(10-18)
TAG标签: 程序 范例 显示 源码 align center width height 数据

最新评论 共有0位网友发表了评论

发表评论

评论内容:不能超过250字,需审核,请自觉遵守互联网相关政策法规。
用户名:(注册)
密码:
验证码:
匿名发表

网站地图友情连接交流论坛网站投稿广告服务联系我们留言本站长统计
Some rights reserved: www.chmhome.com, 鄂ICP备07010232号 E-mail:chinakafei@live.com,QQ:552766
中国咖啡技术网(Chmhome):国外编程技术书籍,中文编程手册,经典编程文章,交流技术,技术软件下载,计算机论文,毕业论文.