📄 adminstudentclass.asp

📁 晴和教务管理系统
💻 ASP
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/function.asp"-->
<%
dim action
action=request.QueryString("action")
select case action
case ""
%>
<html><head><title>教务管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css.css" rel="stylesheet" type="text/css">
</head>
<body style="background-color: #799AE1">
<table class="tableBorder" width="887" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr> 
<td align="center" background="images/admin_bg_1.gif" height="25" colspan="5"><b><font color="#ffffff">教务管理—课程管理</font></b></td>
</tr>








<tr> 
<td bgcolor="#E8F1FF" align="center" height="25" colspan="5">
<font color="#FF0000">查看班级课表</font></td>
</tr> 
<tr> 
<td bgcolor="#E8F1FF" align="center" height="25" width="177">班级列表：</td>
<td bgcolor="#E8F1FF" align="center" height="25" width="177">
<select size="20" name="bjxs"   onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_classes order by bjdm",conn,1,3
do while not rs.eof
if left(rs("bjdm"),1) = "1" then nj="初"
if left(rs("bjdm"),1) = "2" then nj="高"
if left(rs("bjdm"),1) = "3" then nj="初补习"
if left(rs("bjdm"),1) = "4" then nj="高补习"
if left(rs("bjdm"),1) = "5" then nj="其它"
%>
	<option  value="adminstudentclass.asp?bjdm=<% =rs("bjdm")%>"> <% =rs("bjdm")%>　<% =nj & right(left(rs("bjdm"),3),2) & "级" & right(rs("bjdm"),2) & "班"%></option>
<%
rs.movenext
loop
set rs=nothing
%>
</select>
</td>
<td bgcolor="#E8F1FF" align="center" height="25" width="177">课程列表：</td>
<td bgcolor="#E8F1FF" align="center" height="25" width="177">
<select size="20">

<%
bjdm=trim(request("bjdm"))
studentNum=bjdm & "001"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_stuclass where studentNum = '" & studentNum & "'",conn,1,3
do while not rs.eof
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from Jw_teaclass where xuanxiuke = 0 and ID = " & rs("teacherclassID") & " order by Num",conn,1,3
do while not rs1.eof
%>
	<option value=""> 课程代码：<% =rs1("NUM")%>　班：<% =rs1("ban")%>　课程名称：<% =rs1("name")%>　任课教师：<% =rs1("teacher")%></option>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
</td>
<td bgcolor="#E8F1FF" align="center" height="25" width="178"></td>
</tr>


<form name="classinfo" method="post" action="adminstudentclass.asp?action=save">
<tr> 
<td bgcolor="#E8F1FF" align="center" height="25" colspan="5">
<font color="#FF0000">班级选课，请认真查看上面班级课程表，请不要不要重复选课</font></td>
</tr> 
<tr> 
<td bgcolor="#E8F1FF" align="center" height="25" width="177">班级列表：</td>
<td bgcolor="#E8F1FF" align="center" height="25" width="177">
<select size="20" name="bjxs">
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_classes order by bjdm",conn,1,3
do while not rs.eof
if left(rs("bjdm"),1) = "1" then nj="初"
if left(rs("bjdm"),1) = "2" then nj="高"
if left(rs("bjdm"),1) = "3" then nj="初补习"
if left(rs("bjdm"),1) = "4" then nj="高补习"
if left(rs("bjdm"),1) = "5" then nj="其它"
%>
	<option value="<% =rs("bjdm")%>"> <% =rs("bjdm")%>　<% =nj & right(left(rs("bjdm"),3),2) & "级" & right(rs("bjdm"),2) & "班"%></option>
<%
rs.movenext
loop
set rs=nothing
%>
</select>
</td>
<td bgcolor="#E8F1FF" align="center" height="25" width="177">课程列表：</td>
<td bgcolor="#E8F1FF" align="center" height="25" width="177">
<select size="20" name="kcid">
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_teaclass where xuanxiuke = 0 order by num",conn,1,3
do while not rs.eof
%>
	<option value="<% =rs("ID")%>"> 课程代码：<% =rs("NUM")%>　班：<% =rs("ban")%>　课程名称：<% =rs("name")%>　任课教师：<% =rs("teacher")%></option>
<%
rs.movenext
loop
set rs=nothing
conn.close
set conn=nothing
%>
</select>
</td>
<td bgcolor="#E8F1FF" align="center" height="25" width="178">
<input class="go-wenbenkuang" name="submit1" value=选定 type=submit onClick="return checkup();"></td>
</tr>
</form>
</table>

<%
case "save"

bjxs=trim(request("bjxs"))
kcid=trim(request("kcid"))
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_student where Num like '" & bjxs & "%'",conn,1,3
do while not rs.eof
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from Jw_stuclass",conn,1,3
rs1.addnew
rs1("studentNum")=rs("Num")
rs1("teacherclassID")=kcid
rs1.update
rs1.close
set rs1=nothing
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "ok.asp?ok=添加班级课程"

end select
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -