teratail
回答率
85.48%
質問するログイン新規登録
トップに関する質問検索フォームで再検索が出来ません。

編集履歴

質問編集履歴

8

htmlを更新しました。

2017/04/06 05:48

投稿

vanille
vanille

スコア16

test CHANGED
File without changes
test CHANGED
@@ -278,7 +278,7 @@
278
278
 
279
279
 
280
280
 
281
- if Request("voy") <> "" then
281
+ if Request("entryfirst") <> "期間検索" then
282
282
 
283
283
  strSQL = "SELECT * FROM tb_ablog where id = " & Request("voy")
284
284
 

7

htmlを更新しました。

2017/04/06 05:48

投稿

vanille
vanille

スコア16

test CHANGED
File without changes
test CHANGED
@@ -94,67 +94,67 @@
94
94
 
95
95
  <td>
96
96
 
97
- <SELECT name="sty">
97
+ <select name="sty">
98
-
98
+
99
- <OPTION value="2015" <%if Request("sty")="2015" then Response.Write("selected")%>>2015年</OPTION>
99
+ <option value="2015" <%if Request("sty")="2015" then Response.Write("selected")%>>2015年</OPTION>
100
-
100
+
101
- <OPTION value="2016" <%if Request("sty")="2016" then Response.Write("selected")%>>2016年</OPTION>
101
+ <OPTION value="2016" <%if Request("sty")="2016" then Response.Write("selected")%>>2016年</option>
102
+
102
-
103
+ <!--略-->
104
+
105
+ </select>
106
+
107
+ <select name="stm" style="padding:3px 2px;">
108
+
109
+ <option value="01" <%if Request("stm")="01" then Response.Write("selected")%>>01月</option>
110
+
111
+ <option value="02" <%if Request("stm")="02" then Response.Write("selected")%>>02月</option>
112
+
113
+ <!--略-->
114
+
115
+ </select>
116
+
117
+ <select name="std" style="padding:3px 2px;">
118
+
119
+ <option value="01" <%if Request("std")="01" then Response.Write("selected")%>>01日</option>
120
+
121
+ <option value="02" <%if Request("std")="02" then Response.Write("selected")%>>02日</option>
122
+
123
+ <!--略-->
124
+
125
+ </select>
126
+
127
+ ～
128
+
129
+ <select name="edy">
130
+
103
- <OPTION value="2017" <%if Request("sty")="2017" Or Request("sty")="" then Response.Write("selected")%>>2017年</OPTION>
131
+ <option value="2015" <%if Request("edy")="2015" then Response.Write("selected")%>>2015年</option>
132
+
133
+ <option value="2016" <%if Request("edy")="2016" then Response.Write("selected")%>>2016年</option>
134
+
135
+ <!--略-->
104
136
 
105
137
  </SELECT>
106
138
 
107
- <SELECT name="stm" style="padding:3px 2px;">
108
-
109
- <OPTION value="01" <%if Request("stm")="01" then Response.Write("selected")%>>01月</OPTION>
110
-
111
- <OPTION value="02" <%if Request("stm")="02" then Response.Write("selected")%>>02月</OPTION>
112
-
113
- <OPTION value="03" <%if Request("stm")="03" then Response.Write("selected")%>>03月</OPTION>
114
-
115
- </SELECT>
116
-
117
- <SELECT name="std" style="padding:3px 2px;">
118
-
119
- <OPTION value="01" <%if Request("std")="01" then Response.Write("selected")%>>01日</OPTION>
120
-
121
- <OPTION value="02" <%if Request("std")="02" then Response.Write("selected")%>>02日</OPTION>
122
-
123
- <OPTION value="03" <%if Request("std")="03" then Response.Write("selected")%>>03日</OPTION>
124
-
125
- </SELECT>
126
-
127
- ～
128
-
129
- <SELECT name="edy">
130
-
131
- <OPTION value="2015" <%if Request("edy")="2015" then Response.Write("selected")%>>2015年</OPTION>
132
-
133
- <OPTION value="2016" <%if Request("edy")="2016" then Response.Write("selected")%>>2016年</OPTION>
134
-
135
- <OPTION value="2017" <%if Request("edy")="2017" Or Request("edy")="" then Response.Write("selected")%>>2017年</OPTION>
136
-
137
- </SELECT>
138
-
139
139
  <SELECT name="edm" style="padding:3px 2px;">
