テキストファイルにアンケート結果を書き込む

test008-2.asp

パラメーターは不正なパラメーターですでした

書き込み終了です。
結果のtest008.txtを見る
test008-2.asp?A=1 満足
test008-2.asp?A=2 普通
test008-2.asp?A=3 不満

解説ページ→ [No.8 URLに付けたパラメータを参照（クエリ情報）

[ＡＳＰ系メニューへ] [質問・感想掲示板] [バックナンバー目次]

コーヒーブレイクたまには寄り道、休憩も(↓広告です):
広告:[Blogで商品紹介] ← 足跡から人気を判断？
[本日発売の商品] ← 発売日が当日の商品を紹介、、、するが効果が無いので → [来週７日後] ← を作成して、検索の席取りで予約を狙ってます(テスト・試行錯誤中)

を使用したサンプル(ソースの紹介)

詳細解説は[http:/asp/backno/asp008.html]を見てください
下記、/cgi-bin/test/test008-2.aspのソース（中身）です

を使ったソースコードを紹介する

表示色の説明：ASP VBScriptは <% ～ %>
キーワードは です。
<%@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>
<A HREF="test008-2.asp?A=1">test008-2.asp?A=1 満足</A><br>
<A HREF="test008-2.asp?A=2">test008-2.asp?A=2 普通</A><br>
<A HREF="test008-2.asp?A=3">test008-2.asp?A=3 不満</A><br>
<br>
<HR>
解説ページ→
<A HREF="http://www.ken3.org/backno/backno_asp02.html#8">
<b>[No.8 URLに付けたパラメータを参照（クエリ情報）</b></A><br>
<Font Size=-1>
<br>
<a Href="http://www.ken3.org/asp/" TARGET="_top">[ＡＳＰ系メニューへ]</a>
<a href="http://www.ken3.org/cgi-bin/bbs/asp/wforum.cgi" target="F_RIGHT">[質問・感想掲示板]</A>
<a href="http://www.ken3.org/backno/backno_asp_mokuji.html" target="F_RIGHT">[バックナンバー目次]</a><br>
<br>
</Font>
<hr>
</body>
</html>