Classic ASPテストページです。
情報が古いので参考程度に読んだりテストしてみてください。
共有サーバーなので、処理に時間がかかるとタイムアウトやアクセスが集中すると落ちている時がありますがご勘弁を・・・

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

分類: [Form関係] /DB系ADOを使い( [Mdb接続] [CSV接続] [Excel接続]) /[ASPでTextFileを操作] /[VBScript関数ほか]

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

test013-2.asp

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

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



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

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




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

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

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

表示色の説明:ASP VBScriptは <% 〜 %>
キーワードは です。 <%@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <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>


Googleで関連項目を検索する

[キーワード:] と サンプル|解説|Dim|Set で検索
↓で検索して他のページも確認してみてください。

Google

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

[Topへ戻る] −−>[ASP系のTOPへ戻る] −−>[記事一覧を見る]

リンク 三流君 ASP系 の 解説を項目ごとにまとめてみました

まぁ、基本はデータの受け取りかなぁ。
・[Form等を使用したデータのやり取り]・・・ASPと言っても、HTMLの入力フォームからデータを受け取ります。POSTやGETでやりとりを押さえますか。

次は、データの入出力 で ADOを使った(ADOで接続) と SQLの解説を少々
・[ADOでMdbファイルを使う]・・・MDBと接続して、簡単な追加・更新・削除を行った。
・[ADOでExcelと接続してみた]・・・.xlsと接続してSQLを使ってみた。
・[ADOでCSVと接続してみた]・・・.CSV テキストを読み出した。※更新・削除はできません

DBが使えるので、あまり使用しないけど、普通のテキストファイル処理
・[テキストファイル処理]・・・ファイルを開いて、書き込む。1行読み込みなどを軽く



VBScriptでFormat関数が無いなど、微妙にVBAと違うけど
[VBScript関数関係の説明]・・・少し、処理を書いてみた。
[その他処理サンプル]・・・あまり良いサンプル作れなかったけど。。。
何かの参考となれば幸いです。

その他:blogや広告↓
[日記的なblog]← あまり更新してないけど・・・
[永遠の下書き日記?]← 恥ずかしいのであまり載せてないけど・・・
[ひとりで掲示板?] ←一人で?掲示板?ぉぃぉぃ


[Topへ戻る] −−>[ASP系のTOPへ戻る] −−>[記事一覧を見る]

現在時刻は、2018/12/19 13:34:26です。