| > とりあえず、改造したファイルを見せていただけますか？
> みないとなんともいえませんので．
有難うございます。お言葉に甘えさせていただきます。
ファイルアップ機能が見当たりませんので、改造部分のみにいたします。
<tr><td colspan=2><input type=checkbox name=bigmin value=1$CB2$fm>大文字と小文字を区別する</td>
<tr><td coklspan=2><input type="checkbox" name="OyaSearch" value="1"> 親記事のみ検索する</td>
<td colspan=2 align=right>
<input type=submit value=" 検 索 "$fm>
<input type=reset value="リセット"$fm>
</td></tr></table></form>$nowlog</center>
_SS_
if($word ne "") {
$word =~ s/ / /g;
$word =~ s/\t/ /g;
@key_ws= split(/ /,$word);
if($logs eq "all"){
$Stert=0; if($FORM{'N'}){($N,$S)=split(/\,/,$FORM{'N'}); $Stert=$N;} $End=$n-1;
if($klog_a==0){&er_("全過去ログ検索は使用不可");}}
else{$Stert=0; $End=0;}
@new=(); $Next=0;
foreach ($Stert..$End) {
if($logs eq "all"){$I=$_+1; $IT="$I\.txt"; $Log="$klog_d\/$IT";}
elsif($logs eq $log){$Log=$log;}
else{$Log="$klog_d\/$logn\.txt";}
open(DB,$Log) || &er_("Can't open $Log");
while ($Line=<DB>) {
$hit = 0;
($nam,$date,$name,$email,$d_may,
$url,$font,$ico,$type,$del,$ip) = split(/<>/,$Line);
if($type > 0 && $FORM{"OyaSearch"}){next;}
if($FORM{"ALL"}){
以上 よろしくお願いいたします。
|
