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

<TABLE>タグを使用してみた

test014-1.asp

評価コメント人数
大変満足6
満足6
まぁまぁ9
どちらとも言えない23
少し不満4
不満7
かなり不満8

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



解説ページ→ [No.14 外見の調整とArray関数を使用して配列作成]

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



コーヒーブレイク たまには寄り道、休憩も(↓広告です):
広告:[7月の商品紹介] ← 基本?の当月を紹介
[9月の商品紹介] ← 少し先に発売の商品で予約を狙う
[4月の人気商品] ← 三ヶ月前に発売した人気の商品

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

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

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

表示色の説明:ASP VBScriptは <% 〜 %>
キーワードはTABLE です。 <%@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title><TABLE>タグを使用してみた</title> </head> <body> <h2><TABLE>タグを使用してみた</h2> test014-1.asp<br> <hr> <% dim strRECORD 'レコード内容を一時保存 dim nCNT(10) 'カウンター 変数 10個もいらないけど 'カウンター変数をループで初期化しておく For i = 0 to 10 nCNT(i) = 0 Next '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 'ファイルからデータを一行を読む '*3 Left関数を使って左から1文字目をCintで数値変換 i = Cint(Left(strRECORD, 1)) '読みこんだレコードの1文字目を数値変換 '*4 nCNT(i番目)をカウントアップ nCNT(i) = nCNT(i) + 1 Loop ts.close '使ったファイルは閉じようよ '*1結果の表示を<TABLE>タグを使用して表示 Response.Write "<TABLE>" Response.Write "<TR><TD>評価</TD><TD>コメント</TD><TD>人数</TD></TR>" Response.Write "<TR><TD>6</TD><TD>大変満足</TD><TD>" & nCNT(6) & "</TD></TR>" Response.Write "<TR><TD>5</TD><TD>満足</TD><TD>" & nCNT(5) & "</TD></TR>" Response.Write "<TR><TD>4</TD><TD>まぁまぁ</TD><TD>" & nCNT(4) & "</TD></TR>" Response.Write "<TR><TD>3</TD><TD>どちらとも言えない</TD><TD>" & nCNT(3) & "</TD></TR>" Response.Write "<TR><TD>2</TD><TD>少し不満</TD><TD>" & nCNT(2) & "</TD></TR>" Response.Write "<TR><TD>1</TD><TD>不満</TD><TD>" & nCNT(1) & "</TD></TR>" Response.Write "<TR><TD>0</TD><TD>かなり不満</TD><TD>" & nCNT(0) & "</TD></TR>" Response.Write "</TABLE>" %> <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#14"> <b>[No.14 外見の調整とArray関数を使用して配列作成]</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. BITEKI (美的) 2008年 08月号
  2. Brands Off (ブランズオフ) 2008年 08月号
  3. CanCam (キャンキャン) 2008年 08月号
  4. FRUiTS (フルーツ) 2008年 08月号
  5. JJ (ジェィジェィ) 2008年 08月号
  6. JUNON (ジュノン) 2008年 08月号
  7. MAQUIA (マキア) 2008年 08月号
  8. NAIL MAX (ネイル マックス) 2008年 08月号
  9. PINKY (ピンキー) 2008年 08月号

人気の書籍を紹介します

  1. [4396632649]- 梅一夜
  2. [4757305338]- 「突き抜ける!」時間思考術
  3. [4861821282]- タックスヘイブン―グローバル経済を動かす闇のシステム
  4. [4062136139]- マネーロンダリング
  5. [4492443452]- 秘密の国オフショア市場
  6. [476319819X]- 3000人のユダヤ人にYESと言わせた技術

※Ken3への連絡先 → [メール@アドレス]です。気軽に問い合わせてください

Googleで関連項目を検索する

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

Google

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

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

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

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

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


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