總記錄數: $totalrecode 個
HTMLEOF
if ($searchswitch eq "ON")
$searchcontent = $FORM{'search'};
&look;
exit(0)
}
elsif ($work eq "add")
{
&addguest;
exit(0);
}
elsif ($work eq "look")
{
&look;
exit(0);
}
elsif ($work eq "manage")
{
&manage;
exit(0);
}
elsif ($work eq "del")
{
&del;
exit(0);
}
elsif ($work eq "guestbook")
{
&guestbook;
exit(0);
}
&look;
exit(0);
sub look
{
dbmopen(%TEMP,"$datapath$user",0666);
%USERLIST = %TEMP;
dbmclose(%TEMP);
@userno=keys %USERLIST;
@userno=sort @userno;
$totalrecode = $#userno+1;
print <
|
[版主管理] [給我留言]
[給我寫信] |
|
HTMLEOF
if ($searchswitch ne "ON")
{
$temp = $totalrecode-($page)*$pagenum;
}
else
{
$temp = 0;
$searchtotal = 0;
foreach (%USERLIST)
{
if ($_ =~ /$searchcontent/)
{
$searchtotal++;
}
}
}
print <
總記錄數: $totalrecode 個
HTMLEOF
if ($searchswitch eq "ON")
{
printf (",找到 %d 個記錄",$searchtotal);
}
print <
HTMLEOF
if ($temp < 0) {$temp = 0};
for ($inti = ($totalrecode-($page-1)*$pagenum-1);$inti >= $temp;$inti--)
{
$tmp=$userno[$inti];
($mark,$name,$email,$place,$photo,$texti,$url,$ipaddress,$date_time,$markend,$last)=split(/∥/,$USERLIST{$tmp});
$recode = $inti+1;
$photoimage = substr($photo,0,2);
$photoname = substr($photo,4,4);
$photoimage = "$photopath$photoimage.gif";
if ($searchswitch ne "ON")
{
&writeguest;
}
else
{
if ($USERLIST{$tmp} =~ /$searchcontent/)
{
&writeguest;
}
}
}
$tmp = $totalrecode / $pagenum;
$temp= $totalrecode % $pagenum;
if ($temp != 0) {$tmp++;}
$pageindex = "";
for ($inti = 1;$inti <= $tmp; $inti++)
{
$pageindex = "$pageindex $inti";
}
if (($totalrecode == 0) || ($searchtotal == 0))
{
if ($searchswitch ne "ON")
{
if ($totalrecode == 0)
{
print "沒有記錄\n";
}
}
else
{
print "沒有找到符合條件的記錄\n";
}
}
print < |
HTMLEOF
if ($searchswitch ne "ON")
{
print <頁數:$pageindex
HTMLEOF
}
else
{
print "退出查找";
}
print <
[版主管理] [給我留言]
[給我寫信] |
|
HTMLEOF
}
sub addguest
{
$name = &checknull($FORM{'name'} ,"名字項不能為空!!");
$email = $FORM{'email'};
$place = $FORM{'place'};
$url = $FORM{'url'};
$texti = &checknull($FORM{'texti'} ,"留言項不能為空!!");
$photo = $FORM{'photo'};
$newuserno = sprintf ("%04d%02d%02d%02d%02d%02d",$year,$mon,$mday,$hour,$min,$sec);
$ipaddress = $ENV{'REMOTE_ADDR'};
$date_time = sprintf ("%04d/%02d/%02d %02d:%02d:%02d",$year,$mon,$mday,$hour,$min,$sec);
dbmopen(%USERFILE,"$datapath$user",0666);
$USERFILE{$newuserno} = "start∥$name∥$email∥$place∥$photo∥$texti∥$url∥$ipaddress∥$date_time∥end∥\n";
dbmclose(%USERFILE);
$linkurl = "$cgi_url?work=look&user=$user&page=1";
print "";
}
sub checknull
{
if ($_[0] eq "")
{
&errorinput($_[1]);
}
else
{
if ($allow_html ==0)
{
$return=&filterhtml($_[0]);
}
else
{
$return=$_[0];
}
}
return $return;
}
sub errorinput
{
print " \n$_[0]\n \n【回上一頁】 \n |