めもがき

ランダムバナー　メモ

<SCRIPT LANGUAGE="JavaScript">
<!--
img=new Array(1);
img[0]="<a href='http://' target='_blank'><img src='http://' border='0' width='468' height='60'></a>";

imgNo=Math.floor(1*Math.random());
document.write(img[imgNo]);
//-->
</SCRIPT>

FILE読み込み

open FILE,"data.txt";
flock( FILE , 2 );
while(<FILE>){
$data = $_;
@datas = ();
@datas = split(/,/,$data);
last;
}
close FILE;

クッキー処理

Ｃｏｏｋｉｅ呼び出し

sub GetCookie
{
local($cookie) = $ENV{'HTTP_COOKIE'};
local(*data, @cookie, $key, $val);
@cookie = split(/ /, $cookie);
foreach (@cookie) {
($key, $val) = split(/=/);
$data{$key} = $val;
}
return *data;
}

if ($ENV{'HTTP_COOKIE'}) {
*data = GetCookie($ENV{'HTTP_COOKIE'});
@w = split(/\,/, $data{'xxxx'});
$xxxxx = @w[0];
}

Cookieカキコミ

$cknm = 'ccccc';
$ckrec = "$ddddd\,";

print "Content-type: text/html\n";

$str = $ENV{'HTTP_USER_AGENT'};

if($str =~ /MSIE/){ #$appName = "Microsoft Internet Explorer";
print "Set-Cookie: $cknm=$ckrec; expires=Tue, 1-Jan-2030 00:00:00 GMT;\n\n"
}elsif($str !~ /compatible/ and $str =~ /Mozilla/){#$appName = "Netscape";
print "Set-Cookie: $cknm=$ckrec; expires=Tue, 1-Jan-2030 00:00:00 GMT; path=; domain=;\n\n"
}else{ #$appName = "Others";
print "Set-Cookie: $cknm=$ckrec; expires=Tue, 1-Jan-2030 00:00:00 GMT; path=; domain=;\n\n"
}