SelectCourseLeft.asp ASP+ACCESS学生排课管理系统毕业设计(源代码+论文) - ASP源码程序

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>