📄 kcgl.asp
字号:
<HTML><HEAD><TITLE>x学校网上选课系统---课程管理</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="images/css.css" type=text/css rel=stylesheet>
</HEAD>
<BODY bgColor=#f0f0f0 leftMargin=0 topMargin=0 MARGINWIDTH="0" MARGINHEIGHT="0">
<!--#include file="top1.asp"-->
<TABLE id=table2 height=150 cellSpacing=0 cellPadding=0 width=770 align=center
border=0>
<TBODY>
<TD vAlign=top bgColor=#ffffff height=119>
<DIV align=center>
<TABLE id=table7 height=33 cellSpacing=0 cellPadding=0 width=770
border=0>
<TBODY>
<TR>
<TD width=770 colSpan=2>
<P align=center><FONT size=2><B>x学校校本课程管理</B></FONT></P></TD></TR>
</TBODY></TABLE></DIV>
<TABLE id=table7 height=86 cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TR>
<TD height="86">
<DIV align=center>
<form name="formReg" method="post" action="xuanke_save.asp" >
<TABLE cellSpacing=1 borderColorDark=#ffffff cellPadding=0
width="98%" bgColor=#000000 borderColorLight=#000000
border=0>
<TBODY>
<TR bgColor=#f0f0f0 height=32>
<TD align=middle>课程类型</TD>
<TD align=middle>课程<BR>
编号</TD>
<TD align=middle>课程名称</TD>
<TD align=middle>教师</TD>
<TD align=middle>课程简介</TD>
<TD align=middle>上课地点</TD>
<TD align=middle>课程学分</TD>
<TD align=middle>人数限额<BR>
(最多/最少)</TD>
<TD align=middle>已选人数</TD>
<TD align=middle>操作</TD>
</TR>
<%
call CheckLogin()
set RS_KCLB=Server.CreateObject("ADODB.Recordset")
RS_KCLB_SQL="select * from kcfl ORDER BY KCLBID ASC"
RS_KCLB.open RS_KCLB_SQL,conn,1,1
if RS_KCLB.Recordcount<>0 then
do while not RS_KCLB.eof
set RS=Server.CreateObject("ADODB.Recordset")
SQL="select * from 教师表_teacher where kcfl='"&RS_KCLB("KCLBID")&"' ORDER BY ID ASC"
RS.open SQL,conn,1,1
if RS.Recordcount<>0 then
i=1
do while not RS.eof
%>
<%
if i=1 then
%><TR bgColor=#ffffff height=25>
<TD align=middle rowSpan=<%=RS.Recordcount%> ><%=RS_KCLB("KCLB")%></TD>
<TD align=middle><%=rs("kcbh")%></TD>
<TD align=left> <A title=点击这里查看简介
href="kc_show.asp?id=<%=rs("id")%>"
target=_blank><%=rs("kcmc")%> </A></TD>
<TD align=middle><%=rs("zsxm")%></TD>
<TD align=middle><A
href="kc_show.asp?id=<%=rs("id")%>"
target=_blank>查看</A></TD>
<TD align=middle><%=rs("skdd")%></TD>
<TD align=middle><%=rs("kcxf")%></TD>
<TD align=middle><%=rs("xzrs")%></TD>
<TD align=middle><%=rs("yxrs")%><% if rs("sfks")="0" then%>已被取消开设<% end if%></TD>
<TD align=middle><!--<INPUT type=radio value=<%=rs("id")%>
name=kcid>--><A HREF="kc_edit.asp?kid=<%=rs("id")%>" target=_blank title="修改本课程的一些资料"><FONT COLOR="#6600FF">改</FONT></A> ||<A HREF="javascript:delConfirm(<%=rs("id")%>)" title="审核是否开课本课程"><FONT COLOR="#FF0000">审核</FONT></A> ||<A HREF="javascript:delConfirm2(<%=rs("id")%>)" title="删除本课程"><FONT COLOR="#FF0000">删除</FONT></A> </TD></TR>
<%
i=i+1
else
%>
<TR bgColor=#ffffff height=25>
<TD align=middle><%=rs("kcbh")%></TD>
<TD align=left> <A title=点击这里查看简介
href="kc_show.asp?id=<%=rs("id")%>"
target=_blank><%=rs("kcmc")%> </A></TD>
<TD align=middle><%=rs("zsxm")%></TD>
<TD align=middle><A
href="kc_show.asp?id=<%=rs("id")%>"
target=_blank>查看</A></TD>
<TD align=middle><%=rs("skdd")%></TD>
<TD align=middle><%=rs("kcxf")%></TD>
<TD align=middle><%=rs("xzrs")%></TD>
<TD align=middle><%=rs("yxrs")%><% if rs("sfks")="0" then%>已被取消开设<% end if%></TD>
<TD align=middle><!--<INPUT type=radio value=<%=rs("id")%>
name=kcid>--><A HREF="kc_edit.asp?kid=<%=rs("id")%>" target=_blank title="修改本课程的一些资料"><FONT COLOR="#6600FF">改</FONT></A> ||<A HREF="javascript:delConfirm(<%=rs("id")%>)" title="审核是否开课本课程"><FONT COLOR="#FF0000">审核</FONT></A> ||<A HREF="javascript:delConfirm2(<%=rs("id")%>)" title="删除本课程"><FONT COLOR="#FF0000">删除</FONT></A></TR>
<%
end if
i=i+1
rs.movenext
loop
end if
rs.close
set rs=nothing
RS_KCLB.movenext
loop
RS_KCLB.close
set RS_KCLB=nothing
end if
set RS =Server.CreateObject("ADODB.Recordset")
infolist="select * from 学生表_student where SXKC<>'' "
RS.open infolist,conn,1,1
TotalCount=RS.Recordcount
rs.close
set rs=nothing
set RS =Server.CreateObject("ADODB.Recordset")
infolist="select * from 学生表_student "
RS.open infolist,conn,1,1
TotalCounta=RS.Recordcount
rs.close
set rs=nothing
call CloseDatabase()
%>
<TR bgColor=#ffffff height=25>
<TD align=middle colSpan=10><!--<INPUT type=submit value=" 确定选择 " onClick="return chkform1();" name=B1>--><B><%=TotalCounta%></B> </B>名学生中共有<B> <%=TotalCount%> </B>名学生选好课了！</TD>
</TR>
</TBODY>
</TABLE></form>
</DIV></TD>
</TR>
</TABLE>
</TD></TR>
<TR>
<TD background="images/line_2.gif" bgColor=#ffffff
height=12> </TD></TR></TBODY></TABLE>
<!--#include file="dibu.asp"-->
</BODY></HTML>
<SCRIPT LANGUAGE="JavaScript">
<!--
function delConfirm(id){
if (confirm('确定要审核本课程吗？\n\n删除后，选择该课程的所有学生需要重新选择课程！\n\n删除后不可恢复，请慎重！')) {
window.location.href="kc_del.asp?ID="+id;
return true;
}
return;
}
//-->
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
<!--
function delConfirm2(id){
if (confirm('确定要删除本课程吗？\n\n删除后，选择该课程的所有学生需要重新选择课程！\n\n删除后不可恢复，请慎重！')) {
window.location.href="kc_del_last.asp?ID="+id;
return true;
}
return;
}
//-->
</SCRIPT>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -