📄 kc_show.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="top.asp"-->
<%
ID=SafeRequest("id",1)
if ID="" then
%>
<script language="javascript">
<!--
alert("错误参数！");
history.back(-1);
//-->
</script>
<%
response.end
end if
set RS=Server.CreateObject("ADODB.RecordSet")
infolist="select * from 教师表_teacher where id="&id
RS.open infolist,conn,1,1
if rs.eof then
else
%>
<TABLE id=table2 height=303 cellSpacing=0 cellPadding=0 width=770 align=center
border=0>
<TBODY>
<TR>
<TD width=770 background="images/line_1.gif" height=18></TD></TR>
<TR>
<TD vAlign=top bgColor=#ffffff height=271>
<DIV align=center>
<TABLE id=table7 height=49 cellSpacing=0 cellPadding=0 width=770
border=0><TBODY>
<TR>
<TD width=770 colSpan=2>
<P align=center><FONT size=2><B>校本课程《<%=RS("kcmc")%>》
详情</B></FONT></P></TD></TR>
<TR>
<TD width=447 height=25>
<P align=center></P></TD>
<TD width=323 height=25>
<P align=center>[<A
href="kc_show.asp?id=<%=id%>">刷新页面</A>] [<A
onclick=window.close()
href="#">关闭窗口</A>]</P></TD></TR></TBODY></TABLE></DIV>
<DIV align=center>
<TABLE id=table7 height=203 cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD>
<DIV align=center>
<TABLE id=table8
style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 0px; LINE-HEIGHT: 150%"
height=127 cellSpacing=0 borderColorDark=#ffffff cellPadding=0
width=616 borderColorLight=#c0c0c0 border=1>
<TBODY>
<TR>
<TD align=middle width=94>课程名称：</TD>
<TD width=516> <%=RS("kcmc")%> </TD></TR>
<TR>
<TD align=middle width=94>任教教师：</TD>
<TD width=516> <%=RS("zsxm")%></TD>
</TR>
<TR>
<TD align=middle width=94>课程学分：</TD>
<TD width=516> <%=RS("kcxf")%></TD>
</TR>
<TR>
<TD align=middle>开课地点：</TD>
<TD> <%=RS("skdd")%></TD>
</TR>
<TR>
<TD align=middle>评价方式：</TD>
<TD> <%=RS("khfs")%></TD>
</TR>
<TR>
<TD align=middle width=94>总学时数：</TD>
<TD width=516> <%=RS("zxss")%></TD></TR>
<TR>
<TD align=middle width=94>教学方式：</TD>
<TD width=516> <%=RS("jxfs")%></TD></TR>
<TR>
<TD align=middle width=94>其他信息：</TD>
<TD width=516> 该课程最多可以容纳<FONT
color=#ff0000><%=RS("xzrs")%></FONT>人，<!--最少需要<FONT
color=#ff0000>15</FONT>人才可以开班，-->目前已经有<FONT
color=#ff0000><%=RS("yxrs")%></FONT>人选择该课程。</TD></TR>
<TR>
<TD align=middle width=94>爱好特长：</TD>
<TD
style="MARGIN-LEFT: 5px; TEXT-INDENT: 25px; LINE-HEIGHT: 150%; MARGIN-RIGHT: 5px"
width=516>
<P><%=RS("tezhang")%></P></TD></TR>
<TR>
<TR>
<TD align=middle width=94>教学目标：</TD>
<TD
style="MARGIN-LEFT: 5px; TEXT-INDENT: 25px; LINE-HEIGHT: 150%; MARGIN-RIGHT: 5px"
width=516>
<P><%=RS("jxmb")%></P></TD></TR>
<TR>
<TD align=middle width=94>内容摘要：</TD>
<TD
style="MARGIN-LEFT: 5px; TEXT-INDENT: 25px; LINE-HEIGHT: 150%; MARGIN-RIGHT: 5px"
width=516>
<P><%=RS("nrzy")%></P></TD></TR><TR>
<TD align=middle width=94>实施计划：</TD>
<TD
style="MARGIN-LEFT: 5px; TEXT-INDENT: 25px; LINE-HEIGHT: 150%; MARGIN-RIGHT: 5px"
width=516>
<P><%=RS("ssjh")%></P></TD></TR><TR>
<TD align=middle width=94>学生名单：</TD>
<TD
style="MARGIN-LEFT: 2px; TEXT-INDENT: 2px; LINE-HEIGHT: 150%; MARGIN-RIGHT: 2px"
width=516>
<%
set RS12=Server.CreateObject("ADODB.RecordSet")
infolist2="select * from 学生表_student where SXKC='"&id&"' "
RS12.open infolist2,conn,1,3
if RS12.eof then
str="<LI>暂时没有学生选择该课程!</LI>"
response.write str
call CloseDatabase()
else
i=0
do while not rs12.eof
%>
<%if i<>0 and (i mod 5=0) then%><BR><%end if%><%=RS12("rename")%>【<%=RS12("xuehao")%>】、
<%
i=i+1
rs12.movenext
loop
end if
%>
</TD></TR></TBODY></TABLE>
</DIV></TD></TR></TBODY></TABLE></DIV></TD></TR>
<TR>
<TD background="images/line_2.gif" bgColor=#ffffff
height=12> </TD></TR></TBODY></TABLE>
<%
end if
%>
<!--#include file="dibu.asp"-->
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -