ASP 入門２ ー授業でアンケート集計ー

ねらい 総合実習等で、相互評価を行った際の集計を ASP ＋ AccessDB で行う。 相互評価の点数部分は見られないように、感 想部分（テキスト）は見えるようにする。 ( 発表直後のフィードバック ) AccessDB に蓄積した得点は、 Excel ファイル を経由して平常点の一部として活用する。 ( ８クラスで１時間程度の作業 ) 昨年の場合 34(sheets/Gr)*7(Gr)*8(Class)=1904(sheets)

ディレクトリ構造 サーバー上には、生徒から見える領域に public 、見 えない領域に hidden があるとする。 IIS の仮想ディレクトリは hidden で定義 で、ここのトップページが表示されるとする。 public/index.html を置き、ここを生徒の入口とする。 生徒の作品はここに置かせる。生徒から変更可能 public/index.html にはフルパスで を置く。相互評価 DB はここに置く。生徒はコント ロールできない。生徒はアクセス不可。生徒は相互 評価の結果を自由に見ることはできない。

ASP から AccessDB への接続 ODBC(Open DataBase Connectivity) 接続 サーバへデータソースの名前を登録し、この 名前で接続する方法。今回は多数のデータ ベースを使用するため、この方法はとらない。 DSN-Less 接続 データソース名を ASP コードの中に記述する 方法。今回は、各発表班ごとにディレクトリ を切って管理するため、データソースも共通 の名前を使用する。そのため、こちらの方法 を採用する。

プログラムの流れ１（データ入 力） 1. 値を入力 (form.html) html の input 文で入力した値を post 先を check.asp と して渡す。 2. 入力値の確認 (check.asp) request.form() で値を受け取り、チェックしてから 値を保持、 send.asp へ渡す。 3. 入力値を AccessDB へ記録 (send.asp) DB へ接続し、 request.form() で値を受け取ってか ら 1 レコード分のデータを持った SQL 分を作成し、 これを実行 (Obj_name.Execute(SQL_sentence)) す る。実行後 DB への接続を解除する。

プログラムの流れ２（データ出 力） 入力された感想の表示 (show.asp) DB(db1.mdb) へ接続し、 DB 内部のテーブ ル (table1) から id の順番に従って１レコード を取り出し、表示する。 これを eof が出るまで繰り返す。 (Do until ObjRS.EOF ～ ObjRS.MoveNext ～ Loop) DB への接続を解除する。

データベースへの接続 Set ObjConn = Server.CreateObject("ADODB.Connection") ☆ ObjConn という文字変数に ADODB により接続され たサーバーのオブジェクトをセットすることにする。 ObjConn.open “Driver={Microsoft Access Driver (*.mdb)}; DBQ=” & Server.Mappath("db1.mdb") ☆ サーバ上の、このファイルと同じディレクトリにあ る db1.mdb に Access 用ドライバを用いて接続する。

データベースから値を入手 Server.CreateObject ("ADODB.Recordset").Open select * from table1 order by id, Server.CreateObject ("ADODB.Connection") ☆ サーバ上の ADO 接続されたオブジェクトの table1 から id の順に抽出したレコードに接続する。 ☆ レコード：１行分のデータ

データベースへデータを書き込 む Server.CreateObject(“ADODB.Connection”).Execute (insert into table1(“ データ名 ”) values (“ データ値 ”)) ☆ パラメータとして SQL 命令を持ち、 ADO 接続された DB に対し実行する。

データベースへの接続解除 ObjRS.Close Set ObjRS = Nothing ☆ ADO 接続されたレコードを閉じて、定数として のレ コードをクリヤ ObjConn.Close Set ObjConn = Nothing ☆ ADO 接続を閉じて、定数としての接続名をクリ ヤ

課題 form.html ， check.asp ， send.asp ， show.asp を 改造して質問数４（適当な質問を考えて下さ い）＋感想を入力し、表示するシステムを 作ってみましょう。

参考図書 ASP による Web アプリケーションスーパーサン プル 西沢直木 著 ソフトバン ク社 ASP の初歩から応用まで、サンプルコードを示 して解説している。このコードをいじるだけで 相当の応用は利きそう。今回のタネ本。オスス メ！ プチリファレンス ASP 山田 祥寛 著 秀和システム 社 ASP ・ VBScript などで不明なところを調べるた めに使用しました。