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

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

hostkey俄罗斯、荷兰GPU显卡服务器/免费Windows Server

Hostkey.com成立于2007年的荷兰公司,主要运营服务器出租与托管,其次是VPS、域名、域名证书,各种软件授权等。hostkey当前运作荷兰阿姆斯特丹、俄罗斯莫斯科、美国纽约等数据中心。支持Paypal,信用卡,Webmoney,以及支付宝等付款方式。禁止VPN,代理,Tor,网络诈骗,儿童色情,Spam,网络扫描,俄罗斯色情,俄罗斯电影,俄罗斯MP3,俄罗斯Trackers,以及俄罗斯法...

GigsGigsCloud 春节优惠2022 指定云服务器VPS主机85折循环优惠码

GigsGigsCloud商家在之前介绍的还是比较多的,因为之前我一直有几台机器在使用,只是最近几年网站都陆续转型删除掉不少的网站和闲置域名,包括今年也都减少网站开始转型自媒体方向。GigsGigsCloud 商家产品还是比较有特色的,有提供香港、新加坡等亚洲机房的云服务器、VPS和独立服务器等。第一、新春优惠活动优惠码:CNY2022-15OFF截止到正月初二,我们可以使用上述优惠码在购买指定G...

酷锐云香港(19元/月) ,美国1核2G 19元/月,日本独立物理机,

酷锐云是一家2019年开业的国人主机商家,商家为企业运营,主要销售主VPS服务器,提供挂机宝和云服务器,机房有美国CERA、中国香港安畅和电信,CERA为CN2 GIA线路,提供单机10G+天机盾防御,提供美国原生IP,支持媒体流解锁,商家的套餐价格非常美丽,CERA机房月付20元起,香港安畅机房10M带宽月付25元,有需要的朋友可以入手试试。酷锐云自开业以来一直有着良好的产品稳定性及服务态度,支...

计数器代码为你推荐
三星iphonehttp500ZTCS500在哪能下载手机QQ?苹果appstore宕机苹果无法连接到appstore怎么办cuteftp什么是 CuteFtp Flashfxp Leapftp FlashGet360邮箱360免费申请邮箱在那里sqlserver数据库SQL Server 数据库 (+) 这个是什么意思银花珠树晓来看用黄皮比喻心酸的诗句闪拍网闪拍网之类的网站怎么回事?tumblr上不去吃鸡更新完打不开,成这样了,怎么办在线等,挺急的中国保健养猪网中央7台致富经养猪
深圳域名空间 淘宝二级域名 企业主机 bluevm yardvps cdn服务器 parseerror 512m内存 admit的用法 699美元 中国电信宽带测速网 万网主机管理 沈阳主机托管 空间申请 卡巴斯基官网下载 97rb 服务器防御 web服务器有哪些 nic ddos防火墙 更多