三流君(TOP) /ASPで遊ぶ /記事一覧

7段階評価に増やしてみた

test013-2.asp

6、大変満足は、6人
5、満足は、6人
4、まぁまぁは、5人
3、どちらとも言えないは、23人
2、少し不満は、4人
1、不満は、7人
0、かなり不満は、8人

アンケート結果はこんな感じです。
元データtest013.txtを見る



解説ページ→ [No.13 変数を配列にして簡潔に書いてみた]

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



コーヒーブレイク たまには寄り道、休憩も(↓広告です):
広告:[Blogで商品紹介] ← 足跡から人気を判断?
[本日発売の商品] ← 発売日が当日の商品を紹介、、、するが効果が無いので → [先週発売の商品] ← を作成して、先走らないで、少し落ち着いてみます(笑)

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

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

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

表示色の説明:ASP VBScriptは <% 〜 %>
キーワードは です。 <%@LANGUAGE=VBScript%> <html> <head> <title>7段階評価に増やしてみた</title> </head> <body> <h2>7段階評価に増やしてみた</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関数を使って左から1文字目を判断、見つかったらカウントアップ Select Case Left(strRECORD, 1) '読みこんだレコードの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 "6、大変満足は、" & nCNT06 & "人<BR>" 'asp013 Response.Write "5、満足は、" & nCNT05 & "人<BR>" Response.Write "4、まぁまぁは、" & nCNT04 & "人<BR>" Response.Write "3、どちらとも言えないは、" & nCNT03 & "人<BR>" Response.Write "2、少し不満は、" & nCNT02 & "人<BR>" Response.Write "1、不満は、" & nCNT01 & "人<BR>" Response.Write "0、かなり不満は、" & 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">[ASP系メニューへ]</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>

最近発売の雑誌を紹介する

プログラマーは漫画好き?仕事のじゃまにならない程度に・・・読んでみては?
  1. 少年ガンガン 2008年 06月号
  2. つりコミック 2008年 06月号
  3. 月刊 まんがライフオリジナル 2008年 06月号
  4. コミックビーム 2008年 06月号
  5. COMIC B's-LOG (コミックビーズログ) 2008年 06月号
  6. まんがタイムラブリー 2008年 06月号
  7. Mystery Sara (ミステリー・サラ) 2008年 06月号
  8. COMIC 乱 TWINS (ツウィンズ) 2008年 06月号
  9. 別冊 フレンド 2008年 06月号

人気の書籍を紹介します

  1. [4000281623]- 魂(アニマ)への態度──古代から現代まで(双書 哲学塾)
  2. [4093877661]- アイドルのウエストはなぜ58センチなのか―数のサブリミナル効果
  3. [4140911093]- 刺青とヌードの美術史―江戸から近代へ (NHKブックス 1109)
  4. [4756911994]- 視覚マーケティングのススメ
  5. [4094082549]- 受験のシンデレラ (小学館文庫 わ 8-1)
  6. [4121019369]- アダム・スミス―「道徳感情論」と「国富論」の世界 (中公新書 1936)

Googleで関連項目を検索する

LANGUAGE=VBScript + [キーワード:] Sub|Function プログラム|プログラミング
↓で検索するとプログラムの例 Sub/Function でまとまったHP

Google

あれ?私のページが検索に載ってない(笑)一度お試しを(私のページに、また戻ってきてね(爆))

三流解説とリンクページを紹介

ASP系の解説を項目ごとにまとめてみました

[ASP Form等を使用したデータのやり取り]
[ASP その他処理サンプル]
[ASP テキストファイル処理]
[ASP VBScript関数関係の説明]
[ASP ADOでMdbファイルを使う]
[ASP ADOでExcelと接続してみた]

その他:blogや広告↓
[日記的なblog]← あまり更新してないけど・・・
[三流なプログラムコード]← 恥ずかしいのであまり載せてないけど・・・
[通販商品の足跡を紹介] ←通販商品などを紹介してます


現在時刻は、2008/05/17 17:40:55です。
[Topへ戻る] −−>[ASP系へ戻る] −−>[バックナンバーを見る]