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

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

香港最便宜的vps要多少钱?最便宜的香港vps能用吗?

香港最便宜的vps要多少钱?最便宜的香港vps能用吗?香港vps无需备案,整体性能好,而且租用价格便宜,使用灵活,因为备受站长喜爱。无论是个人还是企业建站,都比较倾向于选择香港VPS。最便宜的香港vps能用吗?正因为有着诸多租用优势,香港VPS在业内颇受欢迎,租用需求量也在日益攀升。那么,对于新手用户来说,香港最便宜的vps租用有四大要点是务必要注意的,还有易探云香港vps租用最便宜的月付仅18元...

可抵御99%的攻击中国单域版cdn:9元/月7T防御 cloudsecre

官方网站:点击访问CDN客服QQ:123008公司名:贵州青辞赋文化传媒有限公司域名和IP被墙封了怎么办?用cloudsecre.com网站被攻击了怎么办?用cloudsecre.com问:黑客为什么要找网站来攻击?答:黑客需要找肉鸡。问:什么是肉鸡?答:被控的服务器和电脑主机就是肉鸡。问:肉鸡有什么作用?答:肉鸡的作用非常多,可以用来干违法的事情,通常的行为有:VPN拨号,流量P2P,攻击傀儡,...

CloudCone:洛杉矶MC机房KVM月付1.99美元起,支持支付宝/PayPal

CloudCone是一家成立于2017年的国外VPS主机商,提供独立服务器租用和VPS主机,其中VPS基于KVM架构,多个不同系列,譬如常规VPS、大硬盘VPS等等,数据中心在洛杉矶MC机房。商家2021年Flash Sale活动继续,最低每月1.99美元,支持7天退款到账户,支持使用PayPal或者支付宝付款,先充值后下单的方式。下面列出几款VPS主机配置信息。CPU:1core内存:768MB...

计数器代码为你推荐
操作http操作httphttp500ZTCS500在哪能下载手机QQ?wordpress模板wordpress高手进,我是新手,不知道下载的模板应该放在wordpress的那个地方.请高手指点.谢谢googlepr值seo谷歌pr值和什么有关系cisco2960配置Cisco2960是二层交换机,怎么可以进入配置界面进行配置。不是说二层交换机不需要配置吗?flashftp下载禁室迷情夜下载地址给我 谢谢要能下载出来的dedecms自动采集织梦CMS系统的采集功能不知道怎么采集软件。艾泰科技闻泰科技是做什么的啊?有人能告诉我吗?艾泰科技艾泰的品牌介绍
免费国际域名 提供香港vps 贝锐花生壳域名 Vultr dropbox网盘 大容量存储 百兆独享 爱奇艺vip免费领取 cloudlink 美国凤凰城 宿迁服务器 重庆联通服务器托管 镇江高防服务器 ncp iptables ddos攻击器下载 xendesktop 长沙服务器托管 电脑主机声音很大 灵动鬼影实录剧情 更多