📄 changemark.asp
字号:
<!-- #include file="utility/check.asp" -->
<%
'****************************************
'目的： 显示学生成绩输入表单
'开始时间： 2005-6-7 12:26
'最后修改时间： 2005-6-7 12:26
'编写人： 某某某
'****************************************
dim stuCourseID '选课记录编号
dim studentID '学号
dim courseID '课程号
dim courseName '课程名
dim stuCommonMark '平时成绩
dim stuTestMark '考试成绩
dim stuRank '最总评定
'教师编号，测试教师是否有足够的权限显示对应记录
dim teacherID
dim sql
dim rs
stuCourseID = Request.QueryString("stuCourseID")
'检查参数是否完整
if(stuCourseID = "") then
Alert("参数丢失，操作失败！")
GoBack()
Response.end
end if
sql = "select stuCourse.*,course.cName,course.tID "
sql = sql & "from stuCourse,course where stuCourse.ID = "
sql = sql & stuCourseID
sql = sql & " and stuCourse.courseID = course.ID"
set rs = ExecuteQuery(sql)
'判断记录是否存在
if(rs.EOF) then
Alert("该记录不存在，请查实后再提交！")
GoBack()
rs.close()
set rs = nothing
Response.End
end if
studentID = rs("stuID")
courseID = rs("courseID")
courseName = rs("cName")
stuCommonMark = rs("stuCommonMark")
stuTestMark = rs("stuTestMark")
stuRank = rs("stuRank")
teacherID = rs("tID")
rs.close()
set rs = nothing
'权限判断
if(Chr(teacherID) <> Chr(Session("userID"))) then
Alert("参数非法，操作失败！")
GoBack()
Response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>学生成绩输入</title>
<link rel="stylesheet" type="text/css" href="images/link.css">
</head>
<body>
<div align="center">
<table border="1" width="700" id="table2" cellspacing="0" cellpadding="0" style="border-collapse: collapse" height="22">
<tr>
<td> 当前操作： 输入学生成绩</td>
</tr>
</table>
<br>
<form action=manageMark.asp?stuCourseID=<%=stuCourseID%> method=post>
<table border="1" width="700" id="table1" cellspacing="0" cellpadding="0" style="border-collapse: collapse" height="148" bordercolor="#CCCCCC">
<tr>
<td width="70" height="24" align="right" bgcolor="#F2F2F2">学号：</td>
<td height="24"> <%=studentID%></td>
</tr>
<tr>
<td width="70" align="right" height="24" bgcolor="#F2F2F2">课程名：</td>
<td height="24"> <%=courseName%></td>
</tr>
<tr>
<td width="70" align="right" height="24" bgcolor="#F2F2F2">平时成绩：</td>
<td height="24"> <input type="text" name="stuCommonMark" size="20" class="inputText" value="<%=stuCommonMark%>"> </td>
</tr>
<tr>
<td width="70" align="right" height="24" bgcolor="#F2F2F2">考试成绩：</td>
<td height="24"> <input type="text" name="stuTestMark" size="20" class="inputText" value="<%=stuTestMark%>"> </td>
</tr>
<tr>
<td width="70" align="right" height="25" bgcolor="#F2F2F2">总成绩：</td>
<td height="25"> <input type="text" name="stuRank" size="20" class="inputText" value="<%=stuRank%>"> </td>
</tr>
<tr>
<td width="70" align="right" height="25" bgcolor="#F2F2F2">操作：</td>
<td height="25"> <input type="submit" value="提交成绩" name="B1" class="anniu"> <input type="reset" value="重新填写" name="B2" class="anniu"></td>
</tr>
</table>
</form>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -