登录模块加载中...
会员投稿 投稿指南 今天是:
打印本页 | 关闭窗口 | 双击滚屏 您的位置首页>>网页制作学习园地>>CGI教程>>CGI脚本编码>>CGI计数器
CGI计数器
来源:网页制作学习园地 ‖ 作者:网页制作学习园地 ‖ 点击: ‖ 时间:07-12-19 14:55:09 ‖ 【 】‖ 我要投稿

    #!/usr/bin/perl
####################################
# Setup begin
$counterfile = "/hengxing/tj/counter/counter.txt"; #counter.txt的绝对路径
$imagefile{'0'}="/hengxing/tj/counter/0.gif"; # 0.gif的绝对路径
$imagefile{'1'}="/hengxing/tj/counter/1.gif"; # 1.gif的绝对路径
$imagefile{'2'}="/hengxing/tj/counter/2.gif"; # 2.gif的绝对路径
$imagefile{'3'}="/hengxing/tj/counter/3.gif"; # 3.gif的绝对路径
$imagefile{'4'}="/hengxing/tj/counter/4.gif"; # 4.gif的绝对路径
$imagefile{'5'}="/hegnxing/tj/counter/5.gif"; # 5.gif的绝对路径
$imagefile{'6'}="/hegnxing/tj/counter/6.gif"; # 6.gif的绝对路径
$imagefile{'7'}="/hengxing/tj/counter/7.gif"; # 7.gif的绝对路径
$imagefile{'8'}="/hengxing/tj/counter/8.gif"; # 8.gif的绝对路径
$imagefile{'9'}="/hengxing/tj/counter/9.gif"; # 9.gif的绝对路径
#Setup end
############################
$|=1;
@querys = split(/&/, $ENV{'QUERY_STRING'});
foreach $query (@querys) {
($name, $value) = split(/=/, $query);
$FORM{$name} = $value;
}
$position="$FORM{'position'}";


open(NUMBER,"$counterfile");
$number=;
close(NUMBER);


$number++;
if ($position==1) {
open(NUMBER,">$counterfile");
print NUMBER "$number";
close(NUMBER);
}


if (($position>0) && ($position<=length($number))) {
$positionnumber=substr($number,(length($number)-$position),1);
}
else {
$positionnumber="0";
}
if ($imagefile{$positionnumber}) {
$imagereturn=$imagefile{$positionnumber};
}
else {
$imagereturn=$imagefile{'0'};
}


print "Content-type: image/gif\n\n";


open(IMAGE,"<$imagereturn");
print ;
close(IMAGE);
exit 0;

加入收藏:  加入收藏夹  | 发送给好友:  发送给好友
责任编辑:0
  • 上一篇:CGI聊天室
  • 下一篇:web数据库
  • 请文明参与讨论,禁止漫骂攻击。  
    网友评论