| 記事No | ： 5410 |
| 投稿日 | ： 2009/02/06(Fri) 10:28:21 |
| タイトル | ： Web Enquete(投票)禁止ワードについて |
| ID情報 | ： angel567 |
| 投稿者 | ： ANGEL |
| URL | ： http://www.angel-press.com/cgi/enq/enq.cgi |
どなたか教えてください？【Web Enquete】のアンケート投票にユーザーでも項目を追加できるように設定しました。その項目の書き込み欄に禁止ワードを設定する方法を教えてもらえないでしょうか？よろしくお願いします。
KENT WEBのcgiの場所↓
http://www.kent-web.com/data/enq.html
| 記事No | ： 5413 |
| 投稿日 | ： 2009/02/06(Fri) 13:03:38 |
| タイトル | ： Re: Web Enquete(投票)禁止ワードについて |
| ID情報 | ： pachira |
| 投稿者 | ： pachira |
| URL | ： http://www5e.biglobe.ne.jp/~pachira/ |
> どなたか教えてください？【Web Enquete】のアンケート投票にユーザーでも項目を追加できるように設定しました。その項目の書き込み欄に禁止ワードを設定する方法を教えてもらえないでしょうか？よろしくお願いします。
>
> KENT WEBのcgiの場所↓
> http://www.kent-web.com/data/enq.html
禁止ワード機能の付いたプログラムや過去のFAQが参考になると思います。
http://www.kent-web.com/support/search/namazu.cgi?key=%8B%D6%8E%7E%83%8F%81%5B%83h&whence=0&max=20&result=normal&sort=score
他のプログラムから移植するのが簡単でしょうね。
その際、項目のname値はitemになります。
| 記事No | ： 5426 |
| 投稿日 | ： 2009/02/09(Mon) 10:18:01 |
| タイトル | ： Web Enquete(投票)禁止ワードについて |
| ID情報 | ： angel567 |
| 投稿者 | ： ANGEL |
| URL | ： http://www.angel-press.com/cgi/enq/enq.cgi |
どなたか教えてください？【Web Enquete】のアンケート投票にユーザーでも項目を追加できるように設定しました。その項目の書き込み欄に禁止ワードを設定して、過去の禁止ワードも参考にはしてみたのですが動作しませんでした。項目のname値はitemになるというのは、どうすればよろしいでしょうか？分かる方いらしたらお願いします。
KENT WEBのcgiの場所↓
http://www.kent-web.com/data/enq.html
| 記事No | ： 5444 |
| 投稿日 | ： 2009/02/13(Fri) 12:20:57 |
| タイトル | ： Re: Web Enquete(投票)禁止ワードについて |
| ID情報 | ： pachira |
| 投稿者 | ： pachira |
| URL | ： http://www5e.biglobe.ne.jp/~pachira/ |
> どなたか教えてください？【Web Enquete】のアンケート投票にユーザーでも項目を追加できるように設定しました。その項目の書き込み欄に禁止ワードを設定して、過去の禁止ワードも参考にはしてみたのですが動作しませんでした。項目のname値はitemになるというのは、どうすればよろしいでしょうか？分かる方いらしたらお願いします。
>
> KENT WEBのcgiの場所↓
> http://www.kent-web.com/data/enq.html
どこを、どう、弄ったのか具体的に書かないからレスが付かないのだと思いますよ。
以下はJoyfulNoteからの移植例。
１．設定部分に追加
# 禁止ワード
# → 投稿時禁止するワードをコンマで区切る
$no_wd = '';
２．以下を挿入
#-------------------------------------------------
# 項目追加
#-------------------------------------------------
sub make_item {
# フォームチェック
if ($in{'item'} eq "") { &error("項目名に入力がありません"); }
# ホスト名チェック
local($addr, $host) = &get_host;
↓↓↓
#-------------------------------------------------
# 項目追加
#-------------------------------------------------
sub make_item {
# フォームチェック
if ($in{'item'} eq "") { &error("項目名に入力がありません"); }
# 禁止ワードチェック
if ($no_wd) { &no_wd; }
# ホスト名チェック
local($addr, $host) = &get_host;
３．適当な部分に追加
#-------------------------------------------------
# 禁止ワードチェック
#-------------------------------------------------
sub no_wd {
local($flg);
foreach ( split(/,/, $no_wd) ) {
if (index("$in{'item'} ",$_) >= 0) {
$flg = 1; last;
}
}
if ($flg) { &error("禁止ワードが含まれています"); }
}