を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードは です。
<%@LANGUAGE=VBScript%>
<html>
<head>
<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>
| 最近発売の雑誌を紹介する
プログラマーは漫画好き？仕事のじゃまにならない程度に・・・読んでみては？
- 少年ガンガン 2008年 06月号
- つりコミック 2008年 06月号
- 月刊 まんがライフオリジナル 2008年 06月号
- コミックビーム 2008年 06月号
- COMIC B's-LOG (コミックビーズログ) 2008年 06月号
- まんがタイムラブリー 2008年 06月号
- Mystery Sara (ミステリー・サラ) 2008年 06月号
- COMIC 乱 TWINS (ツウィンズ) 2008年 06月号
- 別冊 フレンド 2008年 06月号
|