%
Dim arrRs, arrCha, log_num, PageSize, goPage, objcount, chkTest, arrIp, macIP
log_num = trimReq("log_num")
PageSize = trimReq("PageSize")
If len(PageSize) = 0 Then PageSize = 10
goPage = trimReq("goPage")
If len(goPage) = 0 Then goPage = 1
arrRs = LectureMemberList(Request.Cookies(appVendorDB)("member_id"), "", "", PageSize, goPage)
arrIp = MemberMACIP()
macIP = Request.Cookies("macIP")
Function TestTake(cnt, takeDate)
Dim testTakeText
If cnt = 0 Then
testTakeText = "미응시"
Else
testTakeText = left(takeDate,10)
End if
testTake = testTakeText
End Function
'Function TestMark(scoreDate, tr_num, lec_num, testCnt)
' Dim testMarkText
' If isNull(scoreDate) Then
' testMarkText = "-"
' Else
' testMarkText = left(scoreDate,10)
' testMarkText = testMarkText & " "
' testMarkText = testMarkText & ""
' End if
' testMark = testMarkText
'End Function
Function TestMark(scoreDate, tr_num, lec_num, testCnt,endDt)
Dim testMarkText,sDt,eDt
If isNull(scoreDate) Then
testMarkText = "-"
Else
testMarkText = left(scoreDate,10)
testMarkText = testMarkText & " "
If testCnt = 1 Then
'sDt = DateAdd("d",8,CDate(endDt))
sDt = DateAdd("d",7,CDate(Left(endDt,10) & " 15:00:00"))
eDt = DateAdd("d",9,CDate(Left(endDt,10)))
'If (sDt <= Now() And eDt >= CDate(Left(CStr(Now()),10)) ) Then
testMarkText = testMarkText & "
"
'End If
'sDt = DateAdd("d",13,CDate(Left(endDt,10) & " 15:00:00"))
'eDt = DateAdd("d",14,CDate(endDt))
'If sDt <= Now() And eDt >= Now() Then
' testMarkText = testMarkText & "
"
'End If
Else
sDt = DateAdd("d",3,CDate(Left(endDt,10) & " 15:00:00"))
eDt = DateAdd("d",6,CDate(Left(endDt,10)))
'If (sDt <= Now() And eDt >= CDate(Left(CStr(Now()),10)) ) Then
testMarkText = testMarkText & "
"
'End If
'sDt = DateAdd("d",8,CDate(Left(endDt,10) & " 15:00:00"))
'eDt = DateAdd("d",9,CDate(endDt))
'If sDt <= Now() And eDt >= Now() Then
' testMarkText = testMarkText & "
"
'End If
End If
testMarkText = testMarkText & ""
End if
testMark = testMarkText
End Function
Function TestPoint(endDt,jumsu,testCnt)
Dim sDt, eDt
'한예현 수정
TestPoint = "-"
If testCnt = 1 Then
eDt = DateAdd("d",7,CDate(Left(endDt,10) & " 15:00:00"))
'If eDt <= Now() Then
TestPoint = jumsu
'End if
Else
eDt = DateAdd("d",3,CDate(Left(endDt,10) & " 15:00:00"))
'If eDt <= Now() Then
TestPoint = jumsu
'End if
End If
End Function
%>