|
|
Request.QueryString を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードはRequest.QueryString です。
<%@LANGUAGE=VBScript%>
<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<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>
| 商品:食品関係を紹介(広告)
食品 →の人気
-
ネスレ ワールドスイーツセレクション 220g×1袋 → 2月1日 最近販売
-
蒟蒻屋本舗 マヨール ゼロプラス 320g → 2月1日 伸び率UP
-
トルコ TAYAS社 チョコレート CRIEMRA500g → 1月31日 最近販売
-
コカ・コーラゼロ 1.5L×8本 → 1月31日 伸び率UP
-
和彩B (6粒入り) → 1月30日 最近販売
-
新潟県妙高市特産の香辛料「かんずり」 → 1月30日 伸び率UP
-
モロゾフ プティコフレ 《お届け日は2/12(日)まで》 MO-0856 1月29日 最近販売
-
新潟新井名物【生かんずり80グラム】 → 1月29日 伸び率UP
続き(一覧)を見る
|