[三流君] −−＞ [ＡＳＰで遊ぶ、失敗する] −−＞ [バックナンバー一覧]
−−＞ No.005 IsEmptyでデータチェック

IsEmptyでデータチェック

本文(発行内容)

＜IsEmptyでデータチェック＞

こんにちは、Ｋｅｎ３です。

前回、
ファームから値を受けとって処理を行いました。
今回は、
IsEmptyでデータの入力をチェックして、
未入力なら（初回の呼び出しなら）、
入力用のフォーム
入力済みなら（２回目の呼び出しなら）
結果の判断
と１つのＡＳＰで処理してみたいと思います。

/*
 * １．仕様
*/
asp側の処理

始めての呼び出しだったら、
フォームを作成して、自分自身を呼び出すボタンを作成。
入力項目は
テキストボックスで
名前、
チェックボックスで、やりたいことをチェックさせ、
□HTMLから詳しく丁寧に
□VBScriptをもっと詳しく
□ゲーム作ろうよ
RADIOボタンで、満足度を選択。

フォーム入力後の２回目だったら、
単純にパラメーターの値を表示する
ｉｆ文でチェックされた値を確認しメッセージ表示する

/*
 * ２．IsEmptyでデータチェック
*/

サンプルのソースを下記に載せます
http://www.ken3.org/cgi-bin/test/test005-1.asp
でテストできるので、確認してください。

<%@LANGUAGE=VBScript%>
<html>
<head>
<title>test IsEmptyでデータチェック</title>
</head>
<body>
<h2>IsEmptyでデータチェック  入力と処理を１つのＡＳＰで行う</h2>
test005-1.asp<br>
<%  '*1 頭で、入力パラメーターがあるかチェックする
    if IsEmpty(Request.Form("USER-NAME")) = True Then
        'そのまま下のHTMLを実行
%>
<br>
好きに入力して、送信ボタンを押してください。<br>
<FORM ACTION="test005-1.asp" METHOD="POST">

お名前：
<INPUT TYPE="text" SIZE="20" NAME="USER-NAME" VALUE="匿名希望">
<br>
<br>
このメルマガでやってほしいことにチェックを入れてください<br>
<INPUT TYPE="CHECKBOX" NAME="c_1" VALUE="on">HTMLから詳しく丁寧に<BR>
<INPUT TYPE="CHECKBOX" NAME="c_2" VALUE="on">VBScriptをもっと詳しく<BR>
<INPUT TYPE="CHECKBOX" NAME="c_3" VALUE="on">ゲーム作ろうよ<BR>
<br>
このメルマガの満足度を５段階で<br>
不満 ------　満足<br>
1<INPUT TYPE="RADIO" NAME="q_5" VALUE="1">
2<INPUT TYPE="RADIO" NAME="q_5" VALUE="2">
3<INPUT TYPE="RADIO" NAME="q_5" VALUE="3">
4<INPUT TYPE="RADIO" NAME="q_5" VALUE="4">
5<INPUT TYPE="RADIO" NAME="q_5" VALUE="5">
<br>
<br>
<br>
<INPUT TYPE="submit" VALUE="送　信">
<INPUT TYPE="reset"  VALUE="入力し直す">

</FORM>

<% 'データが入力されていたら、
    else
		'そのまま、テキストを表示する
		Response.Write Request.Form("USER-NAME")
		Response.Write "さん、入力どうもです。<br>"

		'チェックボックスonの時メッセージを表示する
		if Request.Form("c_1") = "on" then
			Response.Write "HTMLかぁ、ニガテなんだよね<br>"
		end if
		if Request.Form("c_2") = "on" then
			Response.Write "VBScript、まぁ一歩一歩やりましょうよ<br>"
		end if
		if Request.Form("c_3") = "on" then
			Response.Write "えっ、ゲーム作成？ムリムリ<br>"
		end if

		'RADIOボタン、中身表示と値を判断してメッセージ表示
		Response.Write "満足度は"
		Response.Write Request.Form("q_5")
		Response.Write "かぁ、、、"
		if Request.Form("q_5") <= 2 then  '２以下は不満にする
			Response.Write "不満かぁ、がんばらないと"
		end if
		if Request.Form("q_5") >= 4 then  '４以上満足なら
			Response.Write "よかったぁ〜一安心"
		end if
		Response.Write "<br>"
    end if   '長いＩｆ文もここで終わり
