KENT-WEB サポートコーナー 過去ログ [ 0452 ]


記事No: 6383
投稿日: 2009/09/15(Tue) 08:27:15
タイトルAska BBS ワード検索結果に通し番号を入れるには?
ID情報: benkyo
投稿者: benkyo
URLhttp://localhost/benkyo/public_html/html/

お世話になります。LocalhostでCGIを勉強中のものです。

ワード検索後に通し番号(凡例:kentを検索したと仮定 検索結果:10件 の場合 1 2-----10 と番号つけたい)
を入れるには。
投稿日の番号は通し番号の後につけたい。

どなたかこの手のCGIに詳しい方がいらっしゃいましたら何卒お力をお貸しください。 
よろしくお願いします。


記事No: 6385
投稿日: 2009/09/15(Tue) 19:31:44
タイトルRe: Aska BBS ワード検索結果に通し番号を入れるには?
ID情報: Fuyuki
投稿者: BAL
URLhttp://f43.aaa.livedoor.jp/~sumure/

> お世話になります。LocalhostでCGIを勉強中のものです。
>
> ワード検索後に通し番号(凡例:kentを検索したと仮定 検索結果:10件 の場合 1 2-----10 と番号つけたい)
> を入れるには。
> 投稿日の番号は通し番号の後につけたい。
>
> どなたかこの手のCGIに詳しい方がいらっしゃいましたら何卒お力をお貸しください。 
> よろしくお願いします。

以下の追加修正を行ってください。

#-------------------------------------------------
# ワード検索
#-------------------------------------------------
-- 省略 --
foreach (@find) {
my ($no,$ymd,$nam,$eml,$sub,$com,$url) = split(/<>/);
$j++; ##★追加
if ($eml) { $nam = "<a href=\"mailto:$eml\">$nam</a>"; }
if ($url) { $com .= "<p><a href=\"$url\" target=\"_blank\">$url</a></p>"; }

print "<dt><hr>[<b>$no</b>] <b style=\"color:$subCol\">$sub</b> ";
print "投稿者:<b>$nam</b> 投稿日:$ymd [$j]<br><br>\n"; ##★修正
print "<dd>$com<br><br>\n";
}


記事No: 6446
投稿日: 2009/09/29(Tue) 11:15:29
タイトルRe^2: Aska BBS ワード検索結果に通し番号を入れるには?
ID情報: benkyo
投稿者: benkyo

> > お世話になります。LocalhostでCGIを勉強中のものです。
> >
> > ワード検索後に通し番号(凡例:kentを検索したと仮定 検索結果:10件 の場合 1 2-----10 と番号つけたい)
> > を入れるには。
> > 投稿日の番号は通し番号の後につけたい。
> >
> > どなたかこの手のCGIに詳しい方がいらっしゃいましたら何卒お力をお貸しください。 
> > よろしくお願いします。
>
> 以下の追加修正を行ってください。
>
> #-------------------------------------------------
> # ワード検索
> #-------------------------------------------------
> -- 省略 --
> foreach (@find) {
> my ($no,$ymd,$nam,$eml,$sub,$com,$url) = split(/<>/);
> $j++; ##★追加
> if ($eml) { $nam = "<a href=\"mailto:$eml\">$nam</a>"; }
> if ($url) { $com .= "<p><a href=\"$url\" target=\"_blank\">$url</a></p>"; }
>
> print "<dt><hr>[<b>$no</b>] <b style=\"color:$subCol\">$sub</b> ";
> print "投稿者:<b>$nam</b> 投稿日:$ymd [$j]<br><br>\n"; ##★修正
> print "<dd>$com<br><br>\n";
> }

BALさん有難うございます。お詫びが遅れたこと 深くお詫び致します。


記事No: 6447
投稿日: 2009/09/29(Tue) 11:16:01
タイトルBALさん有難うございました
ID情報: benkyo
投稿者: benkyo

BALさん有難うございます。お詫びが遅れたこと 深くお詫び致します。

> > > お世話になります。LocalhostでCGIを勉強中のものです。
> > >
> > > ワード検索後に通し番号(凡例:kentを検索したと仮定 検索結果:10件 の場合 1 2-----10 と番号つけたい)
> > > を入れるには。
> > > 投稿日の番号は通し番号の後につけたい。
> > >
> > > どなたかこの手のCGIに詳しい方がいらっしゃいましたら何卒お力をお貸しください。 
> > > よろしくお願いします。
> >
> > 以下の追加修正を行ってください。
> >
> > #-------------------------------------------------
> > # ワード検索
> > #-------------------------------------------------
> > -- 省略 --
> > foreach (@find) {
> > my ($no,$ymd,$nam,$eml,$sub,$com,$url) = split(/<>/);
> > $j++; ##★追加
> > if ($eml) { $nam = "<a href=\"mailto:$eml\">$nam</a>"; }
> > if ($url) { $com .= "<p><a href=\"$url\" target=\"_blank\">$url</a></p>"; }
> >
> > print "<dt><hr>[<b>$no</b>] <b style=\"color:$subCol\">$sub</b> ";
> > print "投稿者:<b>$nam</b> 投稿日:$ymd [$j]<br><br>\n"; ##★修正
> > print "<dd>$com<br><br>\n";
> > }
>
> BALさん有難うございます。お詫びが遅れたこと 深くお詫び致します。


記事No: 6444
投稿日: 2009/09/29(Tue) 09:30:02
タイトルRe: Aska BBS ワード検索結果に通し番号を入れるには?
ID情報: benkyo
投稿者: benkyo

お世話になります。LocalhostでCGIを勉強中のものです。
ワード検索後に通し番号(凡例:kentを検索したと仮定 検索結果:10件 の場合 1 2-----10 と番号つけたい)
を入れるには。投稿日の番号は通し番号の後につけたい。
どなたかこの手のCGIに詳しい方がいらっしゃいましたら何卒お力をお貸しください。 
よろしくお願いします。

BALさん 有難うございました。
お礼が遅れたことをお詫び申しあげます。


記事No: 6445
投稿日: 2009/09/29(Tue) 09:55:26
タイトルAska BBS ワード検索に昇順、降順の追加方法?
ID情報: benkyo
投稿者: benkyo

お世話になります。Localhost(Activeperl Anhttpd)でCGIを勉強中のものです。
ワード検索に選択メニュー(プルダウン)で日付の古い順、新しい順、名前のアルファベット順の機能を追加する方法をアドバイス下さい。

どなたかこの手のCGIに詳しい方がいらっしゃいましたら何卒お力をお貸しください。 
よろしくお願いします。


[検索ページ]