140
140
 
141
- <OPTION value="01" <%if Request("edm")="01" then Response.Write("selected")%>>01月</OPTION>
141
+ <option value="01" <%if Request("edm")="01" then Response.Write("selected")%>>01月</option>
142
-
142
+
143
- <OPTION value="02" <%if Request("edm")="02" then Response.Write("selected")%>>02月</OPTION>
143
+ <option value="02" <%if Request("edm")="02" then Response.Write("selected")%>>02月</option>
144
-
144
+
145
- <OPTION value="03" <%if Request("edm")="03" then Response.Write("selected")%>>03月</OPTION>
145
+ <!--略-->
146
-
146
+
147
- </SELECT>
147
+ </select>
148
-
148
+
149
- <SELECT name="edd" style="padding:3px 2px;">
149
+ <select name="edd" style="padding:3px 2px;">
150
-
150
+
151
- <OPTION value="01" <%if Request("edd")="01" then Response.Write("selected")%>>01日</OPTION>
151
+ <option value="01" <%if Request("edd")="01" then Response.Write("selected")%>>01日</option>
152
-
152
+
153
- <OPTION value="02" <%if Request("edd")="02" then Response.Write("selected")%>>02日</OPTION>
153
+ <option value="02" <%if Request("edd")="02" then Response.Write("selected")%>>02日</option>
154
-
154
+
155
- <OPTION value="03" <%if Request("edd")="03" then Response.Write("selected")%>>03日</OPTION>
155
+ <!--略-->
156
-
156
+
157
- </SELECT>
157
+ </select>
158
158
 
159
159
  </td>
160
160
 
@@ -186,9 +186,9 @@
186
186
 
187
187
  <td>
188
188
 
189
- <SELECT name="voy">
189
+ <select name="voy">
190
-
190
+
191
- <OPTION value = "">選択してください。</OPTION>
191
+ <option value = "">選択してください。</OPTION>
192
192
 
193
193
  <%
194
194
 
@@ -212,7 +212,7 @@
212
212
 
213
213
  <!-- voy: <%=Request("voy")%> id: <%=rs("id")%> -->
214
214
 
215
- <OPTION value = "<%=rs("id")%>" <%if Request("voy") = CStr(rs("id")) then Response.Write("selected")%>> <%=rs("group_name1")%>(<%=rs("start_date")%>-<%=rs("end_date")%>)</OPTION>
215
+ <optionvalue = "<%=rs("id")%>" <%if Request("voy") = CStr(rs("id")) then Response.Write("selected")%>> <%=rs("group_name1")%>(<%=rs("start_date")%>-<%=rs("end_date")%>)</OPTION>
216
216
 
217
217
  <%
218
218
 
@@ -224,7 +224,7 @@
224
224
 
225
225
  %>
226
226
 
227
- </SELECT>
227
+ </select>
228
228
 
229
229
  </td>
230
230
 
@@ -240,118 +240,114 @@
240
240
 
241
241
 
242
242
 
