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>