?? 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 + -