243
+ /tbody>
244
+
243
- <!-- 抽出期間２ -->
245
+ </table>
246
+
247
+ <p class="sbmt">
248
+
249
+ <input type="submit" name="OK" value="検索">
250
+
251
+ &emsp;
252
+
253
+ <input type="reset" name="Cancel" value="キャンセル">
254
+
255
+ </p>
256
+
257
+ </form>
258
+
259
+
260
+
261
+
262
+
263
+
264
+
265
+ <TABLE >
266
+
267
+ <TBODY>
268
+
269
+ 略
270
+
271
+ <%
272
+
273
+ else
274
+
275
+ str_stdate = Request("sty") & Request("stm") & Request("std")
276
+
277
+ str_eddate = Request("edy") & Request("edm") & Request("edd")
278
+
279
+
280
+
281
+ if Request("voy") <> "" then
282
+
283
+ strSQL = "SELECT * FROM tb_ablog where id = " & Request("voy")
284
+
285
+ Set rs = cn.Execute(strSQL)
286
+
287
+
288
+
289
+ if not rs.eof then
290
+
291
+ str_stdate = Year( rs("start_date") ) & Right( "0" & Month( rs("start_date") ),2 ) & Right( "0" & Day( rs("start_date") ),2)
292
+
293
+ str_eddate = Year( rs("end_date") ) & Right( "0" & Month( rs("end_date") ),2 ) & Right( "0" & Day( rs("end_date") ),2)
294
+
295
+ end if
296
+
297
+ Set objFS = Server.CreateObject("")
298
+
299
+
300
+
301
+ strFDIRNAME = ""
302
+
303
+ Set objDIR = objFS.GetFolder(strFDIRNAME)
304
+
305
+
306
+
307
+ For Each objFILE In objDIR.Files
308
+
309
+
310
+
311
+ strFNAME = objFILE.Name '取り出したobjFILEの.Nameを取得
312
+
313
+
314
+
315
+ If mid(strFNAME,1, 3) = "CTD" And Right(strFNAME, 4) = ".CTD" Then
316
+
317
+ if mid(strFNAME, 4, 8) >= str_stdate And mid(strFNAME, 4, 8) <= str_eddate Then
318
+
319
+
320
+
321
+ %>
322
+
323
+ <tr>
324
+
325
+ <td colspan="3">
326
+
327
+ <%
328
+
329
+ Response.Write "<a href='" & strFNAME & "'>" & strFNAME & "</A>"
330
+
331
+ %>
332
+
333
+ </td>
334
+
335
+ </tr>
336
+
337
+ <%
338
+
339
+
340
+
341
+ %>
244
342
 
245
343
 
246
344
 
247
345
  </tbody>
248
346
 
347
+
348
+
249
349
  </table>
250
350
 
251
- <p class="sbmt">
252
-
253
- <INPUT type="submit" name="OK" value="検索">
254
-
255
- &emsp;
256
-
257
- <INPUT type="reset" name="Cancel" value="キャンセル">
258
-
259
- </p>
260
-
261
- </form>
262
-
263
-
264
-
265
-
266
-
267
-
268
-
269
- <TABLE >
270
-
271
- <TBODY>
272
-
273
- 略
274
-
275
- <%
276
-
277
- else
278
-
279
- str_stdate = Request("sty") & Request("stm") & Request("std")
280
-
281
- str_eddate = Request("edy") & Request("edm") & Request("edd")
282
-
283
-
284
-
285
- if Request("voy") <> "" then
286
-
287
- strSQL = "SELECT * FROM tb_ablog where id = " & Request("voy")
288
-
289
- Set rs = cn.Execute(strSQL)
290
-
291
-
292
-
293
- if not rs.eof then
294
-
295
- str_stdate = Year( rs("start_date") ) & Right( "0" & Month( rs("start_date") ),2 ) & Right( "0" & Day( rs("start_date") ),2)
296
-
297
- str_eddate = Year( rs("end_date") ) & Right( "0" & Month( rs("end_date") ),2 ) & Right( "0" & Day( rs("end_date") ),2)
298
-
299
- end if
300
-
301
- Set objFS = Server.CreateObject("")
302
-
303
-
304
-
305
- strFDIRNAME = ""
306
-
307
- Set objDIR = objFS.GetFolder(strFDIRNAME)
308
-
309
-
310
-
311
- For Each objFILE In objDIR.Files
312
-
313
-
314
-
315
- strFNAME = objFILE.Name '取り出したobjFILEの.Nameを取得
316
-
317
-
318
-
319
- If mid(strFNAME,1, 3) = "CTD" And Right(strFNAME, 4) = ".CTD" Then
320
-
321
- if mid(strFNAME, 4, 8) >= str_stdate And mid(strFNAME, 4, 8) <= str_eddate Then
322
-
323
-
324
-
325
- %>
326
-
327
- <TR>
328
-
329
- <TD colspan="3">
330
-
331
- <%
332
-
333
- Response.Write "<a href='" & strFNAME & "'>" & strFNAME & "</A>"
334
-
335
- %>
336
-
337
- </TD>
338
-
339
- </TR>
340
-
341
- <%
342
-
343
-
344
-
345
- %>
346
-
347
-
348
-
349
- </TBODY>
350
-
351
-
352
-
353
- </TABLE>
354
-
355
351
  </article>
356
352
 
357
353
  </body>

6

htmlを更新しました。

2017/03/30 04:12

投稿

vanille
vanille

スコア16

test CHANGED
File without changes
test CHANGED
@@ -210,9 +210,9 @@
210
210
 
211
211
  %>
212
212
 
