📄 manage_stu_rewrite.asp
字号:
else
response.Write ShowRs("department_name")
End if
ShowRs.close
Set ShowRs=nothing
end sub
'显示当前学期的过程调用*********************************
sub ShowCurrentTerm(Name_id)
Dim ShowCurrentTermRs,ShowCurrentTermSql
Set ShowCurrentTermRs=server.CreateObject("adodb.recordset")
ShowCurrentTermSql="select [Term_id],[Term_name] from [term_info] where [Current_Term]=1"
ShowCurrentTermRs.open ShowCurrentTermSql,Initialize_Conn,1,1
if Name_id=0 then
response.Write "<font color=red>"&ShowCurrentTermRs("term_name")&"</font>"
else
response.Write ShowCurrentTermRs("term_id")
End if
ShowCurrentTermRs.close:Set ShowCurrentTermRs=nothing
end Sub
'教师选择课程科目的下列列表*****************************
Sub TeacherSelectSubject()
Dim SelectSubjectRs,SelectSubjectSql
Set SelectSubjectRs=server.CreateObject("adodb.recordset")
SelectSubjectSql="select [subject_id],[subject_name],[auth_teacher] from [subject] where teacher_id='"&request("teacher_id")&"'"
SelectSubjectRs.open SelectSubjectSql,Initialize_Conn,1,1
DO while not SelectSubjectRs.eof
Response.Write("<option value="&SelectSubjectRs("subject_id")&">"&SelectSubjectRs("subject_name")&"</option>")
SelectSubjectRs.movenext
Loop:SelectSubjectRs.close:set SelectSubjectRs=nothing
End Sub
'根据传递过来的subject_id 显示所选课程的名称
Sub GetSubjectNameByID()
Dim GetSubjectNameRs,GetSubjectNameSql
Set GetSubjectNameRs=server.CreateObject("adodb.recordset")
GetSubjectNameSql="select [subject_name],[auth_teacher] from [subject] where [subject_id]='"&request.Form("subject_id")&"'"
GetSubjectNameRs.open GetSubjectNameSql,Initialize_Conn,1,1
Response.Write GetSubjectNameRs("subject_name")&"</font> 授课教师是:<font color=red>"&GetSubjectNameRs("auth_teacher")&"</font>"
GetSubjectNameRs.close: Set GetSubjectNameRs=nothing
End Sub
'显示当前班级中学生的数目*****************
Sub ShowCurrentClassStuNum()
Dim StudentRsNum,StudentRsNumSql
StudentRsNumSql="select count(*) from [student] where department_id='"&request("department_id")&"' and teacher_id='"&request("teacher_id")&"' and class_id='"&request("class_id")&"'"
Set StudentRsNum=Initialize_Conn.execute(StudentRsNumSql)
Response.Write StudentRsNum(0)
StudentRsNum.close: Set StudentRsNum=nothing
End Sub
%>
<%'显示输入班级学生数目的文本框****************************************
Sub InputClassStudentNun() %>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>思燕Seayan成绩查询系统SQL版本v1.0----现代教学管理信息系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="gb2312">
<meta content="all" name="robots">
<meta content="websvc@163.com" name="author">
<meta content="版权所有:Seagreen 2005-2008" name="Copyright">
<meta content="思燕Seayan成绩查询系统SQL版本v1.0, 由 赵海 先生模仿方正教务管理系统开发。" name="description">
<link rel="icon" href="/favicon.ico" type="image/x-icon">
<link rel="stylesheet" rev="stylesheet" href="images/main.css" type="text/css" media="all">
<SCRIPT language="javascript" src="images/Menu.js"></SCRIPT>
<link href="images/my_style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
<script language="javascript">
function CheckForm() {
if(myform.StudentNumberOfClass.value =='' || (isNaN(myform.StudentNumberOfClass.value) || myform.StudentNumberOfClass.value<0 || myform.StudentNumberOfClass.value>200))
{
alert("学生人数应填有效数字！");
myform.StudentNumberOfClass.value="";
myform.StudentNumberOfClass.focus();
return false;
}
}
</script>
</head>
<body background="axhucj/images/admin_MainBg.gif">
<iframe src="images/head.htm" frameborder="0" scrolling="no" width="100%" height="59"></iframe>
<div id="menu" STYLE='width:100%'><!--#include file="menu.asp"--> </div>
<div id="welcome">
<span id="xhxm"><font color="red"> </font></span>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="19" colspan="2"><span id="xhxm"><font color="red"><%=request.Cookies("teacher_name")%></font>老师，您好，欢迎您使用思燕Seayan成绩查询系统！</span> </td>
<td width="33%"> </td>
<td width="17%"> </td>
</tr>
<tr>
<td height="17" colspan="4"><hr width="100%"></td>
</tr>
<tr>
<td width="19%" height="328"> </td>
<td align="center" colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" height="323" colspan="3">
<% Dim Add_or_Edit_StudentSql,ShowHaveBeenAdd2,CurrentScoreNum2
Add_or_Edit_StudentSql="select count(*) from [student] where [department_id]='"&request.Cookies("department_id")&"' and [teacher_id]='"&request.Cookies("teacher_id")&"' and [class_id]='"&request("class_id")&"'"
Set ShowHaveBeenAdd2=Initialize_Conn.execute(Add_or_Edit_StudentSql)
CurrentScoreNum2=ShowHaveBeenAdd2(0)
ShowHaveBeenAdd2.close: Set ShowHaveBeenAdd2=nothing
If CurrentScoreNum2 <> 0 then '此时说明当前班级已经添加过学生，此时转向编辑页面
Response.Redirect("Manage_stu_Rewrite.asp?Action=ShowStudentInputForm&StudentNumberOfClass=0&class_name="&request("class_name")&"&class_id="&request("class_id")&"")
else
%>
<p>当前班级是:<font color="red"><%=request("class_name")%></font>
请您输入要添加的班级的学生<font color="red">人数</font>:
<form name="myform" method="post" action="Manage_stu_Rewrite.asp?Action=ShowStudentInputForm" onsubmit="return CheckForm()">
<input type="text" value="" onkeyup="value=value.replace(/[^\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" onkeydown="if(event.keyCode==13)event.keyCode=9"/ name="StudentNumberOfClass">
<input type="hidden" name="class_name" value="<%=request("class_name")%>">
<input type="hidden" name="class_id" value="<%=request("class_id")%>">
<input type="submit" name="Submit" value="继续下一步">
</form>
<% End if %>
</td>
</tr>
</table></td>
<td> </td>
</tr>
<tr>
<td height="50" colspan="4"> </td>
</tr>
</table>
</div>
<div id="bottom">
<iframe src="images/bottom.htm" frameborder="0" scrolling="no" width="100%" height="28"></iframe>
</div>
</body>
</html>
<%
End Sub
'如果当前班级的学生列表没有添加，此处根据辅导员输入的数字，打印出文本框，提供辅导员输入
Sub InputStudentList(ClassStudentNum)
%>
<form id="form1" name="StudentList" method="post" action="SaveStudentList.ASP" target="_blank">
<table width="100%" border="0" bgcolor="#8ab105" cellspacing="1" cellpadding="0">
<tr bgcolor="#FFFFFF">
<%
Dim iii,sTr1,sTr2,j ', ClassStudentNum'这个就是用户输入的数值
'ClassStudentNum = 8
sTr1 = ""
sTr2 = ""
For iii = 0 To ClassStudentNum -1
If iii>0 And iii Mod 3 = 0 Then
Response.Write(sTr1)
Response.Write("</tr><tr bgcolor=""#FFFFFF"">")
Response.Write(sTr2)
Response.Write("</tr><tr bgcolor=""#FFFFFF"">")
sTr1 = ""
sTr2 = ""
End If
sTr1 = sTr1 & "<td align=""center"" width="""" height=""18"">学号</td>"
sTr1 = sTr1 & "<td align=""center"" width="""">姓名</td>"
sTr1 = sTr1 & "<td align=""center"" width=""1"" bgcolor=""#8ab105""></td>"
sTr2 = sTr2 & "<td align=""center"" height=""18""><input type=""text"" value="""" onkeydown=""if(event.keyCode==13)event.keyCode=9"" name=StuNo"&iii&" size=""12""></td>"
sTr2 = sTr2 & "<td align=""center"" height=""18""><input type=""text"" value="""" onkeyup=""value=value.replace(/[ -~]/g,'')"" onkeydown=""if(event.keyCode==13)event.keyCode=9"" name=StuName"&iii&" size=""7""></td>"
sTr2 = sTr2 & "<td align=""center"" bgcolor=""#8ab105""></td>"
Next
For j = 1 To 3 -1
If iii Mod 3 = 0 Then Exit For
iii = iii + 1
sTr1 = sTr1 & "<td align=""center"" width="""" height=""18""></td>"
sTr1 = sTr1 & "<td align=""center"" width=""""></td>"
sTr1 = sTr1 & "<td align=""center"" width=""1"" bgcolor=""#8ab105""></td>"
sTr2 = sTr2 & "<td align=""center"" height=""18""></td>"
sTr2 = sTr2 & "<td align=""center"" height=""18""></td>"
sTr2 = sTr2 & "<td align=""center"" bgcolor=""#8ab105""></td>"
Next
Response.Write(sTr1)
Response.Write("</tr><tr bgcolor=""#FFFFFF"">")
Response.Write(sTr2)
%>
</tr>
<tr bgcolor="#FFFFFF">
<td height="50" colspan="12" align="center">
<input type="hidden" name="teacher_id" value="<%=request.cookies("teacher_id")%>" />
<input type="hidden" name="department_id" value="<%=request.cookies("department_id")%>"/>
<input type="hidden" name="class_id" value="<%=request.Form("class_id")%>"/>
<!--input type="hidden" name="class_name" value="<=request.Form("class_name")>"/--><!--这个隐藏域没有太大用处-->
<input type="hidden" name="StudentRsNum" value="<%=ClassStudentNum%>" />
<input type="submit" name="Submit" value="保存学生列表" />
<input type="reset" name="Submit2" value="全部重填" />
</td>
</tr>
</table>
</form>
<%
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -