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

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

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

MOD で 余りを計算する 解説

test018-1.asp
動作仕様:test008.txtを読み込み、5行単位で線を引く(<HR>タグを入れる)
If nLINE Mod 5 = 0 Then で、÷5の余りが0の時<HR>タグを使ってます
※表示後のソースをみて下さい。

1行目 2008/04/22 10:01:13 , 不満
2行目 2008/04/22 10:22:22 , 普通
3行目 2008/04/22 10:23:00 , 満足
4行目 2008/04/22 10:27:20 , 不正なパラメーターです
5行目 2008/04/22 10:31:27 , 不満

6行目 2008/04/22 10:51:42 , 普通
7行目 2008/04/22 10:52:54 , 満足
8行目 2008/04/22 10:56:48 , 不正なパラメーターです
9行目 2008/04/22 11:00:42 , 不満
10行目 2008/04/22 11:21:35 , 普通

11行目 2008/05/09 15:57:19 , 不正なパラメーターです
12行目 2008/05/09 21:29:22 , 普通
13行目 2008/05/10 9:31:33 , 不満
14行目 2008/05/10 11:40:58 , 満足
15行目 2008/05/10 16:08:10 , 不正なパラメーターです

16行目 2008/05/10 21:46:37 , 普通
17行目 2008/05/11 9:37:27 , 不満
18行目 2008/05/11 11:45:59 , 満足
19行目 2008/05/11 14:04:20 , 普通
20行目 2008/05/11 15:22:15 , 普通

21行目 2008/05/11 15:43:29 , 満足
22行目 2008/05/11 15:55:44 , 不満
23行目 2008/05/11 16:11:25 , 不正なパラメーターです
24行目 2008/05/11 17:55:10 , 不正なパラメーターです
25行目 2008/05/11 21:49:51 , 普通

26行目 2008/05/12 1:13:36 , 満足
27行目 2008/05/12 1:13:39 , 普通
28行目 2008/05/12 1:13:41 , 不満
29行目 2008/05/12 5:37:18 , 不満
30行目 2008/05/12 8:22:31 , 不正なパラメーターです

31行目 2008/05/12 9:41:44 , 不満
32行目 2008/05/12 13:15:24 , 満足
33行目 2008/05/12 16:16:27 , 不正なパラメーターです
34行目 2008/05/12 23:52:06 , 普通
35行目 2008/05/13 9:36:00 , 不正なパラメーターです

36行目 2008/05/13 9:44:18 , 不満
37行目 2008/05/13 10:16:23 , 不正なパラメーターです
38行目 2008/05/13 13:27:09 , 満足
39行目 2008/05/13 16:24:39 , 不正なパラメーターです
40行目 2008/05/13 20:47:01 , 不正なパラメーターです

41行目 2008/05/13 22:36:36 , 不正なパラメーターです
42行目 2008/05/13 23:55:44 , 普通
43行目 2008/05/14 10:29:14 , 不満
44行目 2008/05/14 11:35:27 , 満足
45行目 2008/05/14 13:32:14 , 満足

46行目 2008/05/14 16:36:18 , 不正なパラメーターです
47行目 2008/05/14 16:40:55 , 不満
48行目 2008/05/14 21:10:09 , 満足
49行目 2008/05/14 21:29:06 , 満足
50行目 2008/05/15 0:03:37 , 普通

51行目 2008/05/15 10:58:29 , 不満
52行目 2008/05/15 13:37:08 , 満足
53行目 2008/05/15 16:23:39 , 不正なパラメーターです
54行目 2008/05/15 16:40:01 , 不正なパラメーターです
55行目 2008/05/15 23:01:19 , 不正なパラメーターです

56行目 2008/05/15 23:28:43 , 不満
57行目 2008/05/16 0:13:24 , 普通
58行目 2008/05/16 0:41:33 , 不満
59行目 2008/05/16 5:06:14 , 満足
60行目 2008/05/16 5:13:39 , 不正なパラメーターです

61行目 2008/05/16 7:13:27 , 普通
62行目 2008/05/16 9:59:21 , 満足
63行目 2008/05/16 11:08:01 , 不満
64行目 2008/05/16 15:36:58 , 普通
65行目 2008/05/16 15:54:51 , 不正なパラメーターです

66行目 2008/05/16 17:55:26 , 不正なパラメーターです
67行目 2008/05/17 0:26:10 , 普通
68行目 2008/05/17 4:29:19 , 満足
69行目 2008/05/17 18:33:22 , 不正なパラメーターです
70行目 2008/05/18 0:29:35 , 普通

71行目 2008/05/18 1:09:15 , 不正なパラメーターです
72行目 2008/05/18 4:04:56 , 不正なパラメーターです
73行目 2008/05/18 18:39:36 , 不正なパラメーターです
74行目 2008/05/18 21:58:11 , 不正なパラメーターです
75行目 2017/12/29 5:35:14 , 普通

76行目 2017/12/29 8:19:19 , 不正なパラメーターです
77行目 2017/12/29 9:56:06 , 満足
78行目 2017/12/29 9:56:55 , 普通
79行目 2017/12/29 14:10:25 , 普通
80行目 2017/12/29 22:17:44 , 不正なパラメーターです

81行目 2017/12/30 9:40:21 , 満足
82行目 2017/12/30 18:41:04 , 不正なパラメーターです
83行目 2017/12/30 18:41:45 , 不満
84行目 2017/12/31 10:21:06 , 不満
85行目 2018/01/01 0:38:11 , 満足

86行目 2018/01/01 0:38:41 , 不正なパラメーターです
87行目 2018/01/01 0:56:14 , 不満
88行目 2018/01/01 1:56:58 , 不満
89行目 2018/01/01 13:45:03 , 普通
90行目 2018/01/01 14:12:43 , 不満

91行目 2018/01/01 14:14:12 , 普通
92行目 2018/01/01 14:14:49 , 不正なパラメーターです
93行目 2018/01/01 19:04:38 , 不正なパラメーターです
94行目 2018/01/02 1:21:02 , 満足
95行目 2018/01/02 12:39:16 , 普通

96行目 2018/01/03 1:39:03 , 満足
97行目 2018/01/03 2:53:58 , 不正なパラメーターです
98行目 2018/01/03 2:54:10 , 普通
99行目 2018/01/04 6:20:40 , 不満
100行目 2018/01/04 7:56:37 , 不正なパラメーターです

101行目 2018/01/04 10:30:56 , 不正なパラメーターです
102行目 2018/01/04 10:31:21 , 満足
103行目 2018/01/04 10:31:31 , 不満
104行目 2018/01/04 15:10:59 , 不満
105行目 2018/01/04 22:13:33 , 満足

106行目 2018/01/04 22:13:38 , 不満
107行目 2018/01/04 22:14:05 , 不正なパラメーターです
108行目 2018/01/04 22:15:48 , 普通
109行目 2018/01/05 19:33:33 , 不正なパラメーターです
110行目 2018/01/05 19:47:39 , 満足

111行目 2018/01/06 1:03:26 , 不満
112行目 2018/01/07 14:15:48 , 満足
113行目 2018/01/07 18:18:47 , 満足
114行目 2018/01/07 19:30:06 , 普通
115行目 2018/01/08 5:58:15 , 不満

116行目 2018/01/08 5:59:20 , 普通
117行目 2018/01/08 5:59:39 , 不正なパラメーターです
118行目 2018/01/08 7:04:19 , 普通
119行目 2018/01/08 7:32:28 , 満足
120行目 2018/01/08 16:09:57 , 不満

121行目 2018/01/09 3:02:11 , 不正なパラメーターです
122行目 2018/01/09 3:28:37 , 満足
123行目 2018/01/09 15:43:22 , 不正なパラメーターです
124行目 2018/01/09 18:23:45 , 不正なパラメーターです
125行目 2018/01/09 19:10:51 , 満足

126行目 2018/01/09 19:11:58 , 普通
127行目 2018/01/10 3:34:48 , 不正なパラメーターです
128行目 2018/01/10 3:36:25 , 普通
129行目 2018/01/10 3:36:25 , 不満
130行目 2018/01/10 23:31:00 , 不正なパラメーターです

131行目 2018/01/10 23:57:52 , 満足
132行目 2018/01/10 23:58:10 , 満足
133行目 2018/01/11 0:09:47 , 普通
134行目 2018/01/11 9:09:34 , 満足
135行目 2018/01/11 9:09:34 , 普通

136行目 2018/01/11 9:09:34 , 不満
137行目 2018/01/11 21:49:11 , 満足
138行目 2018/01/11 22:02:29 , 普通
139行目 2018/01/11 22:02:38 , 満足
140行目 2018/01/12 11:04:46 , 普通

141行目 2018/01/12 11:05:16 , 不正なパラメーターです
142行目 2018/01/12 11:06:17 , 不満
143行目 2018/01/12 11:06:21 , 満足
144行目 2018/01/12 19:35:53 , 満足
145行目 2018/01/13 8:55:26 , 満足

146行目 2018/01/13 8:55:32 , 普通
147行目 2018/01/13 10:22:00 , 満足
148行目 2018/01/13 10:31:06 , 普通
149行目 2018/01/13 17:23:07 , 不満
150行目 2018/01/13 20:14:30 , 不満

151行目 2018/01/14 8:19:46 , 不満
152行目 2018/01/14 8:19:50 , 満足
153行目 2018/01/14 8:20:56 , 不正なパラメーターです
154行目 2018/01/14 17:48:31 , 満足
155行目 2018/01/14 17:48:37 , 普通

156行目 2018/01/14 17:48:46 , 不満
157行目 2018/01/14 23:25:16 , 普通
158行目 2018/01/15 2:14:46 , 不正なパラメーターです
159行目 2018/01/15 2:39:39 , 不正なパラメーターです
160行目 2018/01/15 3:13:55 , 不満

161行目 2018/01/15 3:14:12 , 普通
162行目 2018/01/15 3:14:26 , 満足
163行目 2018/01/15 6:59:00 , 不満
164行目 2018/01/15 8:08:07 , 満足
165行目 2018/01/15 8:45:09 , 不正なパラメーターです

166行目 2018/01/15 9:59:32 , 満足
167行目 2018/01/15 23:53:51 , 不満
168行目 2018/01/16 3:53:52 , 不満
169行目 2018/01/16 3:54:17 , 満足
170行目 2018/01/16 3:56:09 , 不正なパラメーターです

171行目 2018/01/16 9:13:56 , 普通
172行目 2018/01/16 12:54:02 , 満足
173行目 2018/01/16 14:08:43 , 不満
174行目 2018/01/16 18:49:00 , 不満
175行目 2018/01/17 1:24:08 , 満足

176行目 2018/01/17 3:55:04 , 不正なパラメーターです
177行目 2018/01/17 5:18:23 , 満足
178行目 2018/01/17 5:50:24 , 不満
179行目 2018/01/17 11:59:41 , 不正なパラメーターです
180行目 2018/01/17 11:59:45 , 不満

181行目 2018/01/17 18:26:00 , 不満
182行目 2018/01/17 19:48:27 , 不正なパラメーターです
183行目 2018/01/17 20:40:32 , 満足
184行目 2018/01/17 20:40:35 , 普通
185行目 2018/01/17 20:40:37 , 不満

186行目 2018/01/17 23:58:22 , 満足
187行目 2018/01/18 0:33:47 , 普通
188行目 2018/01/18 1:00:54 , 不満
189行目 2018/01/18 1:01:42 , 不正なパラメーターです
190行目 2018/01/18 1:02:08 , 満足

191行目 2018/01/18 1:06:06 , 普通
192行目 2018/01/18 8:12:43 , 満足
193行目 2018/01/18 14:30:12 , 普通
194行目 2018/01/18 19:09:27 , 普通
195行目 2018/01/18 22:18:51 , 不正なパラメーターです

196行目 2018/01/18 22:31:22 , 不満
197行目 2018/01/19 5:18:13 , 不満
198行目 2018/01/19 15:42:26 , 満足
199行目 2018/01/19 22:01:21 , 不満
200行目 2018/01/20 2:19:10 , 満足

201行目 2018/01/20 5:41:53 , 普通
202行目 2018/01/20 21:25:23 , 普通
203行目 2018/01/20 21:26:19 , 不満
204行目 2018/01/20 21:27:14 , 満足
205行目 2018/01/20 23:14:02 , 不正なパラメーターです

206行目 2018/01/21 0:11:20 , 普通
207行目 2018/01/21 3:13:16 , 満足
208行目 2018/01/21 11:08:03 , 不正なパラメーターです
209行目 2018/01/21 11:13:15 , 満足
210行目 2018/01/21 15:17:19 , 普通

211行目 2018/01/21 16:02:13 , 不満
212行目 2018/01/21 21:08:02 , 満足
213行目 2018/01/22 1:11:00 , 普通
214行目 2018/01/22 9:27:55 , 不正なパラメーターです
215行目 2018/01/22 11:36:59 , 普通

216行目 2018/01/22 16:41:19 , 満足
217行目 2018/01/22 19:08:29 , 満足
218行目 2018/01/23 18:56:50 , 満足

使用した元データのtest008.txtを見る



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

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

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

表示色の説明:ASP VBScriptは <% 〜 %>
キーワードはMod です。 <%@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>MOD で 余りを計算する 解説</title> </head> <body> <h2>MOD で 余りを計算する 解説</h2> test018-1.asp<br> 動作仕様:test008.txtを読み込み、5行単位で線を引く(<HR>タグを入れる)<br> If nLINE Mod 5 = 0 Then で、÷5の余りが0の時<HR>タグを使ってます<br> ※表示後のソースをみて下さい。<br> <hr> <% 'FileSystemObjectを生成します Set objFS = Server.CreateObject("Scripting.FileSystemObject") 'test008.txt を読取専用モードで開く Set ts = objFS.OpenTextFile(Server.MapPath("test008.txt"), 1, True) Dim nLINE '*1行数のカウンター nLINE = 0 'カウンターを初期化 Do While ts.AtEndOfStream = False '*6ファイルの終端になってない間ループ strDATA = ts.ReadLine 'ファイルからデータを一行を読む nLINE = nline + 1 '*2行カウンタを+1する Response.Write nLINE & "行目 " '行番号の表示 Response.Write strDATA '読み込んだデータを表示 Response.Write "<BR>" '改行のタグを入れる '*3行カウンタが5、10、15、、5で/って余りが0なら '<HR>タグを挿入する If nLINE Mod 5 = 0 Then Response.Write "<HR>" 'タグを入れる End If Loop ts.close '使ったファイルは閉じようよ %> <hr> <A HREF="test008.txt">使用した元データのtest008.txtを見る</A><br> <br> </body> </html>

広告

リンク広告
  1. --[ Windows10 OSのフルバックアップ システムイメージバックアップ]
  2. --[Windows 自動ログイン control userpasswords2 や netplwiz]
  3. --[モンスト 超獣神祭]
  4. --[【ガチャ】モンスト 3500万人記念!!オーブ0ガチャ]
  5. --[Access コンボボックスを使ってみた]

Googleで関連項目を検索する

[キーワード:Mod] と サンプル|解説|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/01/23 21:06:13です。