⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 mine.asp

📁 学生可根据自己喜欢的课程进行选课
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="xuanke.asp" -->
<!--#include file="include/exit.asp" -->
<!--#include file="include/is_user.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>我的预选</title>
<style type="text/css">
<!--
@import url("style.css");
body {
	background-image: url(image/back.jpg);
}
-->
</style>
</head>
<%
dim rs_preengage,rs_ground,rs_student

'打开预约数据库----------------
set rs_preengage=server.CreateObject("adodb.recordset")
sql = "select * from preengage where p_id_no='" & session("id_no") & "'"
rs_preengage.open sql,xuanke_conn,3,2
%>
<body bgcolor="#FFFFCC">

<div align="center">
  <table width="706" height="281" border="0" class="table_big">
    <tr>
      <td valign="top"><div align="center">
		  <!--#include file="include/head.asp" -->
          <br>
          <table width="605" border="0" class="table_small">
            <tr>
              <td colspan="9">&nbsp;</td>
            </tr>
            <tr>
              <td colspan="9" class="text_title"><div align="left">我的已选入课题的信息</div></td>
            </tr>
            <tr>
              <td colspan="9" class="table_title">&nbsp;</td>
            </tr>
			<% If rs_preengage.eof or rs_preengage.bof Then %>
            <tr>
              <td height="18" colspan="9" class="text"><div align="left">您还没有进行任何预选!</div></td>
            </tr>
			<% Else %>			
            <tr class="text">
              <td width="111" height="15"><div align="left">课题编号</div></td>
              <td width="80"><div align="left">课题名称</div></td>
            
              <td width="92"><div align="left">指导老师</div></td>
              <td width="62"><div align="left">课时</div></td>
              <td width="66">志愿</td>
              <td width="89">操作</td>
            </tr>
			<%
				rs_preengage.movefirst
				while (not rs_preengage.eof)
				set rs_course=server.CreateObject("adodb.recordset")
				sql = "select * from course where cno='" & rs_preengage("p_cno")&"'"
				rs_course.open sql,xuanke_conn,3,2
			%>
            <tr class="text">
              <td><div align="left"><%= rs_course("cno") %></div></td>
              <td><div align="left"><a href="coursemessage.asp?cno=<%= rs_course("cno")%>"><%= rs_course("cname") %></a></div></td>
			  <%
			  set rs_class=server.CreateObject("adodb.recordset")
sql = "select * from class where id=" & rs_preengage("p_csno")
rs_class.open sql,xuanke_conn,3,2
			  %>
         
              <td><div align="left"><%= rs_course("c_tname") %></div></td>
              <td><div align="left"><%= rs_course("ctime") %></div></td>
              
              <%if rs_preengage("p_zhiyuan")=1 then
			      s="第一志愿"
				  end if
				  if rs_preengage("p_zhiyuan")=2 then
				  s="第二志愿"
				  end if 
				   if rs_preengage("p_zhiyuan")=3 then  
				   s="第三志愿"
				   end if
			  %>
			  
              <td><div align="left"><%=s%></div></td>
			  
			 
              
			
			
           
			
			  
              <td>
			 
			  <a href="cancel.asp?preengage_id=<%= rs_preengage("preengage_id")%>">取消预选</a>			  </td>
            </tr>
			<%
				rs_preengage.movenext
				wend
			%>
			<% End If %>
            <tr>
              <td colspan="9">&nbsp;</td>
            </tr>
            <tr>
              <td colspan="9" class="text"><div align="center">[<a href="index.asp">返回首页</a>]</div></td>
            </tr>
            <tr>
              <td colspan="9">&nbsp;</td>
            </tr>
          </table>
          <br>
          <!--#include file="include/foot.asp" -->
		  <br>
      </div></td>
    </tr>
  </table>
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -