ＩＥ使用者を否定するな＆専用ブラウザを強要するな
下位互換？
print "Content-Type: text/html\n\n";
$path = $ENV{'PATH_INFO'};
@sp = split /\x2F/, $ENV{'PATH_INFO'};
$ita = $sp[1]; $sure = $sp[2]."\.dat"; $sp[3] .= "-z";
@resno = split /\x2D/, $sp[3];
$resno[0] = 0 if ($resno[0] eq "");
$resno[1] = $resno[0] if ($resno[1] eq "z");
$resno[1] = 2000 if ($resno[1] eq "");
$resno[1] = 2000 if (($resno[1] eq "0") && ($resno[2] eq ""));
$file = "../".$ita."\x2Fdat\x2F".$sure;
print '<html><head><meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">';
open FILE , $file;
$number = 0;
foreach (<FILE>) {
$number++;
s/\r//g; s/\n//g;
@sp = split /\x3C\x3E/, $_;
$name = $sp[0]; $mail = $sp[1]; $date = substr($sp[2], 0, 14); $id = substr($sp[2], 15, 11); $msg = $sp[3]; $ext = $sp[4];
print "Content-Type: text/html\n\n";
$path = $ENV{'PATH_INFO'};
@sp = split /\x2F/, $ENV{'PATH_INFO'};
$ita = $sp[1]; $sure = $sp[2]."\.dat"; $sp[3] .= "-z";
@resno = split /\x2D/, $sp[3];
$resno[0] = 0 if ($resno[0] eq "");
$resno[1] = $resno[0] if ($resno[1] eq "z");
$resno[1] = 2000 if ($resno[1] eq "");
$resno[1] = 2000 if (($resno[1] eq "0") && ($resno[2] eq ""));
$file = "../".$ita."\x2Fdat\x2F".$sure;
print '<html><head><meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">';
open FILE , $file;
$number = 0;
foreach (<FILE>) {
$number++;
s/\r//g; s/\n//g;
@sp = split /\x3C\x3E/, $_;
$name = $sp[0]; $mail = $sp[1]; $date = substr($sp[2], 0, 14); $id = substr($sp[2], 15, 11); $msg = $sp[3]; $ext = $sp[4];
|
|
|
119 ：るぅりん☆６歳 ◆IAc6UigumM ：04/06/03 03:50 ID:ZqJBaJi8
if ($number == 1) {
print "<title>".$ext."</title>";
print "</head><body bgcolor=#efefef text=black link=blue alink=red vlink=#660099>";
print "<font size=+1 color=red>".$ext." </font><dl>";
}
if (($resno[0] <= $number) && ($number <= $resno[1])){
print "<dt>".$number." ：";
if ($mail ne "") { print "<a href=\"mailto:".$mail."\x22>" ; } else { print "<font color=green>" ; }
print "<b>".$name."</b>";
if ($mail ne "") { print "</a>"; } else { print "</font>"; }
print "[".$mail."] 投稿日：".$date." ".$id."<dd>".$msg."<br><br>";
}}
close FILE;
print "</body></html>";
exit;
きたないソースだな（ｗ
print "<title>".$ext."</title>";
print "</head><body bgcolor=#efefef text=black link=blue alink=red vlink=#660099>";
print "<font size=+1 color=red>".$ext." </font><dl>";
}
if (($resno[0] <= $number) && ($number <= $resno[1])){
print "<dt>".$number." ：";
if ($mail ne "") { print "<a href=\"mailto:".$mail."\x22>" ; } else { print "<font color=green>" ; }
print "<b>".$name."</b>";
if ($mail ne "") { print "</a>"; } else { print "</font>"; }
print "[".$mail."] 投稿日：".$date." ".$id."<dd>".$msg."<br><br>";
}}
close FILE;
print "</body></html>";
exit;
きたないソースだな（ｗ