?? preengage.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);
}
-->ss
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
</head>
<!--#include file="include/is_user.asp" -->
<%
dim preengage
dim rs_course
'dim zy_preengage
'接收表單信息----------------
cno=request("cno")
id=request("csno")
p_zhiyuan=request("zhiyuan")
'禁止直接訪問預約頁面----------
if cno="" or id="" then
preengage=0
response.Redirect("error.asp")
response.End()
end if
%>
<body>
<div align="center">
<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" -->
<%'判斷是否又權限選課---------------
set rs_right=server.CreateObject("adodb.recordset")
sql = "select studentgrade from student where id_no='"&session("id_no")&"'"
rs_right.open sql,xuanke_conn,3,2
aa=rs_right("studentgrade")
'打開課程數據庫---------------
set rs_course=server.CreateObject("adodb.recordset")
sql = "select * from course where cno ='" & request("cno") & "'"
rs_course.open sql,xuanke_conn,3,2
If (rs_course("gradelimit")="" Or IsNull(rs_course("gradelimit"))) Then
else
gradelimit=rs_course("gradelimit")
preArray = split(gradelimit,",")
preif=false
For I=0 to Ubound(preArray)
if cint(preArray(I))=aa Then
preif=True
End If
Next
If preif Then
response.Redirect("error1.asp")
End If
End If
%>
<%
%>
<%
dim rs_preengage
dim rs_preengage_total
Set rs_preengage = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM preengage where p_cno ='" & request("cno") & "'"
sql=sql & "and p_csno="& id
rs_preengage.Open sql,xuanke_conn,3,2
If (rs_preengage.RecordCount = -1) Then
rs_preengage_total=0
rs_preengage.movefirst
While (Not rs_preengage.EOF)
rs_preengage_total = rs_preengage_total + 1
rs_preengage.MoveNext
Wend
else
rs_preengage_total = rs_preengage.RecordCount
End If
%>
<%
set rs_class=server.CreateObject("adodb.recordset")
sql = "select * from class where id ="&id
rs_class.open sql,xuanke_conn,3,2
%>
<%if rs_preengage_total >= rs_class("ClassLimit") then%>
<h3>
<p class="text_error"> 該課題人數已達上限，請選其他的課題！
</h3>
<tr>
<td colspan="7" class="text"><div align="center">[<a href="beginclass.asp">返回</a>]</div></td></tr>
<%else%>
<div align="left">當前有<span class="text_blue"><%=(rs_preengage_total)%></span>位學生選擇該課題</div>
<br>
<form name="form1" method="post" action="chkpre.asp">
<table width="577" border="0" class="table_small">
<tr>
<td colspan="7" background="image/type_bg.gif"> </td>
</tr>
<td colspan="7" class="text_title"><div align="left">
<input name="cno" type="hidden" id="cno" value="<%= cno %>">
課題信息
</div></td>
</tr>
<tr>
<td height="20" colspan="7" class="table_title"> </td>
</tr>
<tr>
<td width="5"> </td>
<td width="120" colspan="1.5" class="text"><div align="left">課題編號：<%= cno %></div></td>
<td width="96" class="text"><div align="left">課題名稱: <%= rs_course("cname") %></div></td>
<%
set rs_class=server.CreateObject("adodb.recordset")
sql = "select * from Class where id ="&id
rs_class.open sql,xuanke_conn,3,2
%>
<td width="97" class="text"><div align="left">指導老師: <%= rs_course("c_tname") %></div></td>
<td width="108" class="text"><div align="left">課時: <%= rs_course("ctime") %></div></td>
</tr>
<td height="20"> </td><td colspan="5"><%
set rs_student=server.CreateObject("adodb.recordset")
sql = "select * from student where id_no ='" & session("id_no") &"'"
rs_student.open sql,xuanke_conn,3,2
%>
<input name="p_id_no" type="hidden" id="p_id_no" value="<%=session("id_no")%>">
<input name="p_zhiyuan" type="hidden" id="p_zhiyuan" value="<%= p_zhiyuan %>">
<input name="p_csno" type="hidden" id="p_csno" value="<%=rs_class("id")%>">
<input name="cday" type="hidden" id="cday" value="<%=rs_class("cday")%>">
<input name="cctime" type="hidden" id="cctime" value="<%=rs_class("cctime")%>">
</td><tr>
<td> </td>
<td colspan="5" rowspan="3" class="text"><div align="left"></div> <div align="center">
<input name="preengage" type="submit" class="button" id="preengage" value="確定">
<input name="back" type="submit" class="button" id="back" onClick="MM_goToURL('parent','beginclass.asp');return document.MM_returnValue" value="放棄">
</div></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><div align="center"></div></td>
</tr>
</table>
</form>
<%End If%>
<br>
<!--#include file="include/foot.asp" -->
<br>
</div></td>
</tr>
</table>
</div>
</div>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -