"
' End if
' testMark = testMarkText
'End Function
Function TestMark(scoreDate, tr_num, lec_num,endNoteDt)
Dim testMarkText
Dim sDt, eDt
If isNull(scoreDate) Then
testMarkText = "-"
Else
testMarkText = left(scoreDate,10)
testMarkText = testMarkText & " "
'한예현 수정
sDt = DateAdd("d",3,CDate(endNoteDt))
eDt = DateAdd("d",5,CDate(endNoteDt))
If sDt <= Now() And eDt >= Now() Then
testMarkText = testMarkText & ""
End if
testMarkText = testMarkText & ""
End if
testMark = testMarkText
End Function
Function TestPoint(endNoteDt,jumsu)
Dim sDt, eDt
'한예현 수정
TestPoint = ""
sDt = DateAdd("d",3,CDate(endNoteDt))
If sDt <= Now() Then
TestPoint = jumsu
End if
End Function
Function NoteSubmit(examCnt, noteResultCnt, noteStartDate, noteEndDate, lec_num, log_num, noteCnt)
Dim chkTest
if request.ServerVariables("REMOTE_HOST") = TestModeIP or request.ServerVariables("REMOTE_HOST") = "119.206.29.243" or fnc_testID(Request.Cookies(appVendorDB)("member_id")) then
chkTest = "javascript:show_note(" & lec_num & ", " & log_num & ");"
else
If examCnt >= noteCnt then
If noteResultCnt = 0 Then
response.write fnc_testID(Request.Cookies(appVendorDB)("member_id"))
If DateDiff("d",Now(), noteStartDate) =< 0 And datediff("d",Now(), noteEndDate) >= 0 Then
chkTest = "javascript:show_note(" & lec_num & ", " & log_num & ");"
Else
chkTest = "javascript:alert(""쪽지시험 응시기간이 아닙니다."");"
End if
Else
chkTest = "javascript:alert(""이미 응시하셨습니다."");"
End if
Else
chkTest = "javascript:alert(""문제 출제 중입니다."");"
End If
end if
NoteSubmit = chkTest
End Function
%>
나의학점관리/쪽지시험참여