안녕하세요.

출석부를 출력하는데 시간이 너무 오래 걸려서 시간을 단축할 방법이 없을까 해서 문의 드립니다.

현재 서버와 DB가 따로 분리되어 있어서 더 느린것 같기도 한데....

고수님들의 좋은 방법 부탁 드리겠습니다.

저기 for 문 돌리면서 너무 느려지는듯.....

<%@LANGUAGE="VBSCRIPT" CODEPAGE="949"%>
<%StartTime=Timer() %>

<!-- #include virtual = "/include/Db.asp" -->
<%
dim ty,tm,td
ty=year(date())
tm="09"
td=day(date())

if len(tm)=1 then  tm="0"+cstr(tm) end if
if len(td)=1 then  td="0"+cstr(td) end if

dim yy,mm
If request("yy") = "" then
 yy = ty
Else
 yy = request("yy")
End If

If request("mm") = "" then
 mm = tm
Else
 mm = request("mm")
End if

''''''''''''''''''''''''''''''''''''''''''
begindate=yy&"-"&mm&"-01"
lastday=DatePart("d",DateAdd("d",-1,DateAdd("m",1,begindate)))

msday = begindate &" 06:00"       '매달 첫날
meday = dateadd("m",1,begindate) &" 06:00"   '매달 마지막날

Call dbopen()

SQL = "SELECT A.strID, strName, chk1 from Member A left outer join (select strID, COUNT((CASE WHEN strType =1 THEN 1 ELSE null END)) 'chk1' from TimeBook_2014 B where [strStime] between '"& msday &"' and '" & meday & "' group by B.strID) C on C.strID = A.strID where A.del ='0' order by A.strOrder "
'response.write sql

'멤버는 20명 쯤 됩니다.

 SET RS = db.EXECUTE(SQL)
 IF NOT(RS.EOF) Then
  WHILE NOT(RS.EOF)

   For i=1 to cint(lastday)
   orderdate=trim(ty&"-"&tm&"-"&right("0"&cstr(i),2))

    SQL = "SELECT [intNum], [strStime], [strType], [strMemo] FROM [TimeBook_2014] where strID = '" & RS("strID") & "' and [strStime] between '"& orderdate &"' and  '" & dateadd("d",1,orderdate) & "' "
    SET RS1 = db.EXECUTE(SQL)
    IF NOT(RS1.EOF) Then
%>
        <%=FORMATDATETIME(rs1("strStime"), 4)%>
        <%=rs1("strType")%>
<%
    End If

    RS1.Close
   Next

  RS.MOVENEXT
  WEND
 End if
%>
     
<% Call dbclose() %>
<%response.write "실행시간 : "&FormatNumber(Timer()-StartTime,5)&" (초)" %>