<% nyear = GetField("nyear", Left(Now(),4)) DFLAG = GetField("DFLAG", "") rdcode = GetField("rdcode", "") NowYEAR = Year(NOW) 'NYEAR = Year(NOW) NMonth = Month(Now) NDAY = Day(Now) Nhour = Hour(Now) If Len(NMonth) = 1 Then NMonth = "0"&NMonth If Len(NDAY) = 1 Then NDAY = "0"&NDAY If Len(Nhour) = 1 Then Nhour = "0"&Nhour NIL = NowYEAR&NMonth&NDAY&Nhour 'NIL = NYEAR&NMonth&NDAY&Nhour %> "/> "/> "/>
홈 > 행정센터> 온라인참가신청  
  온라인 참가신청
  연도 대회        
  <% RET = procOnline_RList(4,nyear,DFLAG) If IsArray(Ret) Then For i = 0 To Ubound(Ret,2) SDAY = Left(RET(4,i),4)&"년"&Mid(RET(4,i),5,2)&"월"&Mid(RET(4,i),7,2)&"일 "&Mid(RET(4,i),9,2)&"시" 'EDAY = Left(RET(5,i),4)&"년"&Mid(RET(5,i),5,2)&"월"&Mid(RET(5,i),7,2)&"일 "&Mid(RET(5,i),9,2)&"시" EDAY = Mid(RET(5,i),5,2)&"월"&Mid(RET(5,i),7,2)&"일 "&Mid(RET(5,i),9,2)&"시" SEDAY = Left(RET(4,i),4)&Mid(RET(4,i),5,2)&Mid(RET(4,i),7,2)&Mid(RET(4,i),9,2) DEDAY = Left(RET(5,i),4)&Mid(RET(5,i),5,2)&Mid(RET(5,i),7,2)&Mid(RET(5,i),9,2) %> <% Next End If %>
번호
대회명
 일정 진행
<%=i+1%> <% If Int(NIL) >= Int(RET(5,i)) And Session("KLPGA_NAME") <> "관리자" Then %> <%=RET(3,i)%> <% 'ElseIf Int(NIL) >= Int(SEDAY) And Int(NIL) <= Int(DEDAY) Then // 관리자는 접수기간 전에 들어갈 수 있도록 수정 leejh 20110111 ElseIf (Int(NIL) >= Int(SEDAY) And Int(NIL) <= Int(DEDAY) ) or Session("KLPGA_NAME") = "관리자" Then %> <%=RET(3,i)%> <% ElseIf Int(NIL) < Int(SEDAY) Then %> <%=RET(3,i)%> <% End If %> <%=SDAY%> ~ <%=EDAY%> <% If Int(NIL) >= Int(RET(5,i)) Then '접수마감 RESPONSE.WRITE "" ElseIf Int(NIL) >= Int(SEDAY) And Int(NIL) <= Int(DEDAY) Then '진행 RESPONSE.WRITE "" ElseIf Int(NIL) < Int(SEDAY) Then '접수예정 RESPONSE.WRITE "" End If %>