213
- <!-- voyageno: <%=Request("voy")%> id: <%=rs("id")%> -->
213
+ <!-- voy: <%=Request("voy")%> id: <%=rs("id")%> -->
214
-
214
+
215
- <OPTION value = "<%=rs("id")%>" <%if Request("voyageno") = CStr(rs("id")) then Response.Write("selected")%>> <%=rs("group_name1")%>(<%=rs("start_date")%>-<%=rs("end_date")%>)</OPTION>
215
+ <OPTION value = "<%=rs("id")%>" <%if Request("voy") = CStr(rs("id")) then Response.Write("selected")%>> <%=rs("group_name1")%>(<%=rs("start_date")%>-<%=rs("end_date")%>)</OPTION>
216
216
 
217
217
  <%
218
218
 

5

文章を更新しました。

2017/03/30 04:00

投稿

vanille
vanille

スコア16

test CHANGED
File without changes
test CHANGED
@@ -364,7 +364,7 @@
364
364
 
365
365
  いつもありがとうございます。
366
366
 
367
- ファイルの検索フォームの修正をしています。
367
+ ファイルの検索フォームtest.aspの修正をしています。
368
368
 
369
369
  ボタンで検索法を選んで、期間等を選択すると該当のファイルがデータベースからフォームの下に表示されるようにしたのですが、一度検索をかけてファイルを得るとその後、検索法の変更をしても履歴が残ってしまっていて、再検索が出来ませんでした。
370
370
 

4

htmlを更新しました。

2017/03/29 03:55

投稿

vanille
vanille

スコア16

test CHANGED
File without changes
test CHANGED
@@ -50,7 +50,7 @@
50
50
 
51
51
  <body>
52
52
 
53
- <div class="container">
53
+
54
54
 
55
55
  <article class="content">
56
56
 

3

htmlを更新しました。

2017/03/29 03:54

投稿

vanille
vanille

スコア16

test CHANGED
File without changes
test CHANGED
@@ -22,19 +22,19 @@
22
22
 
23
23
  document.getElementById('kikan').style.display = "";
24
24
 
25
- document.getElementById('koukai').style.display = "none";
25
+ document.getElementById('group').style.display = "none";
26
26
 
27
27
  } else if (radio[1].checked) {
28
28
 
29
29
  document.getElementById('kikan').style.display = "none";
30
30
 
31
- document.getElementById('koukai').style.display = "";
31
+ document.getElementById('group').style.display = "";
32
32
 
33
33
  } else {
34
34
 
35
35
  document.getElementById('kikan').style.display = "none";
36
36
 
37
- document.getElementById('koukai').style.display = "none";
37
+ document.getElementById('group').style.display = "none";
38
38
 
39
39
  }
40
40
 

2

htmlを更新しました。

2017/03/29 03:53

投稿

vanille
vanille

スコア16

test CHANGED
File without changes
test CHANGED
@@ -16,30 +16,30 @@
16
16
 
17
17
  function hyoji1() {
18
18
 
19
- radio = document.getElementsByName('entryfirst');
19
+ radio = document.getElementsByName('entryfirst');
20
-
20
+
21
- if (radio[0].checked) {
21
+ if (radio[0].checked) {
22
-
22
+
23
- document.getElementById('kikan').style.display = "";
23
+ document.getElementById('kikan').style.display = "";
24
-
24
+
25
- document.getElementById('group').style.display = "none";
25
+ document.getElementById('koukai').style.display = "none";
26
-
26
+
27
- } else if (radio[1].checked) {
27
+ } else if (radio[1].checked) {
28
-
28
+
29
- document.getElementById('kikan').style.display = "none";
29
+ document.getElementById('kikan').style.display = "none";
30
-
30
+
31
- document.getElementById('group').style.display = "";
31
+ document.getElementById('koukai').style.display = "";
32
-
32
+
33
- } else {
33
+ } else {
34
-
34
+
35
- document.getElementById('kikan').style.display = "none";
35
+ document.getElementById('kikan').style.display = "none";
36
-
36
+
37
- document.getElementById('group').style.display = "none";
37
+ document.getElementById('koukai').style.display = "none";
38
-
39
- }
40
38
 
41
39
  }
42
40
 
41
+ }
42
+
43
43
 
44
44
 
45
45
  </script>
@@ -50,152 +50,316 @@
50
50
 
