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

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

Hostwinds:免费更换IP/优惠码美元VPS免费更换IP4.99,7月最新优惠码西雅图直连VPS

hostwinds怎么样?2021年7月最新 hostwinds 优惠码整理,Hostwinds 优惠套餐整理,Hostwinds 西雅图机房直连线路 VPS 推荐,目前最低仅需 $4.99 月付,并且可以免费更换 IP 地址。本文分享整理一下最新的 Hostwinds 优惠套餐,包括托管型 VPS、无托管型 VPS、Linux VPS、Windows VPS 等多种套餐。目前 Hostwinds...

spinservers:圣何塞10Gbps带宽服务器月付$109起,可升级1Gbps无限流量

spinservers是Majestic Hosting Solutions LLC旗下站点,主营国外服务器租用和Hybrid Dedicated等,数据中心在美国达拉斯和圣何塞机房。目前,商家针对圣何塞部分独立服务器进行促销优惠,使用优惠码后Dual Intel Xeon E5-2650L V3(24核48线程)+64GB内存服务器每月仅109美元起,提供10Gbps端口带宽,可以升级至1Gbp...

RackNerd:美国便宜VPS,洛杉矶DC-02/纽约/芝加哥机房,4TB月流量套餐16.55美元/年

racknerd怎么样?racknerd美国便宜vps又开启促销模式了,机房优秀,有洛杉矶DC-02、纽约、芝加哥机房可选,最低配置4TB月流量套餐16.55美元/年,此外商家之前推出的最便宜的9.49美元/年套餐也补货上架,同时RackNerd美国AMD VPS套餐最低才14.18美元/年,是全网最便宜的AMD VPS套餐!RackNerd主要经营美国圣何塞、洛杉矶、达拉斯、芝加哥、亚特兰大、新...

计数器代码为你推荐
公告编号:2020-004操作httphttp500http 500是什么意思?accessdenied重装时系统都会提示access denied企业ssl证书国内哪些公司是专门做ssl证书的呢?cuteftpCuteFTP的主要功能是什么?360邮箱360免费申请邮箱在那里163yeahyeah邮箱和163邮箱的区别在哪里 那个好用三友网三友有机硅是不是国企,待遇如何?现在花钱去是不是值得?购物车通过自己的体会总结购物车的作用
租服务器 什么是域名 俄罗斯vps 过期域名抢注 qq云存储 mach5 60g硬盘 好玩的桌面 天猫双十一抢红包 php空间申请 建立邮箱 129邮箱 中国电信宽带测速网 电信托管 路由跟踪 谷歌台湾 免费网络 lamp的音标 cdn服务 闪讯网 更多