おっ、この項目、使えそうだなぁ。 http://www.ken3.org/cgi-bin/test/test007-2.asp?ID=123&MODE=ON だと、 QUERY_STRING ID=123&MODE=ON かぁ、 使えそうだけど、項目をバラすのがダルそう。
何か無いのかなぁ。 /* * ３．Request.QueryString でクエリ情報を取り出す */ 世の中には（ＡＳＰには）、 Request.QueryStringってのがあって、それで簡単に取り出せるみたいです。 http://www.ken3.org/cgi-bin/test/test008-1.asp?ID=123&MODE=ON で、ＩＤとＭＯＤＥを表示するサンプル test008-1.asp は、 下記のようになります。 <head> <title>Request.QueryString でクエリ情報を取り出す</title> </head> <body> <h2>Request.QueryString でクエリ情報を取り出す</h2> test008-1.asp<br> <hr> クエリ情報で渡されたＩＤとＭＯＤＥを表示します<br> ID= <%=Request.QueryString("ID")%><br> <% if Request.QueryString("MODE") = "ON" then Response.Write "オンです。" else Response.Write "オフです。" end if %> <hr> 終了です。<br> </body> </html> IDの値を表示とMODE=ONならカタカナでオン、それ以外だったらオフと表示します。 http://www.ken3.org/cgi-bin/test/test008-1.asp?ID=123&MODE=ON http://www.ken3.org/cgi-bin/test/test008-1.asp?ID=987&MODE=OFF で、試してください。 /* * ４．復習を兼ねて、ファイルに書いてみる */ 目的（システムには目的ってありますよね） メルマガの満足度３段階をアンケートしたい。 １．満足 ２．普通 ３．不満 を読者さんに聞く プログラムの仕様 test008-2.asp で、Ａ＝回答のパラメーターを受け取り（test008-2.asp?A=1みたいに） test008.txt に 結果を書き込む。 復習兼ねて、前回までのプログラムを簡単に修正して下記のように作りました。 <%@LANGUAGE=VBScript%> <html> <head> <title>テキストファイルにアンケート結果を書き込む</title> </head> <body> <h2>テキストファイルにアンケート結果を書き込む</h2> test008-2.asp<br> <hr> <% '*1 FileSystemObjectを生成します、、って英文、そのままジャン。 Set objFS = Server.CreateObject("Scripting.FileSystemObject") '*2 test008.txt を追加モードで開く Set ts = objFS.OpenTextFile(Server.MapPath("test008.txt"), 8, True) '*3ファイルにアンケート結果のデータを書き込む ts.write Now & " , " '時刻を書く 'アンケートの結果を判断する strMSG = "不正なパラメーターです" if Request.QueryString("A") = "1" then strMSG = "満足" if Request.QueryString("A") = "2" then strMSG = "普通" if Request.QueryString("A") = "3" then strMSG = "不満" ts.write strMSG 'ファイルに結果を書き込む ts.write chr(13) & chr(10) '改行する '*4使ったファイルは閉じようよ ts.close Response.Write "パラメーターは" & strMSG & "でした" '表示もついでに行う %> <hr> 書き込み終了です。<br> <A HREF="test008.txt">結果のtest008.txtを見る</A><br> </body> </html> ポイントは、今回やった、Request.QueryStringで、 if Request.QueryString("A") = "1" then strMSG = "満足" if Request.QueryString("A") = "2" then strMSG = "普通" if Request.QueryString("A") = "3" then strMSG = "不満" のＩｆ文で判断してます。 さて、よくあるアンケートです 今回の内容は、 満足 http://www.ken3.org/cgi-bin/test/test008-2.asp?A=1 普通 http://www.ken3.org/cgi-bin/test/test008-2.asp?A=2 不満 http://www.ken3.org/cgi-bin/test/test008-2.asp?A=3 どんな感じですか？（笑） テストで押してみて下さい。
結果は、成功してれば、 http://www.ken3.org/cgi-bin/test/test008.txt で見ることができます。（テキストファイルに書かれていると思います） /* * ５．終わりの挨拶 */ 今回は、 Request.QueryString でした。 まぁなんとなく、わかったような、わからなかったような。 まだまだ、道のりは遠いなぁ〜 またね（笑）
