www.gusucode.com > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文) > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文)\ASP+SQL学生排课管理系统\SelectCourse\SelectCourseLeft.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 leftmargin="0" topmargin="0" bgcolor=#F5F5F5> <% call insureID() '该页面只有学生可以查看 if Session("USER_TYPE")<>"Student" and Session("USER_TYPE")<>"Admin" then response.end end if sql="select ARRANGE_ID,COURSE_ID,COURSE_NAME,TEACHER_NAME from VIEW_Select where STUDENT_ID='"&Session("USER_NAME")&"'" 'call Debug(sql) call openDB() rs.open sql,conn,1,1 '记录集空,表明该学生还没有选课 if rs.eof and rs.bof then response.Write "<br><br><div align=center>您暂时还没有选课</div>" response.End end if %> <br><br> <table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#0000dd" bordercolordark="#FFFFFF" bgcolor="#F0F0F0"> <tr bgcolor=#99CCFF> <td colspan="5" height="28"><div align="center"><font size='+1' face='黑体'>你的选课表</font></div></td> </tr> <% dim i i=1 while not rs.eof %> <tr> <td width="8%"><%=i%></td> <td width="14%"><%=rs("COURSE_ID")%></td> <td width="38%"><%=rs("COURSE_NAME")%></td> <td width="28%"><%=rs("TEACHER_NAME")%></td> '提供退课功能: <td width="12%"><a href="saveCancle.asp?ARRANGE_ID=<%=rs("ARRANGE_ID")%>">退课</a></td> </tr> <% i=i+1 rs.movenext wend call closeDB() %> </table> </body> </html>