📄 showstuhomework.asp
字号:
<!-- #include file="utility/checkTeacher.asp" -->
<%
'****************************************
'目的： 点评学生作业表单
'开始时间： 2005-6-7 15:29
'最后修改时间： 2005-6-7 15:29
'编写人： 某某某
'****************************************
dim teacherID
dim stuHomeworkID
dim courseName
dim homework '作业题目
dim homeworkContent '作业答案
dim homeworkTime '作业发布时间
dim answerTime '作答时间
dim studentID '学号
dim homeworkRank '老师点评
dim rs
dim sql
stuHomeworkID = Request.QueryString("stuHomeworkID")
teacherID = Session("userID")
'判断参数是否完整
if(stuHomeworkID = "")then
Alert("参数丢失，操作失败！")
GoBack()
Response.end
end if
'构造SQL命令
sql = "select course.cName,courseHomework.addTime,courseHomework.homework,"
sql = sql & "stuHomework.stuID,stuHomework.addTime,stuHomework.homeworkContent,"
sql = sql & "stuHomework.homeworkRank from course,courseHomework,stuHomework "
sql = sql & "where stuHomework.homeworkID = courseHomework.ID and "
sql = sql & "courseHomework.courseID = course.ID and stuHomework.ID = "
sql = sql & stuHomeworkID & " and course.ID = " & teacherID
set rs = ExecuteQuery(sql)
'检查记录是否存在
if(rs.EOF) then
Alert("该记录不存在，请查实！")
GoBack()
rs.close()
set rs = nothing
Response.end
else
'存在记录就取值并赋给变量
courseName = rs("cName")
homework = rs("homework")
homeworkContent = rs("homeworkContent")
homeworkTime = rs("courseHomework.addTime")
answerTime = rs("stuHomework.addTime")
studentID = rs("stuID")
homeworkRank = rs("homeworkRank")
rs.close()
set rs = nothing
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=manageHomework.asp?actionType=dealStuHomework&stuHomeworkID=<%=stuHomeworkID%> method=post>
<table border="1" width="700" id="table1" cellspacing="0" cellpadding="0" style="border-collapse: collapse" height="190" bordercolor="#CCCCCC">
<tr>
<td width="100" height="27" align="right" bgcolor="#F2F2F2">课程名：</td>
<td height="27" width="304"> <%=courseName%></td>
<td height="27" align="right" width="81">发布时间：</td>
<td height="27" width="211"> <%=homeworkTime%></td>
</tr>
<tr>
<td width="100" align="right" height="27" bgcolor="#F2F2F2">作业内容：</td>
<td height="27" colspan="3" align="center">
<table border="0" width="98%" id="table4" cellpadding="2" style="border-collapse: collapse">
<tr>
<td><%=homework%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100" align="right" height="28" bgcolor="#F2F2F2">学生编号：</td>
<td height="28" width="304"> <%=studentID%></td>
<td height="28" align="right" width="81">答题时间：</td>
<td height="28" width="211"> <%=answerTime%></td>
</tr>
<tr>
<td width="100" align="right" height="28" bgcolor="#F2F2F2">答题内容：</td>
<td height="28" width="597" colspan="3" align="center">
<table border="0" width="98%" id="table3" cellspacing="2" cellpadding="2" style="border-collapse: collapse; line-height: 150%">
<tr>
<td><%=homeworkContent%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100" align="right" height="62" bgcolor="#F2F2F2">教师点评：</td>
<td height="62" width="597" colspan="3">
<p align="center">
<textarea rows="3" name="S1" cols="94" class="inputTextArea"><%=homeworkRank%></textarea></td>
</tr>
<tr>
<td width="100" align="right" height="23" bgcolor="#F2F2F2">增加平时成绩：</td>
<td height="23" width="597" colspan="3"> <select size="1" name="stuCommonMark" class="inputTextShort">
<option selected value="0">0分</option>
<option value="1">1分</option>
<option value="2">2分</option>
<option value="3">3分</option>
<option value="4">4分</option>
<option value="5">5分</option>
</select>
<input type="submit" value="确定提交" name="B1" class="anniu">
<input type="reset" value="重新填写" name="cancel" class="anniu"></td>
</tr>
</table>
</form>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -