gusucode.com > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文) > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文)\ASP+SQL学生排课管理系统\SelectCourse\AnswerQuerySelectT.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"-->
<%
dim COURSE_ID,TEACHER_ID
COURSE_ID=trim(request("COURSE_ID"))
TEACHER_ID=trim(request("TEACHER_ID"))
sql="select STUDENT_ID,STUDENT_NAME,COURSE_NAME,TEACHER_NAME from VIEW_Select where "
if COURSE_ID="" and TEACHER_ID="" then
	call trigErr()
end if
if COURSE_ID<>"" then
	sql=sql+"COURSE_ID='"&COURSE_ID&"' "
end if
if TEACHER_ID<>"" then
	if COURSE_ID<>"" then
		sql=sql+"and TEACHER_ID='"&TEACHER_ID&"' "
	else
		sql=sql+"TEACHER_ID='"&TEACHER_ID&"' "
	end if
end if
call openDB()
rs.open sql,conn,1,1
if rs.eof and rs.bof then
	response.Write "该门课程可能暂时没有选"
	response.End
end if
%>
<table width="750" border="1" align="center" cellpadding="0" cellspacing="0" 
bordercolorlight="#0000dd" bordercolordark="#FFFFFF"><tr bgcolor="#99CCFF"> 
<td colspan="3" height="28"><div align="center"><font size="+1" face="黑体">选择
<font color="#FF0000"><%=rs("TEACHER_NAME")%></font>老师的<font color="#FF0000">
<%=rs("COURSE_NAME")%></font>课程的同学名单如下</font></div></td>
</tr>
<tr bgcolor="#F0F0F0"> 
<td width="27%">序号</td>
<td width="45%">学号</td>
<td width="28%">姓名</td>
</tr>
<%
dim i
i=1
while not rs.eof	
	%>
	<tr bgcolor="#F0F0F0"> 
	<td><%=i%></td>
	<td><%=rs("STUDENT_ID")%></td>
	<td><%=rs("STUDENT_NAME")%></td>
	</tr>
	<%
	rs.movenext
	i=i+1
wend
%>
</table>
<!--#include file="../include/footer.asp"-->
</body>
</html>