 |
<%
If ConnectDB() = True Then
sql = "SELECT teacherandsubject.*, student.*,student.planname as studentPlanName " & _
" ,inputscore.grade as teachGrade,student.classname as classname " & _
" FROM teacherandsubject INNER JOIN (student INNER JOIN inputscore " & _
" ON student.StudentNumber = inputscore.StudentNumber) " & _
" ON teacherandsubject.SectionID = inputscore.SectionID " & _
" where teacherandsubject.sectionid = " & request("SectionID") & _
" order by student.ClassName,student.StdNO,student.StudentNumber "
'response.write sql
'response.end
Set rs = Conn.Execute(sql)
If Not(rs.EOF) Then
%>
โรงเรียนสาธิตแห่งมหาวิทยาลัยเกษตรศาสตร์ ศูนย์วิจัยและพัฒนาการศึกษา
บันทึกการประเมินการอ่าน คิดวิเคราะห ์และเขียน ปีการศึกษา <%
if Year(Date) < 2550 then
response.write Year(Date)+543
else
response.write Year(Date)
end if
%>
อาจารย์ประจำชั้น
<%
sqlTech = "SELECT ClassName.ClassName, Advisor.Expr1 as TeachName, Advisor.Order " & _
" FROM ClassName INNER JOIN Advisor ON ClassName.ClassName = Advisor.ClassName " & _
" where classname.classname='" & rs("classname") & "'" & _
" order by Advisor.Order "
Set rsTeach = Server.CreateObject("ADODB.Recordset")
rsTeach.Open sqlTech,conn,3,3
if Not(rsTeach.Eof) Then
Do While Not rsTeach.EOF
%>
<%=rsTeach("TeachName")%>
<%
rsTeach.MoveNext
Loop
rsTeach.Close
set rsTeach = nothing
Else%>
ไม่พบอาจารย์ประจำชั้น
<%End if%>
ช่วงชั้นที่ :<%=rs("CourseTitleID")%>
ชั้น :<%=rs("SectionTitle")%>
วิชา :<%=rs("SubjectCode")%>
ชื่อวิชา :<%=rs("SubjectTitle")%>
หน่วยการเรียน :<%=rs("Credit")%>
อาจารย์ผู้สอน :<%=session("Prefix")%> <%=session("FName")%> <%=session("LName")%>
 หน้าแรก |
 ออกจากระบบ
ระดับคุณภาพ 0 = ไม่ผ่าน 1= พอใช้/ผ่าน 2 = ดี 3 = ดีเยี่ยม 8 = นักเรียนขาดสอบ 9 = นักเรียนลาพักการเรียน/ลาออก
&CourseTitleID=<%=rs("CourseTitleID")%>&Classlevel=<%=rs("Classlevel")%>&SubjectCode=<%=rs("SubjectCode")%>&SubjectTitle=<%=rs("SubjectTitle")%>&Credit=<%=rs("Credit")%>&InstructorCode=<%=rs("InstructorCode")%>&classname=<%=rs("classname")%>&SectionTitle=<%=rs("SectionTitle")%>">
|
<%
Dim vactive,ObjRS
vactive = request("active")
if vactive = "save" then
if request("chkcnt") = 1 then
strSQLUp = "update inputscore "
if trim(request("grade")(request("chk"))) = "" then
strSQLUp = strSQLUp + " set grade =null"
else
strSQLUp = strSQLUp + " set grade ='"& request("grade")(request("chk")) &"'"
end if
strSQLUp = strSQLUp + " where SectionID = '"& request("SectionID") &"'"
strSQLUp = strSQLUp + " and StudentNumber = '"& request("StudentNumber")(request("chk")) &"'"
'response.write strSQLUp
Set ObjRS = Conn.Execute(strSQLUp)
if err.Number = 0 then
response.write "ตรวจสอบการบันทึกโดยดูที่ผลการประเมิน
 บันทึกเรียบร้อยแล้ว"
else
response.write " ไม่สามารถบันทึกได้
เนื่องจาก No." & err.Number& " Msg:" & err.Description & ""
end if
else
if request("chkcnt") > 0 then
for i = 1 to request("chkcnt")
strSQLUp = "update inputscore "
if trim(request("grade")(request("chk")(i))) = "" then
strSQLUp = strSQLUp + " set grade =null"
else
strSQLUp = strSQLUp + " set grade ='"& request("grade")(request("chk")(i)) &"'"
end if
strSQLUp = strSQLUp + " where SectionID = "& request("SectionID")
strSQLUp = strSQLUp + " and StudentNumber = '"& request("StudentNumber")(request("chk")(i)) &"'"
'response.write strSQLUp & "
"
Set ObjRS = Conn.Execute(strSQLUp)
next
end if
if err.Number = 0 then
response.write "ตรวจสอบการบันทึกโดยดูที่ผลการประเมิน
บันทึกเรียบร้อยแล้ว"
else
response.write "ไม่สามารถบันทึกได้
เนื่องจาก No." & err.Number& " Msg:" & err.Description & ""
end if
end if
response.end
end if
%>
|
|
|