📄 select.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"-->
<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>
<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>已选<BR>
人数</TD>
</TR>
<%
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="http://www.wzms.com/xuanke/show.asp?courseid=1"
target=_blank><%=rs("kcmc")%> </A></TD>
<TD align=middle><%=rs("zsxm")%></TD>
<TD align=middle><A
href="http://www.wzms.com/xuanke/show.asp?courseid=1"
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")%></TD>
</TR>
<%
i=i+1
else
%>
<TR bgColor=#ffffff height=25>
<TD align=middle><%=rs("kcbh")%></TD>
<TD align=left> <A title=点击这里查看简介
href="http://www.wzms.com/xuanke/show.asp?courseid=1"
target=_blank><%=rs("kcmc")%> </A></TD>
<TD align=middle><%=rs("zsxm")%></TD>
<TD align=middle><A
href="http://www.wzms.com/xuanke/show.asp?courseid=1"
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")%></TD>
</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
call CloseDatabase()
%>
<TR bgColor=#ffffff height=25>
<TD align=middle colSpan=9><A
href="http://www.wzms.com/xuanke/select.asp">我要开始选课
>></A></TD>
</TR>
</TBODY>
</TABLE>
</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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -