counter.pl

CGI图形计数器,包括perl源代码和对应的html文件

$Root = "D:\\Inetpub\\wwwroot\\cgicoun";

$file = "$Root/counter.txt";

$gif{'0'}="$Root/0.gif";
$gif{'1'}="$Root/1.gif";
$gif{'2'}="$Root/2.gif";
$gif{'3'}="$Root/3.gif";
$gif{'4'}="$Root/4.gif";
$gif{'5'}="$Root/5.gif";
$gif{'6'}="$Root/6.gif";
$gif{'7'}="$Root/7.gif";
$gif{'8'}="$Root/8.gif";
$gif{'9'}="$Root/9.gif";

$|=1;
@query = split(/&/, $ENV{'QUERY_STRING'});
foreach $query (@query) {
   ($name, $value) = split(/=/, $query);
   $FORM{$name} = $value;     
}
$digit="$FORM{'digit'}";

open(NUM,"$file");
$num=<NUM>;
close(NUM);

$num++;
if ($digit==1) {
   open(NUM,">$file");
   print NUM "$num";
   close(NUM);
}

if (($digit>0) && ($digit<=length($num))) {
   $digitnum=substr($num,(length($num)-$digit),1);
}
else {
   $digitnum="0";
}
if ($gif{$digitnum}) {
   $images=$gif{$digitnum};
}
else {
   $images=$gif{'0'};
}

print "Content-type: image/gif\n\n";
open(IMAGES,"<$images");
print <IMAGES>;
close(IMAGES);
exit 0;