:: ผลการประเมินการอ่าน

โรงเรียนสาธิตแห่งมหาวิทยาลัยเกษตรศาสตร์ ศูนย์วิจัยและพัฒนาการศึกษา
บันทึกการประเมินการอ่าน คิดวิเคราะห ์และเขียน ปีการศึกษา <% if Year(Date) < 2550 then response.write Year(Date)+543 else response.write Year(Date) end if %>

อาจารย์ประจำชั้น <% If ConnectDB() = True Then sqlTech = "SELECT ClassName.ClassName, Advisor.Expr1 as TeachName, Advisor.Order " & _ " FROM ClassName INNER JOIN Advisor ON ClassName.ClassName = Advisor.ClassName " & _ " where classname.classname='" & request("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%> ช่วงชั้นที่ :<%=request("CourseTitleID")%> ชั้น :<%=request("SectionTitle")%>
วิชา :<%=request("SubjectCode")%> ชื่อวิชา :<%=request("SubjectTitle")%> หน่วยการเรียน :<%=request("Credit")%> อาจารย์ผู้สอน :<%=session("Prefix")%> <%=session("FName")%> <%=session("LName")%>

หน้าแรก | &CourseTitleID=<%=request("CourseTitleID")%>&Classlevel=<%=request("Classlevel")%>&SubjectCode=<%=request("SubjectCode")%>&SubjectTitle=<%=request("SubjectTitle")%>&Credit=<%=request("Credit")%>&InstructorCode=<%=request("InstructorCode")%>&classname=<%=request("classname")%>&SectionTitle=<%=request("SectionTitle")%>"> พิมพ์

พิมพ์รายงาน |

ออกจากระบบ

<% sql =" SELECT inputscore.SectionID, student.StudentNumber,student.PreName, student.FirstName, " & _ " student.LastName, student.PlanName as stuPlanName, inputscore.grade " & _ " FROM inputscore INNER JOIN student " & _ " ON inputscore.StudentNumber = student.StudentNumber " & _ " WHERE (((inputscore.SectionID)=" & request("SectionID") & " )) " & _ " order by student.ClassName,student.StdNO,student.StudentNumber " 'response.write "sql:" & sql & "
" Set rs = Conn.Execute(sql) If Not(rs.EOF) Then recno = 0 Do While Not rs.EOF recno = recno + 1 if recno mod 2 = 0 then bgcolor = "#FFFFFF" fontcolor = "#000000" else bgcolor = "#E1F0FF" fontcolor = "#000000" end if %> <% rs.MoveNext Loop rs.Close set rs = nothing %> <% Else %> <% rs.Close set rs = nothing End if %> <%End if%>

ผลการประเมิน
ลำดับ.	เลขที่	ชื่อ-นามสกุล	แผนการเรียน	ระดับคุณภาพ	ผลการประเมิน
<%=recno%>.	<%if isnull(rs("StudentNumber")) then response.write " " else response.write " "&rs("StudentNumber")&" " end if%>	<%if isnull(rs("StudentNumber")) then response.write " " else response.write " "&rs("PreName")&" "&rs("FirstName")&" "&rs("LastName") end if%>	<%if isnull(rs("stuPlanName")) then response.write " " else response.write " "&rs("stuPlanName")&" " end if%>	<%if isnull(rs("grade")) then response.write " " else response.write " "&rs("grade")&" " end if%>	<%if isnull(rs("grade")) then response.write " " else if rs("grade") = 8 then response.write " รอผลการประเมิน " elseif rs("grade") = 9 then response.write " ไม่ประเมินผล " elseif rs("grade") = 3 then response.write " ดีเยี่ยม " elseif rs("grade") = 2 then response.write " ดี " elseif rs("grade") = 1 then response.write " พอใช้/ผ่าน " elseif rs("grade") = 0 then response.write " ไม่ผ่าน " else response.write " ไม่สามารถประเมินได้ " end if end if%>
-	-	-	-	-	-
ค้นพบทั้งหมดจำนวน " style="width:30" class="box" readonly> รายการ