51
51
  <body>
52
52
 
53
-
54
-
55
53
  <div class="container">
56
54
 
57
-
55
+ <article class="content">
58
-
56
+
59
- <form action="xxx.asp" method="post">
57
+ <form action="test.asp" method="POST">
60
-
58
+
61
- <table >
59
+ <table class="user">
62
-
60
+
63
- <tbody>
61
+ <tbody>
64
-
62
+
65
- <tr>
63
+ <tr>
66
64
 
67
65
  <th scope="row">検索方法</th>
68
66
 
69
- <td ><label style="margin-right:2em;"><input id="r1" onChange="hyoji1()" type="radio" name="entryfirst" value="期間検索" />期間検索</label><label><input onChange="hyoji1()" type="radio" name="entryfirst" value="グループ検索" />グループ検索</label></td>
70
-
71
- </tr>
72
-
73
- <tr id="kikan" style="display:none;">
74
-
75
- <th scope="row">期間検索</th>
76
-
77
- <td colspan="7" class="bdr0">
78
-
79
- <table>
80
-
81
- <tbody>
82
-
83
- <tr>
84
-
85
- <td>
67
+ <td style="line-height:160%;">
68
+
69
+ <label style="margin-right:2em;">
70
+
71
+ <input id="r1" onclick="hyoji1()" type="radio" name="entryfirst" value="期間検索" />期間検索</label>
72
+
73
+ <label>
74
+
75
+ <input id="r2" onclick="hyoji1()" type="radio" name="entryfirst" value="グループ検索" />
76
+
77
+ グループ</label>
78
+
79
+ </td>
80
+
81
+ </tr>
82
+
83
+ <tr id="kikan" style="display:none;">
84
+
85
+ <th scope="row">期間検索</th>
86
+
87
+ <td colspan="7" class="bdr0">
88
+
89
+ <table>
90
+
91
+ <tbody>
92
+
93
+ <tr>
94
+
95
+ <td>
86
96
 
87
97
  <SELECT name="sty">
88
98
 
89
- <OPTION value="2015" >2015年</OPTION>
90
-
91
- <OPTION value="2016" >2016年</OPTION>
92
-
93
- <OPTION value="2017" selected>2017年</OPTION>
94
-
95
- </SELECT><SELECT name="tm" >
96
-
97
- <OPTION value="01" selected>01月</OPTION>
98
-
99
- <OPTION value="02" >02月</OPTION>
100
-
101
- <OPTION value="03" >03月</OPTION>
102
-
103
- </SELECT><SELECT name="td" >
104
-
105
- <OPTION value="01" selected>01日</OPTION>
106
-
107
- <OPTION value="02" >02日</OPTION>
108
-
109
- <OPTION value="03" >03日</OPTION>
110
-
111
- <OPTION value="04" >04日</OPTION>
112
-
113
- </SELECT>～<SELECT name="edy">
114
-
115
- <OPTION value="2015" >2015年</OPTION>
116
-
117
- <OPTION value="2016" >2016年</OPTION>
118
-
119
- <OPTION value="2017" selected>2017年</OPTION>
120
-
121
- </SELECT><SELECT name="dm" >
122
-
123
- <OPTION value="01" >01月</OPTION>
124
-
125
- <OPTION value="02" >02月</OPTION>
126
-
127
- <OPTION value="03" >03月</OPTION>
128
-
129
- </SELECT><SELECT name="dd" >
130
-
131
- <OPTION value="01" >01日</OPTION>
132
-
133
- <OPTION value="02" >02日</OPTION>
134
-
135
- <OPTION value="03" >03日</OPTION>
136
-
137
- </SELECT>
138
-
139
- </td>
140
-
141
- </tr>
142
-
143
- </tbody>
144
-
145
- </table></td>
146
-
147
- </tr>
148
-
149
-
150
-
151
- <tr id="group" style="display:none;">
152
-
153
- <th scope="row">グループ検索</th>
154
-
155
- <td colspan="7" class="r0">
156
-
157
-
158
-
159
- <SELECT name="voyageno">
160
-
161
- <OPTION value = "">選択してください。</OPTION>
162
-
163
- <OPTION value = "78" >groupA</OPTION>
164
-
165
- <OPTION value = "79" >groupB</OPTION>
166
-
167
- <OPTION value = "80" >groupC</OPTION>
168
-
169
- </SELECT>
170
-
171
- </td>
172
-
173
- </tr>
99
+ <OPTION value="2015" <%if Request("sty")="2015" then Response.Write("selected")%>>2015年</OPTION>
100
+
101
+ <OPTION value="2016" <%if Request("sty")="2016" then Response.Write("selected")%>>2016年</OPTION>
102
+
103
+ <OPTION value="2017" <%if Request("sty")="2017" Or Request("sty")="" then Response.Write("selected")%>>2017年</OPTION>
104
+
105
+ </SELECT>
106
+
107
+ <SELECT name="stm" style="padding:3px 2px;">
108
+
109
+ <OPTION value="01" <%if Request("stm")="01" then Response.Write("selected")%>>01月</OPTION>
110
+
111
+ <OPTION value="02" <%if Request("stm")="02" then Response.Write("selected")%>>02月</OPTION>
112
+
113
+ <OPTION value="03" <%if Request("stm")="03" then Response.Write("selected")%>>03月</OPTION>
114
+
115
+ </SELECT>
116
+
117
+ <SELECT name="std" style="padding:3px 2px;">
118
+
119
+ <OPTION value="01" <%if Request("std")="01" then Response.Write("selected")%>>01日</OPTION>
120
+
121
+ <OPTION value="02" <%if Request("std")="02" then Response.Write("selected")%>>02日</OPTION>
122
+
123
+ <OPTION value="03" <%if Request("std")="03" then Response.Write("selected")%>>03日</OPTION>
124
+
125
+ </SELECT>
126
+
127
+ ～
128
+
129
+ <SELECT name="edy">
130
+
131
+ <OPTION value="2015" <%if Request("edy")="2015" then Response.Write("selected")%>>2015年</OPTION>
132
+
133
+ <OPTION value="2016" <%if Request("edy")="2016" then Response.Write("selected")%>>2016年</OPTION>
134
+
135
+ <OPTION value="2017" <%if Request("edy")="2017" Or Request("edy")="" then Response.Write("selected")%>>2017年</OPTION>
136
+
137
+ </SELECT>
138
+
139
+ <SELECT name="edm" style="padding:3px 2px;">
140
+
141
+ <OPTION value="01" <%if Request("edm")="01" then Response.Write("selected")%>>01月</OPTION>
142
+
143
+ <OPTION value="02" <%if Request("edm")="02" then Response.Write("selected")%>>02月</OPTION>
144
+
145
+ <OPTION value="03" <%if Request("edm")="03" then Response.Write("selected")%>>03月</OPTION>
146
+
147
+ </SELECT>
148
+
149
+ <SELECT name="edd" style="padding:3px 2px;">
150
+
151
+ <OPTION value="01" <%if Request("edd")="01" then Response.Write("selected")%>>01日</OPTION>
152
+
153
+ <OPTION value="02" <%if Request("edd")="02" then Response.Write("selected")%>>02日</OPTION>
154
+
155
+ <OPTION value="03" <%if Request("edd")="03" then Response.Write("selected")%>>03日</OPTION>
156
+
157
+ </SELECT>
158
+
159
+ </td>
160
+
161
+ </tr>
174
162
 
175
163
  </tbody>
176
164
 
177
- </table>
178
-
179
-
180
-
181
- <p class="sbmt"><INPUT type="submit" name="OK" value="検索">&emsp;<INPUT type="reset" name="Cancel" value="キャンセル"></p>
182
-
183
- </form>
184
-
185
-
186
-
187
-
188
-
189
-
190
-
191
- <div>filenameリスト</div>
192
-
193
-
165
+ </table>
166
+
167
+ </td>
168
+
169
+ </tr>
170
+
171
+
172
+
173
+ <!-- 抽出期間２ -->
174
+
175
+ <tr id="grorup" style="display:none;">
176
+
177
+ <th scope="row">グループ検索</th>
178
+
179
+ <td colspan="7" class="bdr0">
180
+
181
+ <table>
182
+
183
+ <tbody>
184
+
185
+ <tr>
186
+
187
+ <td>
188
+
189
+ <SELECT name="voy">
190
+
191
+ <OPTION value = "">選択してください。</OPTION>
192
+
193
+ <%
194
+
195
+ Set cn= Server.CreateObject("")
196
+
197
+ cn.Open ""
198
+
199
+ cn.CursorLocation = 3
200
+
201
+
202
+
203
+ strSQL = "SELECT * FROM tb_ablog order by start_date"
204
+
205
+ Set rs = cn.Execute(strSQL)
206
+
207
+
208
+
209
+ Do Until rs.EOF
210
+
211
+ %>
212
+
213
+ <!-- voyageno: <%=Request("voy")%> id: <%=rs("id")%> -->
214
+
215
+ <OPTION value = "<%=rs("id")%>" <%if Request("voyageno") = CStr(rs("id")) then Response.Write("selected")%>> <%=rs("group_name1")%>(<%=rs("start_date")%>-<%=rs("end_date")%>)</OPTION>
216
+
217
+ <%
218
+
219
+ rs.MoveNext
220
+
221
+ Loop
222
+
223
+
224
+
225
+ %>
226
+
227
+ </SELECT>
228
+
229
+ </td>
230
+
231
+ </tr>
232
+
233
+ </tbody>
234
+
235
+ </table>
236
+
237
+ </td>
238
+
239
+ </tr>
240
+
241
+
242
+
243
+ <!-- 抽出期間２ -->
244
+
245
+
246
+
247
+ </tbody>
248
+
249
+ </table>
250
+
251
+ <p class="sbmt">
252
+
253
+ <INPUT type="submit" name="OK" value="検索">
254
+
255
+ &emsp;
256
+
257
+ <INPUT type="reset" name="Cancel" value="キャンセル">
258
+
259
+ </p>
260
+
261
+ </form>
262
+
263
+
264
+
265
+
266
+
267
+
268
+
269
+ <TABLE >
270
+
271
+ <TBODY>
272
+
273
+ 略
274
+
275
+ <%
276
+
277
+ else
278
+
279
+ str_stdate = Request("sty") & Request("stm") & Request("std")
280
+
281
+ str_eddate = Request("edy") & Request("edm") & Request("edd")
282
+
283
+
284
+
285
+ if Request("voy") <> "" then
286
+
287
+ strSQL = "SELECT * FROM tb_ablog where id = " & Request("voy")
288
+
289
+ Set rs = cn.Execute(strSQL)
290
+
291
+
292
+
293
+ if not rs.eof then
294
+
295
+ str_stdate = Year( rs("start_date") ) & Right( "0" & Month( rs("start_date") ),2 ) & Right( "0" & Day( rs("start_date") ),2)
296
+
297
+ str_eddate = Year( rs("end_date") ) & Right( "0" & Month( rs("end_date") ),2 ) & Right( "0" & Day( rs("end_date") ),2)
298
+
299
+ end if
300
+
301
+ Set objFS = Server.CreateObject("")
302
+
303
+
304
+
305
+ strFDIRNAME = ""
306
+
307
+ Set objDIR = objFS.GetFolder(strFDIRNAME)
308
+
309
+
310
+
311
+ For Each objFILE In objDIR.Files
312
+
313
+
314
+
315
+ strFNAME = objFILE.Name '取り出したobjFILEの.Nameを取得
316
+
317
+
318
+
319
+ If mid(strFNAME,1, 3) = "CTD" And Right(strFNAME, 4) = ".CTD" Then
320
+
321
+ if mid(strFNAME, 4, 8) >= str_stdate And mid(strFNAME, 4, 8) <= str_eddate Then
322
+
323
+
324
+
325
+ %>
326
+
327
+ <TR>
328
+
329
+ <TD colspan="3">
330
+
331
+ <%
332
+
333
+ Response.Write "<a href='" & strFNAME & "'>" & strFNAME & "</A>"
334
+
335
+ %>
336
+
337
+ </TD>
338
+
339
+ </TR>
340
+
341
+ <%
342
+
343
+
344
+
345
+ %>
346
+
347
+
348
+
349
+ </TBODY>
350
+
351
+
352
+
353
+ </TABLE>
354
+
355
+ </article>
194
356
 
195
357
  </body>
196
358
 
197
359
  </html>
198
360
 
361
+
362
+
199
363
  ```
200
364
 
201
365
  いつもありがとうございます。

1

asp\.netからaspに変更しました。

2017/03/29 03:52

投稿

vanille
vanille

スコア16

test CHANGED
File without changes
test CHANGED
File without changes