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

计数器代码  时间: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;

ATCLOUD.NET-OVH海外高防云主机,采用KVM架构,稳定安全且便宜好用,仅3刀起

官方网站:点击访问ATCLOUD.NET官网优惠码:目前提供Cloud VPS与Storage VPS两款产品的六折优惠活动(续费同价,截止至2021年5月31日)优惠码:UMMBPBR20Z活动方案:一、型号CPU内存磁盘流量优惠价格购买链接VPS-1GB0.5×2.6+GHz1GB20GB1TB$3立即购买VPS-2GB1×2.6+GHz2GB50GB2TB$6立即购买VPS-4GB2×2.6...

腾讯云新用户省钱秘笈购买云服务器

目前国内云计算市场竞争异常激烈,尤其是国内的腾讯云、阿里云、景安等商家促销活动一波接一波的进行,对于有需要的用户确实得到不小的实惠。但是这样给予国内的主机商确实是比较大的打击,毕竟这些商家的背景和实例强劲,即便是贴本补贴优惠,也是不怕的。前两年阿里一家各种活动促销,确实在国内市场占据主要的市场地位,腾讯云开始两年没有较大的吸引用户,不过这两年的发展还是比较稳健的。我们很多网友在之前肯定也享受到一些...

RackNerd新上圣何塞、芝加哥、达拉斯、亚特兰大INTEL系列,$9.49/年

racknerd怎么样?racknerd商家最近促销三款美国便宜vps,最低只需要9.49美元,可以选择美国圣何塞、西雅图、纽约和芝加哥机房。RackNerd是一家成立于2019年的美国高性价比服务器商家,主要从事美国和荷兰数据中心的便宜vps、独立服务器销售!支持中文工单、支持支付宝和微信以及PayPal付款购买!点击直达:racknerd官方网站INTEL系列可选机房:加利福尼亚州圣何塞、芝加...

计数器代码为你推荐
phpadmin下载phpMyAdmin 软件下载地址在线代理怎么样设置代理,让别人看我的IP是别的地方,不是我真实的IP?泉州商标注册请问泉州商标注册要怎么办理?在哪办理?欢迎光临本店宾馆欢迎语都有哪些? 越多越专业越好如何发帖子怎么发表贴子?艾泰科技闻泰科技是做什么的啊?有人能告诉我吗?店铺统计怎样查淘宝店铺的销售总额repaired电脑蓝屏,出现Your PC needs to be repaired. 要怎么重装系统超级用户隐藏超级用户网站流量统计代码请问怎么在一个网页里添加流量统计代码?
高防服务器租用qy 网站备案域名查询 com域名价格 中国域名网 已备案域名出售 中国万网域名 webhostingpad 轻博客 论坛空间 dd444 北京双线机房 免费申请网站 河南移动m值兑换 能外链的相册 网站加速软件 谷歌台湾 测速电信 97rb netvigator 香港博客 更多