- ソスtソスソスソス[ソスナ鯉ソスソスJソスソスソスソストゑソスソスソスCGIソスノなゑソスソスソスソスレゑソスヌ会ソスソスソスソス骼厄ソスソスソスナゑソスソスワゑソスソスB
ソスソスソスニゑソスソスホ、ソスソスソスTソスCソスgソスナ鯉ソスソスJソスソスソストゑソスソスソスuソスfソスソスソスツ」ソスニ鯉ソスソスソスソスソスソスフ掲ソスソスソスツでゑソスE-MailソスソスソスLソスソスソスソスソス骰ソスレゑソスソスソスソスソスソスソスソスVソスソスソスvソスソスソスネ包ソスソスナゑソスソスB
ソスソスソスフ掲ソスソスソスツにゑソスソスソスソスソスソスソスソスナゑソスソスソスソスAE-Mailソスフ搾ソスソスレゑソスヌ会ソスソスナゑソスソスワゑソスソスB
- ソスtソスHソス[ソスソスソスノ搾ソスソスレゑソスヌ会ソスソスソスソスソス
ソスソスソスヘとゑソスソスソスソスソスAソスtソスHソス[ソスソスソスノ搾ソスソスレゑソスソスソスソスソスソスソスソスノは記ソスソスソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスソスB
ソスソスソスフ掲ソスソスソスツのフソスHソス[ソスソスソスヘサソスuソスソスソス[ソス`ソスソスソスusub editformソスvソスナ抵ソス`ソスソスソスソストゑソスソスワゑソスソスB
sub editform {
my($editcode) = @_;
my($year, $month, $day) = split(/\//, $birthday);
print "<input type=hidden name=action value=regist>\n";
print "<input type=hidden name=editcode value=$editcode>\n";
print "<table border=1 cellspacing=0 cellpadding=2>\n";
print "<td align=center>ソスソスソスソス</td>\n";
print "<td>";
if ($sex) {
print "<input type=radio name=sex value=0>ソスjソスソス\n";
print "<input type=radio checked name=sex value=1>ソスソスソスソス\n";
} else {
print "<input type=radio checked name=sex value=0>ソスjソスソス\n";
print "<input type=radio name=sex value=1>ソスソスソスソス\n";
}
print "</td></tr>\n";
print "<tr><td align=center>$DOWN[0]</td>\n";
print "<td><select name=down size=1>\n";
foreach (1 .. @DOWN-1) {
if ($down == $_) { $selected = ' selected'; }
else { $selected = ''; }
print "<option$selected value=$_>$DOWN[$_]</option>\n";
}
print "</select></td></tr>\n";
print "<tr><td align=center>ソスソスソスソス</td>\n";
print "<td><input type=text size=24 name=name value=\"$name\">\n";
print "ソスpソスXソスソスソス[ソスh<input type=password name=pass value=\"$pass\"> \n";
print "ソスマ更ソスソスソスソスソスソスAソス除ソスソスソスノはパソスXソスソスソス[ソスhソスソスソスKソスvソスナゑソスソスB</td></tr>\n";
print "<tr><td align=center>E-Mail</td>\n";
print "<td><input type=text size=24 name=email value=\"$email\"></td></tr>\n";
print "<tr><td align=center valign=top>ソスRソスソスソスソスソスg</td>\n";
print "<td><textarea name=comment cols=60 rows=12>$comment</textarea></td></tr>\n";
print "</table>\n";
print "<input type=submit name=regist value=ソスネ擾ソスフ難ソスソスeソスナ難ソスソスeソスソスソスソス>\n";
if ($editcode) {
print "<input type=submit name=delete value=ソスソスソスフ記ソスソスソスソスソス除ソスソスソスソス>\n";
}
}
|
|
ソスヤ趣ソスソスナ擾ソスソスソスソス黷スソスソスソスソスソスソスソスヌ会ソスソスソスソス黷スソスRソス[ソスhソスナゑソスソスB
ソスソスソス黷セソスソスソスソスE-MailソスフフソスBソス[ソスソスソスhソスヘ追会ソスソスソスソスソスワゑソスソスソスソスB
- ソスロ托ソスソスtソスBソス[ソスソスソスhソスフ追会ソス
ソスtソスHソス[ソスソスソスノ搾ソスソスレゑソスヌ会ソスソスソスソス驍セソスソスソスナは難ソスソスヘゑソスソス驍アソスニゑソスソスナゑソスソストゑソスCGIソスソスソスソスソスヘゑソスソス黷スソスfソス[ソス^ソスソスロ托ソスソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスソスB
ソスソスソスソスソスナ、ソスtソス@ソスCソスソスソスノ保托ソスソスソスソスソスtソスBソス[ソスソスソスhソスソスヌ会ソスソスソスソストフソスHソス[ソス}ソスbソスgソス整ゑソスソスワゑソスソスB
ソスuソスfソスソスソスツ」ソスナは、ソスVソスソスソスソスソスLソスソスソスソスロ托ソスソスソスソスソス鼾ソスニ、ソスマ更ソスソスソスソスソスソスソス黷スソス鼾ソスフフソスHソス[ソス}ソスbソスgソスナは異なゑソスワゑソスソスフで、
ソスソスソス黷シソスソスン定すソスソスKソスvソスソスソスソスソスソスワゑソスソスBソスワゑソスソスヘ、ソスVソスKソスoソス^ソスソスソスフフソスHソス[ソス}ソスbソスgソスナゑソスソスB
$value = join("\t",
"code=$newcode",
"date=$DATE",
"sex=$QUERY{'sex'}",
"down=$QUERY{'down'}",
"name=$QUERY{'name'}",
"pass=$QUERY{'pass'}",
"email=$QUERY{'email'}",
"comment=$QUERY{'comment'}",
"\n"
););
|
|
ソスソスLソスヤ趣ソスソスフ行ソスソスソスヌ会ソスソスソスソス黷スソスソスソス[ソスソスソスAソスhソスソスソスXソスフフソスBソス[ソスソスソスhソスナゑソスソスB
ソスソスソスlソスノ、ソスマ更ソスソスソスソスソスソスソス黷スソス鼾ソスフフソスHソス[ソス}ソスbソスgソスヨゑソスソスtソスBソス[ソスソスソスhソスソスヌ会ソスソスソスソストゑソスソスソスソスソスソスソスソスB
$line = join("\t",
"code=$FIELD{'code'}",
"date=$FIELD{'date'}",
"sex=$QUERY{'sex'}",
"down=$QUERY{'down'}",
"name=$QUERY{'name'}",
"pass=$QUERY{'pass'}",
"email=$QUERY{'email'}",
"comment=$QUERY{'comment'}",
"\n"
);
|
|
- ソスソスソス[ソスソスソスAソスhソスソスソスXソスフ表ソスソス
ソスソスソスソスソスワでで、ソスソスソス[ソスソスソスAソスhソスソスソスXソスソスソスLソスソスソスソスソスト保托ソスソスソスソス驍アソスニは可能ソスノなゑソスワゑソスソスソスソスB
ソスソスヘ、ソスソスソスフソスソス[ソスソスソスAソスhソスソスソスXソスソスソスヌゑソスソスgソスソスソスソスソスナゑソスソスBソスソスソスソスソスナは、ソスLソスソスソスフタソスCソスgソスソスソスノ表ソスソスソスソスソストみまゑソスソス蛯、ソスB
ソスソスソスeソスLソスソスソスヘ、ソスソスソスCソスソスソスソスソス[ソス`ソスソスソスフ最鯉ソスフセソスNソスVソスソスソスソスソスナゑソスソスB
foreach ($pline .. $page_end) {
if ($i != 1) { print "<br>\n"; }
%FIELD = fields($MATCH[$_]);
&boxtop($tablewidth);
print "<table border=0 cellspacing=0 cellpadding=2 width=100%>\n";
print "<td bgcolor=$bg><input type=radio name=code value=$FIELD{'code'}></td>\n";
print "<td bgcolor=$bg>$FIELD{'name'}</td>\n";
print "<td bgcolor=$bg>$DOWN[$FIELD{'down'}]</td>\n";
print "<td bgcolor=$bg>";
if ($FIELD{'sex'}) { print "ソスソスソスソス"; } else { print "ソスjソスソス"; }
print "<td bgcolor=$bg>";
if ($FIELD{'email'} =~ /[\w-]+\@[\w\.\-]*/) {
print "<a href=mailto:$FIELD{'email'}>$FIELD{'email'}</a>";
}
print "</td>\n";
print "<td bgcolor=$bg align=right>", jst_time($FIELD{'date'}), "</td></tr>\n";
$FIELD{'comment'} =~ s/\r/<br>/g;
$FIELD{'comment'} =~ s/ / /g;
print "<td></td><td colspan=5>$FIELD{'comment'}</td></tr>\n";
print "</table>\n";
&boxbottom();
$i++;
}
|
|
- ソスマ更ソスソスソスソスソスソスソスフプソスソスソスソスソスvソスg
ソスソスソスソスナ、ソスソスソスヘゑソスソス黷スソスソスソス[ソスソスソスAソスhソスソスソスXソスヘフソス@ソスCソスソスソスノ保托ソスソスソスソスソスAソスソスソス[ソスソスソスAソスhソスソスソスXソスソスソスLソスソスソスソスソスソストゑソスソスソスLソスソスソスヘ、
ソスLソスソスソス齬暦ソスノゑソスソスソスソスソスソスNソスtソスソスソスナ表ソスソスソスナゑソスソスソス謔、ソスノなゑソスワゑソスソスソスソスB
ソスハ擾ソスフ掲ソスソスソスツでは、ソスソスソスソスナ奇ソスソスソスソスネのでゑソスソスソスソスAソスソスソスフ「ソスfソスソスソスツ」ソスノは、ソスソスソスeソスメと、ソスヌ暦ソスソスメゑソスソスマ更ソスソスソスソスソスナゑソスソスソス@ソス\ソスソスソスLソスソスワゑソスソスB
ソスマ更ソスソスソスソスソスソスソスwソス閧ウソスソスソスニ、ソスマ更ソスソスソスソスソスソスソスソスLソスソスソスソスヌみ搾ソスソスン、
ソス\ソス゚フソスBソス[ソスソスソスhソスノプソスソスソスソスソスvソスgソスソスソスニゑソスソストセソスbソスgソスソスソストゑソスソスソスソスネゑソスソスソスホなゑソスワゑソスソスソスB
} elsif ($QUERY{'action'} eq 'edit') {
@DUMMY = grep(/^code=$QUERY{'code'}\t/, @DATA);
if (@DUMMY) {
%FIELD = fields($DUMMY[0]);
if (($FIELD{'pass'} && $QUERY{'pass'} eq $FIELD{'pass'}) || $password eq $QUERY{'pw'}) {
$sex = $FIELD{'sex'};
$down = $FIELD{'down'};
$name = $FIELD{'name'};
$pass = $FIELD{'pass'};
$email = $FIELD{'email'};
$comment = $FIELD{'comment'};
|
|
ソスソスソスソスナ、ソスソスソスソスソスナゑソスソスBソスソスソスソスソスソスノ奇ソスソスソスソスiソスソスソスLソスソスワゑソスソスフで、ソスソスソスソスソスソスソスフゑソスソスフと費ソスrソスソスソストみてゑソスソスソスソスソスソスソスソスB
ソス\ソスソスソスソスソスソスソスソスソスソスソスソスソスソスソストゑソスソスソス鼾ソスヘ、ソスuソスソスソスEソスUソスソス[ソス\ソスソス]-[ソスGソスソスソスRソス[ソスh]-[ソスソスソス{ソス齊ゥソスソスソスIソスソス]ソスソスIソスソスソスソスソストゑソスソスソスソスソスソスソスソスB
|