|
|
を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードは です。
<%@LANGUAGE=VBScript%>
<html>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>７段階評価に増やしてみた</title>
</head>
<body>
<h2>７段階評価に増やしてみた</h2>
test013-2.asp<br>
<hr>
<%
dim strRECORD 'レコード内容を一時保存
dim nCNT06 '大変満足 カウンター asp013で修正
dim nCNT05 '満足 カウンター
dim nCNT04 'まぁまぁ カウンター
dim nCNT03 'どちらとも言えない カウンター
dim nCNT02 '少し不満 カウンター
dim nCNT01 '不満 カウンター
dim nCNT00 'かなり不満 カウンター asp013で修正
nCNT00 = 0 'asp013
nCNT01 = 0 '*1 カウンターを初期化しておく
nCNT02 = 0
nCNT03 = 0
nCNT04 = 0
nCNT05 = 0
nCNT06 = 0 'asp013
'FileSystemObjectを生成します、、って英文、そのままジャン。
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
'test013.txt 結果ファイルを読取専用モードで開く
Set ts = objFS.OpenTextFile(Server.MapPath("test013.txt"), 1, True)
Do While ts.AtEndOfStream = False 'ファイルの終端になってない間ループする
strRECORD = ts.ReadLine 'ファイルからデータを一行を読む
'*2 Left関数を使って左から１文字目を判断、見つかったらカウントアップ
Select Case Left(strRECORD, 1) '読みこんだレコードの１文字目
Case "6": nCNT06 = nCNT06 + 1 'asp013
Case "5": nCNT05 = nCNT05 + 1
Case "4": nCNT04 = nCNT04 + 1
Case "3": nCNT03 = nCNT03 + 1
Case "2": nCNT02 = nCNT02 + 1
Case "1": nCNT01 = nCNT01 + 1
Case "0": nCNT00 = nCNT00 + 1 'asp013
End Select
Loop
ts.close '使ったファイルは閉じようよ
'*3結果の表示
Response.Write "６、大変満足は、" & nCNT06 & "人<BR>" 'asp013
Response.Write "５、満足は、" & nCNT05 & "人<BR>"
Response.Write "４、まぁまぁは、" & nCNT04 & "人<BR>"
Response.Write "３、どちらとも言えないは、" & nCNT03 & "人<BR>"
Response.Write "２、少し不満は、" & nCNT02 & "人<BR>"
Response.Write "１、不満は、" & nCNT01 & "人<BR>"
Response.Write "０、かなり不満は、" & nCNT00 & "人<BR>" 'asp013
%>
<hr>
アンケート結果はこんな感じです。<br>
<A HREF="test013.txt" target="_new">元データtest013.txtを見る</A><br>
<br>
<br>
<HR>
解説ページ→
<A HREF="http://www.ken3.org/backno/backno_asp03.html#13">
<b>[No.13 変数を配列にして簡潔に書いてみた]</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>
| 商品:時計関係を紹介(広告)
時計 →の人気
-
最凶正規認定店４店舗別注モデル!! フランク三浦 初号機(世界平和) F 2月1日 最近販売
-
[フルーコ]FLUCO 時計バンドベルト アメリカ 20mm グリーン 2月1日 伸び率UP
-
時計工具シリーズ バネ棒 6mm~22mm → 1月31日 最近販売
-
ジーエスエックス GSX スターウォーズ R2-D2 SMART Sty 1月31日 伸び率UP
-
[ベルエア]Bel Air 立体ベゼル＆ラバーベルトのビッグフェイス腕時 1月30日 最近販売
-
[ベルエア]Bel Air 裏蓋スケルトン自動巻き腕時計・AC-W-BC 1月30日 伸び率UP
-
タイメックス TIMEX メンズ 腕時計 ウィークエンダー セントラルパ 1月29日 最近販売
-
フランク三浦X カリスマ金宅(キム・タク)禁断のコラボ！ブラジリアンイエ 1月29日 伸び率UP
続き(一覧)を見る
|