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

📄 cancel.asp

📁 学生可根据自己喜欢的课程进行选课
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="xuanke.asp" -->
<!--#include file="include/exit.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 preengage_id,rs_cancel,rs_course

preengage_id=request("preengage_id")
if preengage_id="" or  session("id_no")="" then
	response.Redirect("error.asp")
	response.End()
end if
'打开预约数据库-----------------
set rs_cancel=server.CreateObject("adodb.recordset")
sql = "select * from preengage where preengage_id=" & preengage_id 
sql = sql & "and p_id_no = '" & session("id_no") & "'"
rs_cancel.open sql,xuanke_conn,3,2

if rs_cancel.eof or rs_cancel.bof then 
	response.Redirect("error.asp")
	response.End()
end if

set rs_course=server.CreateObject("adodb.recordset")
sql = "select * from course where cno='" & rs_cancel("p_cno")&"'"
rs_course.open sql,xuanke_conn,3,2
%>

<body>
<div align="center">
  <table width="706"  border="0" class="table_big">
    <tr>
      <td valign="top"><div align="center">
	  <!--#include file="include/head.asp" -->
	  <br>
          <form name="form1" method="post" action="chkcancel.asp">
            <table width="472" border="0" class="table_small">
              <tr>
                <td colspan="6" background="image/type_bg.gif">&nbsp;</td>
              </tr>
              <tr>
                <td colspan="6" class="text_title"><div align="left">您要取消已选入的课程:</div></td>
              </tr>
              <tr>
                <td colspan="6" class="table_title">&nbsp;</td>
              </tr>
              <tr class="text_title">
                <td width="101"><div align="left">课程编号</div></td>
                <td width="72"><div align="left">课程名称</div></td>
                <td width="64"><div align="left">班级</div></td>
                <td width="104"><div align="left">任课老师</div></td>
                <td width="105"><div align="left">课时</div></td>
              </tr>
              <tr class="text">
                <td><div align="left"><%= rs_course("cno") %></div></td>
                <td><div align="left"><%= rs_course("cname") %></div></td>
				<%
				set rs_class=server.CreateObject("adodb.recordset")
sql = "select * from class where id="& rs_cancel("p_csno")
rs_class.open sql,xuanke_conn,3,2
				%>
                <td><div align="left"><%=rs_class("classdesc")%></div></td>
                <td><div align="left"><%= rs_course("c_tname")%></div></td>
                <td><div align="left"><%= rs_course("ctime") %></div></td>
              </tr>
              <tr>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
                <td colspan="2">&nbsp;</td>
              </tr>
              <tr>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
                <td><input name="cancel" type="submit" class="button_" id="cancel" value="取消预约"></td>
                <td><div align="left"></div></td>
<td colspan="2"><input name="preengage_id" type="hidden" id="preengage_id" value="<%= preengage_id %>"></td>
              </tr>
              <tr>
                <td colspan="6">&nbsp;</td>
              </tr>
            </table>
          </form>
          <!--#include file="include/foot.asp" -->
		  <br>
      </div></td>
    </tr>
  </table>
</div>
</body>
</html>

⌨️ 快捷键说明

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