记数器[新版]计数器原代码

计数器代码  时间:2021-03-19  阅读:()

计数器原代码---中文注释

计数器原代码

----------------------------------------------------------------------

#!/usr/bin/perl

#以上为p erl解释程序在服务器中的目录如果您的

#目录不同需作相应改变。

#origin by:ben short

#upgrade by:杜经农

#ver 2.01

#程序农场出品

######################################################################

#

######################################################################

#------------------------------------------------------

#以下部分可以修改以符合您的站点情况

#------------------------------------------------------

#存放记数器数据的文件名它将放于本perl程序同一目录内

$c ountname="c ounts.txt";

#是否记录访问者的IP地址。 (0=no, 1=yes)

$logip=1;

#服务器中date命令所在的目录

$datepath="/us r/bin/date";

#记录IP地址的文件它将放于本p erl程序同一目录内

$ipname="ipdata.txt";

#记数器图像所在的URL位置

$ur l="http://duj l.uho m e.n et/c g i-b in/";

#本记数器将要被放置于其上的站点

$s erver="duj l.uhome.net";

#以下为数字图像文件的特性值

$digext=".gif";#g if文件

$digtyp e="a";#a系列

$w idth="15";#图像显示的长与宽度

$height="20";

#######################以下为主程序段无需修改#########################pr int "Content-typ e: text/html\n\n";open(F ILE, $c ountname);

$c ounter=<FI LE>;close(FILE);sub c ounter {

@data=split(":", $c ounter);

$c ount=@data[0];

$lastip=@data[1];

#以下比较访问者的IP地址与上一次的是否相同如相同

#则不增加记数。if($ENV{'REMOTE_ADDR'}ne$lastip) {

$c ount=$c ount+1;

}els e {

$c ount=$c ount+0;

}

@nums=s p lit(//, $c o unt);for eac h$CountNr (@num s) {

$printc ount = "<img src=\"$url$CountNr$digtype$d igext\" w idth=\"$w idth\" height=\"$he ight\"alt=\"$C ountNr\">";print$printc ount;

}

}sub write_c ount {op en(FILE, ">$c ountname");print FILE"$c ount:$ENV{'REMOTE_ADDR'}";close(FILE);

}sub write_ip{

$date=`$datepath`;chomp($date);open(FILE, ">>$ipname");print FILE"$date$ENV{'REMOTE_ADDR'}\n";close(FILE);

}

sub validate {if($ENV{'HTTP_HOST'} eq"$s erver") {&c ounter;

&write_c ount;if($logip eq"1") {

&write_ip;

}

}els e {print "请不要使用别人的记数器";

}

}

&validate;

Megalayer新加坡服务器国际带宽线路测评

前几天有关注到Megalayer云服务器提供商有打算在月底的时候新增新加坡机房,这个是继美国、中国香港、菲律宾之外的第四个机房。也有工单询问到官方,新加坡机房有包括CN2国内优化线路和国际带宽,CN2优化线路应该是和菲律宾差不多的。如果我们追求速度和稳定性的中文业务,建议还是选择CN2优化带宽的香港服务器。这里有要到Megalayer新加坡服务器国际带宽的测试服务器,E3-1230配置20M国际带...

阿里云香港 16核32G 20M 999元/月

阿里云香港配置图提速啦是成立于2012年的十分老牌的一个商家这次给大家评测的是 阿里云香港 16核32G 20M 这款产品,单单说价格上就是十分的离谱原价8631元/月的现价只要 999元 而且还有个8折循环优惠。废话不多说直接进入正题。优惠时间 2021年8月20日-2021年9月20日 优惠码 wn789 8折优惠阿里云香港BGP专线 16核32G 10M带宽 优惠购买 399元购买链接阿里云...

DogYun27.5元/月香港/韩国/日本/美国云服务器,弹性云主机

DogYun怎么样?DogYun是一家2019年成立的国人主机商,称为狗云,提供VPS及独立服务器租用,其中VPS分为经典云和动态云(支持小时计费及随时可删除),DogYun云服务器基于Kernel-based Virtual Machine(Kvm)硬件的完全虚拟化架构,您可以在弹性云中,随时调整CPU,内存,硬盘,网络,IPv4路线(如果该数据中心接入了多条路线)等。DogYun弹性云服务器优...

计数器代码为你推荐
EnquatnophpuctoolsDiscuz! X3管理员可以查询某个用户登录IP的历史记录吗?企业推广品牌推广的目的是什么?cisco2960配置cisco 2960 配置VLAN上网美要求解锁iPhoneiPhone连接Mac的时候出现提示需要解锁iPhoneflashfxp注册码谁知道 FlashFXP.rar的注册码?刚刚网刚刚在网上认识了一个女孩子,不是很了解她,就跟她表白了。颁发的拼音大致的致的拼音300051三五互联170号段和三五互联什么关系123456hd手机卡上出现符号hd怎么取消
天津虚拟主机 过期域名查询 鲁诺vps 阿里云搜索 便宜服务器 java主机 56折 2017年黑色星期五 淘宝双十一2018 魔兽世界台湾服务器 500m空间 商务主机 韩国网名大全 193邮箱 me空间社区 服务器是干什么的 卡巴斯基破解版 1元域名 台湾google 我的世界服务器ip 更多