20CN网络安全小组论坛 - 网站建设 - 老大我想要这三个cgi程序

论坛: 网站建设标题: 老大我想要这三个cgi程序

复制本贴地址

作者: meiying [meiying]

版主

aoming认为到目前为止,问题已有明确答案,本贴已被冻结,不再接受更多的回复

地主发表时间: 12/31 11:58

回复: NetDemon [netdemon]

ADMIN

#!/usr/bin/perl
my $ip=$ENV{'REMOTE_ADDR'};
print "Content-type: text/html\n\n";
print "document.write('你的IP:<font color=#004d9c>'+'$ip'+'</font>');";
exit 0;

#!/usr/bin/perl
my $countdb="c:/httpd/cgi-bin/count";
my $id = 'index';
dbmopen (%clickdbm,"$countdb",0666);
if ($clickdbm{$id}){
$count=$clickdbm{$id};
$count++;
$clickdbm{$id}=$count;
}else{
$clickdbm{$id}=1;
}
dbmclose(%clickdbm);
print "Content-type: text/html\n\n";
print "document.write('访问人数:<font color=\"#004d9c\">'+$count+'</font>');";

B1层发表时间: 1/2 2:58