%>

<HR>
終了です。なんか変だけど<br>

</body>
</html>

ポイントは、
if IsEmpty(Request.Form("USER-NAME")) = True Then
の部分です。

IsEmptyで変数が初期化されているかをチェックします。
Trueの時は、変数が生成されていないので、
１回目の呼び出しと判断して、
そのまま下のＦＯＲＭタグの表示を行います。

さらに下の部分（次の＜％）で、
<% 'データが入力されていたら、
    else
・
・
・
%>
で結果の判断処理を行ってます。

/*
 * ３．長いＩｆ文は私はキライかなぁ、、、
*/

１つのＡＳＰで入力と結果の判断を行ってますが、
なんかＩｆ文が長い。

前回のＨＴＭＬとＡＳＰにわかれているほうがスッキリしてるかも。
あと、自分でも半信半疑で行ったのですが、

<%  '*1 頭で、入力パラメーターがあるかチェックする
    if IsEmpty(Request.Form("USER-NAME")) = True Then
        'そのまま下のHTMLを実行
%>
・
・
・
・
<%
    else
・
・
・
    end if
%>

と、Ｉｆ文のブロックが分断されていても動作するのはチト、ビックリ。
だからわかりにくいって説も有るけど。

書き方としては、どうなんだろうねぇ。。。

/*
 * ４．終わりの挨拶
*/

で、今日は何が言いたかったの？
・IsEmptyでデータをチェックすることができます
・Ｉｆ文のブロックが分断されていても動作するのはチト、ビックリした。
こんな感じかな。

またね（笑）

何か質問があったら、気軽に、
メール、掲示板に書き込んでくださいね。

三流プログラマーのＫｅｎ３でした。

ページフッター

ここまで、読んでいただきどうもです。目的の情報が見つかったか？少々心配しつつ、、、

三流君へ メッセージを送る

感想や質問・要望・苦情など 三流君へメッセージを送る。
返信例 XXXXさんへ
下記のフォームからメッセージを送ることができます。

あなたのお名前（ニックネーム）:さん
返信は？:

アドレス:に返事をもらいたい
感想や質問↓:


(感想や質問・要望・苦情はHPで記事に載せることがあります。)

種類別のリンク や 広告など

[三流君(TOP ken3.org へ戻る)] / [ASPで遊ぶ、失敗する] / [ASP記事 バックナンバー目次]

Blogとリンク:[三流君のMemo別館]/ [ASP 三流君のソースコード置き場]/ [Ken3Video YouTubeで動画解説]
広告:

気になった ジャンル ↓を選択してください。

まぁ、基本はデータの受け取りかなぁ。
・[Form等を使用したデータのやり取り]・・・ASPと言っても、HTMLの入力フォームからデータを受け取ります。POSTやGETでやりとりを押さえますか。

次は、データの入出力 で ADOを使った(ADOで接続) と SQLの解説を少々
・[ADOでMdbファイルを使う]・・・MDBと接続して、簡単な追加・更新・削除を行った。
・[ADOでExcelと接続してみた]・・・.xlsと接続してSQLを使ってみた。
・[ADOでCSVと接続してみた]・・・.CSV テキストを読み出した。※更新・削除はできません

広告:

DBが使えるので、あまり使用しないけど、普通のテキストファイル処理
・[テキストファイル処理]・・・ファイルを開いて、書き込む。１行読み込みなどを軽く

VBScriptでFormat関数が無いなど、微妙にVBAと違うけど
[VBScript関数関係の説明]・・・少し、処理を書いてみた。
[その他処理サンプル]・・・あまり良いサンプル作れなかったけど。。。
何かの参考となれば幸いです。


[三流君(TOP ken3.org へ戻る)] / [ASPで遊ぶ、失敗する] / [ASP記事 バックナンバー目次]

広告: