サイトトップ
>
フォーラム一覧
-
トピックス
> [00] GHOST LAB |
READONLY
カスタマイズ
|
ヘルプ
CGI サポートフォーラム
新規投稿
ツリー表示
一括表示
リスト表示
検索
質問をする前に、過去ログに同じ質問がないか検索してください。
記事 No.445 の編集
記事を編集するには管理パスワードが必要です。
管理パスワード
記事タイトル
お名前
りいや
メール
ホームページ
文章欄
HTMLタグは使えません
http://〜とURLを記述すると自動的にリンクされます
改行は反映されます
何度やっても上手くいきそうにないので http://cgi.www5d.biglobe.ne.jp/~ri-ya/cgi-bin/exit/exit.cgi これが現状…どうしてもあいうえお順でなくID順にしたいんです;; サブカテゴリーは今のところあいうえお順にたえられなく(汗; 後回ししてます。どこをどうやればちゃんとなるのかわかんないので 1から見てもらえませんか?面倒ですけれども。 exit.cgiのソース最初から最後までコピペしたので どうすればよいか部分的指導お願いしますm(__)m ホントお忙しいはずなのにゴメンナサイ;; ↓ここからソース↓ #!/usr/local/bin/perl ##---> # # EXIT #003 (2001/06/12) : 2001 (C) Cynical : http://www3.wind.ne.jp/cynical/ # ##---> ############### # EXIT modified version # # Copyright (c) 2001 Masaya HORIKAWA
# http://www.ghost.jp/ # # $Id: exit.cgi,v 1.9 2001/08/09 14:33:13 masaya Exp $ BEGIN { use KCatch qw( source ); } require './setup.cgi'; # require './jcode.pl'; # jcodeへのパス require './mylib.pl'; # $in = &Decode ('euc'); if ($in->{'mode'} eq 'vew') { &vew; } elsif ($in->{'mode'} eq 'text') { &text; } elsif ($in->{'mode'} eq 'list') { &list; } elsif ($in->{'mode'} eq 'menu') { &menu; } else {&index;} #文字コード変換して出力 &jcode::convert( \$html, $charset, 'euc'); print $html; exit; ##------------------------------------------->> 表示関係 sub index { if ($in->{'subid'} ne '') { $index = "$script?mode=vew&subid=$in->{'subid'}"; } $html = <<_HTML_; Content-type: text/html
$title
フレーム対応ブラウザでご覧下さい
_HTML_ } sub menu { &head; my ($tmp_catid, $tmp_subid, $catdata, $subdata); my (%tmp_list, %tmp_sublist) = (); my ($cat_max) = &LoadCategory; $html .= "
\n"; @tmp_cat = split (/\:/, $in->{'catid'}); $tmp=0; foreach $tmp_catid (keys %category) { $catdata = &GetCategory ($tmp_catid); $tmp_list{$catdata->{'group'}."_".$catdata->{'catname'}."_".$catid} = $tmp_catid; } foreach (sort keys %tmp_list) { $catdata = &GetCategory ($tmp_list{$_}); $tmp_count=0; foreach $tmp (@tmp_cat) { if ($tmp eq $catdata->{'catid'}) { $temp = $in->{'catid'}; $temp =~ s/:$tmp:/:/g; $temp =~ s/^$tmp://; $temp =~ s/:$tmp$//; $html .= "
$catdata->{'catname'}
\n"; $tmp_count++; my ($scat_max) = &LoadSubCategory; foreach $tmp_subid (keys %subcategory) { $subdata = &GetSubCategory ($tmp_subid); $tmp_sublist{$subdata->{'group'}."_".$subdata->{'subname'}."_".$tmp_subid} = $tmp_subid; } foreach (sort keys %tmp_sublist) { $subdata = &GetSubCategory ($tmp_sublist{$_}); if ($subdata->{'catid'} eq $tmp) { $html .= "
{'subid'}\" target=\"vew\" class=\"menusub\">
$subdata->{'subname'}
\n"; } } $html .= "
\n"; } } if ($tmp_count == 0) { $temp = $in->{'catid'}; $temp .= ":$catdata->{'catid'}"; $html .= "
$catdata->{'catname'}
\n"; $html .= "
\n"; } } $html .= <<_HTML_;
テキスト表示
リスト表示
NEWLIST
INFO
管理用
HOME