📄 grade.asp
字号:
<%@ Language=VBScript %>
<html><head>
<LINK href="Css/style.css" rel=stylesheet>
<TITLE>成绩管理</TITLE>
<!--#include file="Include/Conn.Inc" -->
<!--#include file="Include/adovbs.inc" -->
</HEAD>
<body bgcolor="ffffff" TOPMARGIN="0" MARGINHEIGHT="0">
<% dim SeleClass, SeleCourse, AllowChange, StuID
Dim i, Rs, Rs_Temp, Sql, SearchSql, Message
if Session("GuestType") =0 then '没有登录，不能查看
Response.Redirect("Default.asp")
end if
if Session("GuestType")=1 then '学生
SeleClass = Session("ClassID")
else
SeleClass = Request("SeleClass")
end if
SeleCourse = Request("SeleCourse")
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.CursorType=adOpenStatic
Rs.ActiveConnection = Conn
Message=""
if Request("SubmitGrade")="提交" then ' 处理提交的修改数据
For Each Items in Request.Form
If LCase(Left(Items, 2))="id" then
StuID = Right(Items, LEN(Items)-2)
if IsNumeric(Request(Items)) then '提交的不是数据
Sql = "UPDATE grade Set StudentID='"&StuID&"',"
Sql = Sql&"CourseID='"&SeleCourse&"',grade="&Request(Items)
Sql = Sql&" Where StudentID='"&StuID&"' and CourseID='"&SeleCourse&"'"
Conn.Execute(Sql)
else
Message="<font color=#FF0000>学号:"&StuID&"同学的成绩无效，请重输</font>"
end if
end if
if Message="" then
Message="<font color=#0000FF>"&SeleClass&"班的"&SeleCourse&"课程成绩已成功提交</font>"
end if
Next
end if
if SeleClass<>"" then ' 第一次进入时，SeleClass="", SeleCourse=""
SearchSql = "Select A.CourseID, D.CourseName" ' 查询某班的课程
SearchSql = SearchSql&" From Speciality_Course A, Speciality B, Class C, Course D"
SearchSql = SearchSql&" where A.SpecialityID=B.SpecialityID"
SearchSql = SearchSql&" and B.SpecialityID=C.SpecialityID"
SearchSql = SearchSql&" and A.CourseID=D.CourseID"
SearchSql = SearchSql&" and C.ClassID='"&SeleClass&"'"
SearchSql = SearchSql&" Order By A.CourseID"
if SeleCourse="" then '没有选择过课程
Set Rs_Temp = conn.Execute(SearchSql)
if not Rs_Temp.eof then SeleCourse = Trim(Rs_Temp("CourseID"))
Rs_Temp.Close
end if
AllowChange = False
if Session("GuestType")=2 then '教师
'查询该教师是否为该课程的任课教师，若是，则有权修改成绩
Sql = "Select TeacherID From CurriculumSchedule"
Sql = Sql&" Where ClassID='"&SeleClass&"' and CourseID='"&SeleCourse&"'"
Sql = Sql&" And TeacherID='"&Session("Guest_ID")&"'"
Set Rs_Temp = conn.Execute(Sql)
if not Rs_Temp.eof then AllowChange = True
end if
set Rs_Temp = NoThing
' 取某班所有学生某一门课程的成绩
Sql = "SELECT A.StudentID, B.StudentName, Sex, A.CourseID, CourseName, ClassName, Grade "
Sql = Sql&" FROM Grade A, Student B, Course C, Class D"
Sql = Sql&" Where A.StudentID=B.StudentID and A.CourseID=C.CourseID "
Sql = Sql&" And B.ClassID=D.ClassID "
Sql = Sql&" And B.ClassID='"&SeleClass&"'"
Sql = Sql&" And A.CourseID = '"&SeleCourse&"'"
Sql = Sql&" Order By A.StudentID"
if SeleCourse <> "" then 'SeleCourse<>""，表示已选择了一门课程
Rs.Open Sql
Set Rs_Temp = conn.Execute("SELECT StudentID From Student Where ClassID ='"&SeleClass&"' Order By StudentID")
do while Not Rs_Temp.eof
Recexist = False
if Not Rs.eof then
if Trim(Rs_Temp("StudentID"))=Trim(Rs("StudentID")) then
Recexist = True
Rs.MoveNext
end if
end if
if Recexist = False then
conn.Execute("Insert into Grade Values('"&Trim(Rs_Temp("StudentID"))&"','"&SeleCourse&"',0)")
end if
Rs_Temp.MoveNext
loop
Rs_Temp.Close
Rs.Requery
end if
end if %>
<form name="formSearch" method="Post" action="Grade.asp">
<table width="520" border="0" cellpadding="0" bgcolor="#99FFCC">
<tr><td width="37"> </td>
<td width="140" align="center">班级：
<select name="SeleClass">
<%dim ClassID, RsClass, SqlClass
SqlClass = "SELECT ClassID, ClassName FROM Class"
if Session("GuestType")=1 then '学生
SqlClass = SqlClass &" Where ClassID='"&SeleClass&"'"
end if
Set RsClass = Conn.Execute(SqlClass)
do while Not RsClass.eof
ClassID = Trim(RsClass("ClassID"))
if SeleClass=ClassID then
ClassName = RsClass("ClassName") %>
<option Value="<%=ClassID%>" selected> <%=RsClass("ClassName")%> </option>
<% Else %>
<option Value="<%=ClassID%>"> <%=RsClass("ClassName")%> </option>
<% End if
RsClass.MoveNext
Loop
RsClass.Close
set RsClass=NoThing %>
</select> </td>
<% if SeleCourse<>"" then %>
<td width="209">课程：
<select name="SeleCourse">
<% dim RsCourse, CourseID
Set RsCourse = conn.Execute(SearchSql)
do while Not RsCourse.eof
CourseID = Trim(RsCourse("CourseID"))
if SeleCourse=CourseID then
CourseName = RsCourse("CourseName") %>
<option Value="<%=CourseID%>" selected> <%=RsCourse("CourseName")%> </option>
<% Else %>
<option Value="<%=CourseID%>"> <%=RsCourse("CourseName")%> </option>
<% End if
RsCourse.MoveNext
Loop
RsCourse.Close
Set RsCourse=NoThing %>
</select>
</td>
<% end if %>
<td width="124"><input type="submit" name="Search" value="搜索"></td>
</tr>
</table>
</form>
<%if SeleCourse<>"" then
if Message<>"" then %>
<table width="468" height="31" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="468" height="31"><div align="center"><%=Message%></div></td>
</tr>
</table>
<%end if %>
<form name="formGrade" method="Post" action="Grade.asp">
<table width="467" border="1" align="center" cellpadding="2" cellspacing="0" bordercolor="#6666FF" bgcolor="#fef7d8">
<TBODY>
<TR align="center">
<TD width="33" height="28"><strong>序号</strong>
<input name="SeleClass" type="hidden" value="<%=SeleClass%>">
<input name="SeleCourse" type="hidden" value="<%=SeleCourse%>">
</TD>
<TD width="135"><strong>学号</strong></TD>
<TD width="118"><strong>姓名</strong></TD>
<TD width="69"><strong>性别</strong></TD>
<TD width="80"><strong>成绩</strong></TD>
</TR>
<%i=1
do while Not Rs.Eof %>
<TR><TD height="29" align="center"><%=i%></TD>
<TD><div align="center"><%=Rs("StudentID")%></div></TD>
<TD><%=Rs("StudentName")%></TD>
<TD><div align="center"><%=Rs("Sex")%></div></TD>
<TD><div align="center">
<input name="<%="ID"&Rs("StudentID")%>" type="text" size="5" maxlength=3 value="<%=Rs("Grade")%>">
</div></TD>
</TR>
<% i = i +1
Rs.MoveNext()
Loop
Rs.Close %>
<TR> <TD height="29" colspan="5" align="center">
<%if AllowChange = True then%>
<input type="submit" name="SubmitGrade" value="提交">
<%end if%>
</TD></TR>
</table>
</form>
<% End if
Set Rs = Nothing
Set Rs_Temp = NoThing
Conn.Close
Set Conn = Nothing %>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -