📄 arrangedcourse.asp
字号:
<!--#include file="../include/keepHouse.asp"-->
<html>
<head>
<title><%=WebName%>-排课系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../include/WebCourseSettlementStyle.Css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="../include/header.asp"-->
<%
call insureID()
dim COURSE_ID
dim TEACHER_ID
COURSE_ID=request("COURSE_ID")
TEACHER_ID=request("TEACHER_ID")
COURSE_ID=Trim(request("COURSE_ID"))
TEACHER_ID=Trim(request("TEACHER_ID"))
sql="SELECT * FROM VIEW_Arrange "
if COURSE_ID<>"" or TEACHER_ID<>"" then
if COURSE_ID<>"" then
sql=sql+"WHERE COURSE_ID = '"&COURSE_ID&"' "
end if
if TEACHER_ID<>"" then
if COURSE_ID<>"" then
sql=sql+" AND TEACHER_ID='"&TEACHER_ID&"'"
else
sql=sql+" WHERE TEACHER_ID='"&TEACHER_ID&"'"
end if
end if
End if
call openDB()
'call Debug(sql)
rs.open sql,conn,1,1
if rs.eof or rs.bof then
call noInfo("没有符合条件的查询！")
end if
%>
<table width="750" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#0000dd" bordercolordark="#FFFFFF" bgcolor="#F0F0F0">
<tr valign="top">
<td width="90%">
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#0000dd" bordercolordark="#FFFFFF" bgcolor="#F0F0F0">
<tr align="center" bgcolor=#99CCFF rowspan="2">
<td colspan="7" height="28"><font size='+1' face='黑体'>排课系统</font></td>
</tr>
<tr bgcolor=#99CCFF align="center">
<td rowspan="2" width=76 align="center">课程号</td>
<td width=183>课程名称</td>
<td width=88>考察方式</td>
<td width=56>教师号</td>
<td width=57>学分</td>
<td width=125>上课地点</td>
<td width=70>课程性质</td>
</tr>
<tr bgcolor=#99CCFF align="center">
<td width=183>开课分院</td>
<td width=88>最大选课人数</td>
<td width=56>教师姓名</td>
<td width=57>面向专业</td><td width=125>上课时间</td>
<td width=70>操作</td>
</tr>
<%
sql1="select * from BuildingInfo"
set rs1=server.createobject("ADODB.Recordset")
rs1.open sql1,conn,1,1
if rs1.bof and rs1.eof then
call trigErr()
end if
dim m
m=1
while not rs.eof or err
%>
<tr align="center">
<td rowspan="2" width=76 align="center"><font color="#FF0000"><%=rs("COURSE_ID")%></font></td>
<td width=183><%=rs("COURSE_NAME")%></td>
<td width=88><%=rs("TEST_METHOD")%></td>
<td width=56><%=rs("TEACHER_ID")%></td>
<td width=57><%=rs("SCORE")%> </td>
<td width=125><%=rs("BUILDING_NAME")%><%=rs("CLASSROOM_NAME")%></td>
<td width=70><%=rs("SELECT_LIMIT")%></td>
</tr>
<tr align="center">
<td width=183><%=rs("DEPT_NAME")%></td>
<td width=88><%=rs("SELECTOR_NO_LIMIT")%></td>
<td width=56><%=rs("TEACHER_NAME")%></td>
<td width=57><%=rs("ORIENT_DEPT_ID")%></td>
<td width=125><%=rs("DAY_TIME")%></td>
<td><a href="#" onClick="window.open('AddArrangeCourse.asp?SETTING_ID=<%=rs("SETTING_ID")%>','','scrollbars=yes,resizable=no,width=760,height=150')">
增加</a>
<a href="deleteArrange.asp?ARRANGE_ID=<%=rs("ARRANGE_ID")%>">删除</a>
</tr>
<%
m=m+1
rs1.movefirst
rs.movenext
wend
rs1.close
set rs1=nothing
call closeDB()
%>
</table>
</td>
</tr>
</table>
<%
server.Execute("formQueryCourseArrange.asp")
%>
<!--#include file="../include/footer.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -