質問編集履歴

1

詳細追加

2020/03/13 06:33

投稿

yusuke.wanibe
test CHANGED
File without changes
test CHANGED
@@ -27,3 +27,95 @@
27
27
 
28
28
 
29
29
  お忙しいところ申し訳ないのですが、ご教授いただけると助かります。
30
+
31
+
32
+
33
+
34
+
35
+
36
+
37
+ 追記
38
+
39
+ 制作しているのは企業の社員向け情報ページ(イントラネット)です。
40
+
41
+
42
+
43
+ classic ASPで動いています。ASP自体ほとんど経験が無く、細かいことがわかりません。
44
+
45
+ 恐らく、下記の部分がデータベースからデータを取得している箇所でないかと思っているのですが、、、
46
+
47
+
48
+
49
+ お手間かけますが、よろしくお願いします。
50
+
51
+ ```asp
52
+
53
+ <%
54
+
55
+
56
+
57
+ Function Get****(cd1, cd2)
58
+
59
+
60
+
61
+ Dim ****(),****(),****(),****(),****(),****(),****()~
62
+
63
+ ReDim ****(100),****(100),****(100),****(100),****(100),****(100)~
64
+
65
+ SQL = "SELECT * FROM MASTER_**** WHERE **** = '" & cd1 & "'"
66
+
67
+ If Len(cd2) > 0 Then
68
+
69
+ SQL = SQL & " AND **** = '" & cd2 & "'"
70
+
71
+ End If
72
+
73
+ SQL = SQL & " ORDER BY **** DESC,**** DESC"
74
+
75
+
76
+
77
+ Set rs = Server.CreateObject("ADODB.Recordset")
78
+
79
+ rs.Open SQL, objCon, ****
80
+
81
+ i = 0
82
+
83
+ Do Until rs.EOF
84
+
85
+ ****(i) = rs("****")
86
+
87
+ ****(i) = ****(rs("****"))
88
+
89
+ ****(i) = rs("****")
90
+
91
+ ~
92
+
93
+
94
+
95
+ rs.MoveNext
96
+
97
+ i = i + 1
98
+
99
+ Loop
100
+
101
+
102
+
103
+ rs.Close
104
+
105
+ Set rs = Nothing
106
+
107
+
108
+
109
+ ReDim Preserve ****(i),****(i),****(i),****(i),****(i)~
110
+
111
+
112
+
113
+ **** = ****(cd1,cd2)
114
+
115
+ **** = ****(cd1,kiroku(0)) & ****(cd1)
116
+
117
+ %>
118
+
119
+
120
+
121
+ ```