📄 select.asp
字号:
<%@ language=VBScript%>
<!--#include file="config.asp"-->
<!--#include file="Session.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from T_Stu where id="&session("id")
rs.open sql,conn,1,3
xh=cstr(session("xhao"))
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%response.write webname%>-----栏目：选报科目</title>
<link rel="stylesheet" href="images/vpei.css">
<body topmargin=10 leftmargin=5>
<%Call top()%><br>
<table width="100%" border="0" align="center" cellspacing="1" cellpadding="4" bgcolor="#000000">
<form method="POST" action="Select.asp?menu=add">
<tr bgcolor=#FFFFFF><td height="24" background='images/cent.gif'> <b>请填写下面您要报的科目，<font color=red>最多可选<%=A_Count%>门</font>，按扭为灰色不可选状态时，则您现在所在年级专业所不可报的选修课！</b></td></tr>
<tr bgcolor=#FFFFFF><td height="10"></td></tr>
<%
Set Rs_Ke=Conn.Execute("Select * from T_Ke Where C_Disp=True order by C_SortNum desc")
do until Rs_Ke.eof
Session("K_Name"&Rs_Ke("C_Id")&"")=Rs_Ke("C_Name")
Response.Write "<tr bgcolor=#FFFFFF><td> <input type=checkbox value="&Rs_Ke("C_Id")&" name=C_KeId"
If instr(Rs_Ke("C_What"),Session("nj"))=0 or Conn.Execute("Select count(C_Id) from [T_Class] Where C_KeId="&Rs_Ke("C_Id")&" ")(0)>=Rs_Ke("C_Count") then Response.write " disabled"
Response.Write " style=""font-family: 宋体; font-size: 9pt; background-color: #FFFFFF; border-style: solid; border-width: 0""> <font color=red>"&Rs_Ke("C_Style")&"</font>("&Rs_Ke("C_Area")&")"&Rs_Ke("C_Name")&Rs_Ke("C_Class")&"-----上课时间："&Rs_Ke("C_Week")&"[从第"&Rs_Ke("C_TWeek")&"周到第"&Rs_Ke("C_PWeek")&"周] 上课地点："&Rs_Ke("C_CRoom")&" 周次："&Rs_Ke("C_CCount")&"周 授课老师："
dim Tea:Tea=0
Set Rs_TeaC=Conn.Execute("Select * from T_TeaC where T_Id in ("&Rs_Ke("C_Teacher")&") order by T_Id")
do until Rs_TeaC.eof
Tea=Tea+1
If Tea>1 Then Response.Write "/"
Response.Write Rs_TeaC("T_Name")
Rs_TeaC.movenext
loop
Rs_TeaC.close
set Rs_TeaC=nothing
Response.Write "<BR> 备注："&Rs_Ke("C_Bei")
Response.Write "<BR> 额定人数：<font color=red>"&Rs_Ke("C_Count")&"</font> 实报人数：<font color=red>"&Conn.Execute("Select count(C_Id) from [T_Class] Where C_KeId="&Rs_Ke("C_Id")&" and C_AddTime > "&SqlNow&"-180 ")(0)&"</font>"
If instr(Rs_Ke("C_What"),Session("nj"))=0 Then
Response.Write " <font color=red>受条件限制不可以报该科目！</font>"
Elseif Conn.Execute("Select count(C_Id) from [T_Class] Where C_KeId="&Rs_Ke("C_Id")&" ")(0)>=Rs_Ke("C_Count") Then
Response.Write " <font color=red>对不起，该专业目前人数已满！</font>"
End If
Response.Write "</td></tr><tr bgcolor=#FFFFFF><td height='10'></td></tr>"
Rs_Ke.movenext
loop
Rs_Ke.close
Set Rs_Ke=nothing
%>
<tr bgcolor=#FFFFFF><td height="24" background='images/cent.gif' align=center><input type="submit" value="确定提交"></td></tr></form>
</table>
<%Call bottom()%>
</body></html>
<%
rs.close
set rs=nothing
%>
<%
If Request("menu")="add" and Request("C_KeId")<>"" and Session("xhao")<>"" Then
XKeMu=Request("C_KeId")
'判断是单选还是多选
If instr(XKeMu,",")<>0 Then
'判断记录条数
dim i:i=0
FZ=int(FZ)
for each FZ in Request("C_KeId")
i=i+1
next
'循环读出记录
for each FZ in Request("C_KeId")
'多选判断条件符合后录入数据库
If i>int(A_Count) or Conn.Execute("Select count(C_Id) from [T_Class] Where C_Xhao='"&Session("xhao")&"' and C_AddTime > "&SqlNow&"-150 and C_Pass=-1")(0)>=int(A_Count) Then
Response.write "<script language='javascript'>alert(""提交失败！\n\n对不起，每人每次最多可选报"&A_Count&"门!"");location.href=""Select.asp"";</script>"
Response.End
End If
If Conn.Execute("Select count(C_Id) from [T_Class] Where C_KeId="&FZ&" ")(0)>=Conn.Execute("Select C_Count from [T_Ke] Where C_Id="&FZ&" ")(0) Then
Response.write"<script language='javascript'>alert(""提交失败！\n\n对不起，该科目人数已满!\n\n请刷新页面后，重新选课!"");location.href=""Select.asp"";</script>"
Response.End
End If
If Conn.Execute("Select count(C_Id) from [T_Class] Where C_KeId="&FZ&" and C_Xhao='"&Session("xhao")&"'")(0)<>0 or Conn.Execute("Select count(C_Id) from [T_Class] Where C_KeName='"&Session("K_Name"&FZ&"")&"' and C_Xhao='"&Session("xhao")&"'")(0)<>0 Then
Response.write"<script language='javascript'>alert(""提交失败！\n\n对不起，该科目已经提交，请勿重复提交！\n\n请返回刷新！"");location.href=""Disp.asp"";</script>"
Response.End
Elseif instr(Conn.Execute("Select C_What from [T_Ke] Where C_Id="&FZ&"")(0),Session("nj"))=0 Then
Response.write"<script language='javascript'>alert(""提交失败！\n\n对不起，受条件限制不可以报该科目！"");location.href=""Select.asp"";</script>"
Response.End
Elseif Conn.Execute("Select count(C_Id) from [T_Class] Where C_KeId="&FZ&" ")(0)>=Conn.Execute("Select C_Count from [T_Ke]")(0) Then
Response.write"<script language='javascript'>alert(""提交失败！\n\n对不起，该科目人数已满!\n\n请刷新页面后，重新选课!"");location.href=""Select.asp"";</script>"
Response.End
End If
Conn.Execute("insert into T_Class (C_KeId,C_KeName,C_Xhao) values ('"&FZ&"','"&Session("K_Name"&FZ&"")&"','"&Session("xhao")&"')")
next
Else
'单选判断条件符合后录入数据库
If Conn.Execute("Select count(C_Id) from [T_Class] Where C_Xhao='"&Session("xhao")&"' and C_AddTime > "&SqlNow&"-150 ")(0)>=int(A_Count) Then
Response.write"<script language='javascript'>alert(""提交失败！\n\n对不起，每人每次最多可选报"&A_Count&"门!"");location.href=""Select.asp"";</script>"
Response.End
End If
If Conn.Execute("Select count(C_Id) from [T_Class] Where C_KeId="&XKeMu&" and C_Xhao='"&Session("xhao")&"'")(0)<>0 or Conn.Execute("Select count(C_Id) from [T_Class] Where C_KeName='"&Session("K_Name"&XKeMu&"")&"' and C_Xhao='"&Session("xhao")&"'")(0)<>0 Then
Response.write"<script language='javascript'>alert(""提交失败！\n\n对不起，该科目已经提交，请勿重复提交！\n\n请返回刷新！"");location.href=""Disp.asp"";</script>"
Response.End
Elseif instr(Conn.Execute("Select C_What from [T_Ke] Where C_Id="&XKeMu&"")(0),Session("nj"))=0 Then
Response.write"<script language='javascript'>alert(""提交失败！\n\n对不起，受条件限制不可以报该科目！"");location.href=""Select.asp"";</script>"
Response.End
Elseif Conn.Execute("Select count(C_Id) from [T_Class] Where C_KeId="&XKeMu&" ")(0)>=Conn.Execute("Select C_Count from [T_Ke] Where C_Id="&XKeMu&"")(0) Then
Response.write"<script language='javascript'>alert(""提交失败！\n\n对不起，该科目人数已满!\n\n请刷新页面后，重新选课!"");location.href=""Select.asp"";</script>"
Response.End
End If
Conn.Execute("insert into [T_Class] (C_KeId,C_KeName,C_Xhao) values ('"&XKeMu&"','"&Session("K_Name"&XKeMu&"")&"','"&Session("xhao")&"')")
End If
Response.write"<script language='javascript'>alert(""提交成功！\n\n进入(查看科目)刷新！\n\n若想更改科目，请先到栏目（已报科目）下取消不想报的科目，再重新选课！"");location.href=""disp.asp"";</script>"
End If
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -