📄 showgrade.asp
字号:
<%@ Language=VBScript %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
<LINK href="Css/style.css" rel=stylesheet>
<TITLE>成绩管理</TITLE>
<!--#include file="Conn.Inc" -->
<!--#include file="adovbs.inc" -->
</HEAD>
<body bgcolor="ffffff" TOPMARGIN="0" MARGINHEIGHT="0">
<%
dim SeleClass, SeleCourse, AllowChange
Dim i, Rs, Rs_Temp, Sql, SearchSql
if Session("GuestType") =0 then '没有登录，不能查看
Response.Redirect("Default.asp")
end if
' 处理修改的数据
if Request("SubmitGrade")="提交" then
end if
if Session("GuestType")=1 then '学生
SeleClass = Session("ClassID")
else
SeleClass = Request("SeleClass")
end if
SeleCourse = Request("SeleCourse")
response.write "SeleClass="&SeleClass&",SeleCourse="&SeleCourse
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.CursorType=adOpenStatic
Rs.ActiveConnection = Conn
' 第一次进入时，SeleClass="", SeleCourse=""
if SeleClass<>"" then
' 查询某班的课程
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"))
end if
Rs_Temp.Close
end if
AllowChange = False
if Session("GuestType")=2 then '教师
Set Rs_Temp = conn.Execute("Select TeacherID From CurriculumSchedule Where ClassID='"&SeleClass&"' and CourseID='"&SeleCourse&"'")
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 '，表示已选择了一门课程
Rs.Open Sql
Set Rs_Temp = conn.Execute("SELECT StudentID From Student Where ClassID ='"&SeleClass&"' Order By StudentID")
' response.write "Rs="&Rs.recordcount&"Rs_Temp="&Rs_Temp.recordcount
' i=0
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
' i=i+1
Rs_Temp.MoveNext
loop
' response.write ",i="&i
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 %>
<table width="468" height="31" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="42" height="31"> </td>
<td width="207">班级：<%=ClassName%></td>
<td width="219">课程名：<%=CourseName%></td>
</tr>
</table>
<form name="formGrade" method="Post" action="Grade.asp">
<table width="467" border="1" cellpadding="2" cellspacing="0" bordercolor="#6666FF" bgcolor="#fef7d8">
<TBODY>
<TR align="center">
<TD width="33" height="28"><strong>序号</strong>
<input name="ClassID" type="hidden" value="<%=SeleClass%>">
<input name="CourseID" 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="<%=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 + -