📄 kemu.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="Session.asp"-->
<%
If Request("menu")="del" Then
Conn.Execute("Delete * From [T_Ke] Where C_Id="&Request("id")&"")
Conn.Execute("Delete * From [T_Class] Where C_KeId="&Request("id")&"")
End If
If Request("menu")="disp" Then
Conn.Execute("Update [T_Ke] set C_Disp=True where C_Id="&int(Request("id"))&" ")
End If
If Request("menu")="undisp" Then
Conn.Execute("Update [T_Ke] set C_Disp=False where C_Id="&int(Request("id"))&" ")
End If
If Request("menu")="lanmu" Then
If Request("id")="" Then
Session("X_C_Bei")=Request("X_C_Bei")
Conn.Execute("Insert into [T_Ke] (C_Area,C_Style,C_Name,C_Class,C_Week,C_TWeek,C_PWeek,C_CRoom,C_CCount,C_Count,C_Teacher,C_What,C_Bei,C_SortNum) values ('"&Request("X_C_Area")&"','"&Request("X_C_Style")&"','"&Request("X_C_Name")&"','"&Request("X_C_Class")&"','"&Request("X_C_Week")&"','"&Request("X_C_TWeek")&"','"&Request("X_C_PWeek")&"','"&Request("X_C_CRoom")&"',"&int(Request("X_C_CCount"))&","&int(Request("X_C_Count"))&",'"&Request("X_C_Teacher")&"','"&Request("X_C_What")&"','"&Request("X_C_Bei")&"','"&Request("X_C_SortNum")&"')")
Else
Session("X_C_Bei")=Request("X_C_Bei")
Conn.Execute("Update [T_Ke] set C_Area='"&Request("X_C_Area")&"',C_Style='"&Request("X_C_Style")&"',C_Name='"&Request("X_C_Name")&"',C_Class='"&Request("X_C_Class")&"',C_Week='"&Request("X_C_Week")&"',C_TWeek='"&Request("X_C_TWeek")&"',C_PWeek='"&Request("X_C_PWeek")&"',C_CRoom='"&Request("X_C_CRoom")&"',C_CCount="&int(Request("X_C_CCount"))&",C_Count="&int(Request("X_C_Count"))&",C_Teacher='"&Request("X_C_Teacher")&"',C_What='"&Request("X_C_What")&"',C_Bei='"&Request("X_C_Bei")&"',C_SortNum="&Request("X_C_SortNum")&" where C_Id="&int(Request("id"))&" ")
End If
End If
%>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%response.write webname%>-----栏目：科目管理中心</title>
<link rel="stylesheet" href="images/vpei.css">
<script>
function checkclick(msg){if(confirm(msg)){event.returnValue=true;}else{event.returnValue=false;}}
</script>
<body topmargin=10 leftmargin=5>
<% Call top() %>
<center><br>
<table width="100%" cellspacing="1" cellpadding="2" bgcolor="#000000" align="center"><Form method=POST Action="KeMu.asp?menu=lanmu&id=<%=Request("id")%>">
<%
X_C_Bei=Session("X_C_Bei")
If Request("id")<>"" and Request("menu")="" Then
Set Rs_Edit=Conn.Execute("Select * From T_Ke Where C_Id="&Request("id")&"")
X_C_Area=Rs_Edit("C_Area")
X_C_Name=Rs_Edit("C_Name")
X_C_Class=Rs_Edit("C_Class")
X_C_Week=Rs_Edit("C_Week")
X_C_TWeek=Rs_Edit("C_TWeek")
X_C_PWeek=Rs_Edit("C_PWeek")
X_C_CRoom=Rs_Edit("C_CRoom")
X_C_CCount=Rs_Edit("C_CCount")
X_C_Count=Rs_Edit("C_Count")
X_C_Style=Rs_Edit("C_Style")
X_C_Teacher=Rs_Edit("C_Teacher")
X_C_What=Rs_Edit("C_What")
X_C_Bei=Rs_Edit("C_Bei")
X_C_SortNum=Rs_Edit("C_SortNum")
End If
%>
<tr bgcolor=#FFFFFF><td background=images/cent.gif align=left colspan=3 height=25> <B>选修课资料录入</B></td></tr>
<tr bgcolor=#FFFFFF><td align=left colspan=3> 校区：<select name="X_C_Area">
<option value=本部<%If X_C_Area="本部" Then Response.Write " Selected"%>>本部</option>
<option value=南区<%If X_C_Area="南区" Then Response.Write " Selected"%>>南区</option>
<option value=公寓<%If X_C_Area="公寓" Then Response.Write " Selected"%>>公寓</option>
</select>
名称：<input type="text" name="X_C_Name" size=7 value=<%=X_C_Name%>>
时间：<input type="text" name="X_C_Week" size=7 value=<%=X_C_Week%>>
教室：<input type="text" name="X_C_CRoom" size=7 value=<%=X_C_CRoom%>>
始周：第<input type="text" name="X_C_TWeek" size=3 value=<%=X_C_TWeek%>>周
止周：第<input type="text" name="X_C_PWeek" size=3 value=<%=X_C_PWeek%>>周
周次：<input type="text" name="X_C_CCount" size=7 value=<%=X_C_CCount%>>
人数：<input type="text" name="X_C_Count" size=7 value=<%=X_C_Count%>>
</td></tr>
<tr bgcolor=#FFFFFF><td align=left colspan=3> 类型：<select name="X_C_Style">
<option value=选修<%If X_C_Style="选修" Then Response.Write " Selected"%>>选修</option>
<option value=辅修<%If X_C_Style="辅修" Then Response.Write " Selected"%>>辅修</option>
</select>
小班：<select name="X_C_Class">
<option value='一班'<%If X_C_Class="一班" Then Response.Write " Selected"%>>一 班</option>
<option value='二班'<%If X_C_Class="二班" Then Response.Write " Selected"%>>二 班</option>
<option value='三班'<%If X_C_Class="三班" Then Response.Write " Selected"%>>三 班</option>
<option value='四班'<%If X_C_Class="四班" Then Response.Write " Selected"%>>四 班</option>
<option value='五班'<%If X_C_Class="五班" Then Response.Write " Selected"%>>五 班</option>
<option value='六班'<%If X_C_Class="六班" Then Response.Write " Selected"%>>六 班</option>
</select>
条件：<%
dim X_W:X_W=1
Do until X_W=XX_A_ZGXZ+1
Response.Write "<input type=checkbox value="&X_W&" name=X_C_What"
If instr(X_C_What,X_W)<>0 Then Response.Write " Checked"
Response.Write " style=""font-family: 宋体; font-size: 9pt; background-color: #FFFFFF; border-style: solid; border-width: 0"">大"&Replace(Replace(Replace(Replace(Replace(Replace(Replace(X_W,"1","一"),"2","二"),"3","三"),"4","四"),"5","五"),"6","六"),"7","七")&" "
X_W=X_W+1
Loop
%>
排序：<input type="text" name="X_C_SortNum"
<%
If X_C_SortNum="" Then
Response.Write "value=0"
Else
Response.Write "value="&X_C_SortNum
End If
%> size=2 maxlength=3 onkeyup=if(isNaN(this.value))this.value='0'>
</td></tr>
<tr bgcolor=#FFFFFF><td align=left colspan=3><BR> 授课老师：<%
Set Rs_TeaC=Conn.Execute("Select * from T_TeaC order by T_Id")
do until Rs_TeaC.eof
Response.Write "<input type=checkbox value="&Rs_TeaC("T_Id")&" name=X_C_Teacher"
If instr(X_C_Teacher,Rs_TeaC("T_Id"))<>0 Then Response.Write " Checked"
Response.Write " style=""font-family: 宋体; font-size: 9pt; background-color: #FFFFFF; border-style: solid; border-width: 0"">"&Rs_TeaC("T_Name")&" "
Rs_TeaC.movenext
loop
Rs_TeaC.close
set Rs_TeaC=nothing
%><BR><BR>
</td></tr>
<tr bgcolor=#FFFFFF><td align=left colspan=3 valign="top"> 备注：<textarea type="text" name="X_C_Bei" rows="2" cols="90" class="area"><%=X_C_Bei%></textarea>
</td></tr>
<tr bgcolor=#FFFFFF><td align=left colspan=3 height=25> <INPUT type=submit value=录入数据></td></tr></FORM>
<tr bgcolor=#FFFFFF><td colspan=3 align=left height=10> </td></tr>
<tr bgcolor=#FFFFFF><td colspan=3 background=images/cent.gif align=left height=25> <b>下面为当前可以选修的学科</b></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
Response.Write "<tr bgcolor=#FFFFFF><td><BR><a href=KeMu.asp?id="&Rs_Ke("C_Id")&"><font color=red>修改</font></a><a href=KeMu.asp?menu=undisp&id="&Rs_Ke("C_Id")&"><font color=green>隐藏</font></a> 额定人数："&Rs_Ke("C_Count")
Response.Write " "&Rs_Ke("C_Style")&"("&Rs_Ke("C_Area")&")<font color=red>"&Rs_Ke("C_Name")&Rs_Ke("C_Class")&"</font>---上课时间："&Rs_Ke("C_Week")&"[从第"&Rs_Ke("C_TWeek")&"周到第"&Rs_Ke("C_PWeek")&"周] 上课地点："&Rs_Ke("C_CRoom")
Response.Write "<BR><BR> 实报人数："&Conn.Execute("Select count(C_Id) from [T_Class] Where C_KeId="&Rs_Ke("C_Id")&" ")(0)&" 周次："&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 " 选修条件："
X_W_0=1
Do until X_W_0=XX_A_ZGXZ+1
If instr(Rs_Ke("C_What"),X_W_0)<>0 Then
Response.Write "大"&Replace(Replace(Replace(Replace(Replace(Replace(Replace(X_W_0,"1","一"),"2","二"),"3","三"),"4","四"),"5","五"),"6","六"),"7","七")&" "
End If
X_W_0=X_W_0+1
Loop
If Rs_Ke("C_Bei")<>"none" or Rs_Ke("C_Bei")<>"" Then
Response.Write "<BR><BR> 备注："&Rs_Ke("C_Bei")
End If
' Response.Write "<BR><BR>查看打印 "
' dim i_0:i_0=0
' do until i_0=XX_A_ZGXZ
' Response.Write "<a href=Print.asp?Ke_Id="&Rs_Ke("C_Id")&"&X_Year="&DatePart("yyyy",now())-i_0&"&XQ=上 target=_blank><font color=red>"&DatePart("yyyy",now())-i_0&"上</font></a> "
' Response.Write "<a href=Print.asp?Ke_Id="&Rs_Ke("C_Id")&"&X_Year="&DatePart("yyyy",now())-i_0&"&XQ=下 target=_blank><font color=green>"&DatePart("yyyy",now())-i_0&"下</font></a> "
' i_0=i_0+1
' loop
Response.Write "<BR><BR></td></tr>"
Rs_Ke.movenext
loop
Rs_Ke.close
Set Rs_Ke=nothing
%>
<tr bgcolor=#FFFFFF><td colspan=3 align=left> </td></tr>
<tr bgcolor=#FFFFFF><td colspan=3 background=images/cent.gif align=left height=25> <b>下面为当前不可以选修的学科</b></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
Response.Write "<tr bgcolor=#FFFFFF><td><BR><a href=KeMu.asp?menu=disp&id="&Rs_Ke("C_Id")&"><font color=green>显示</font></a><a onclick=checkclick('您确定要删除该专业的所有资料！') href=KeMu.asp?menu=del&id="&Rs_Ke("C_Id")&"><font color=red>删除</font></a> 额定人数："&Rs_Ke("C_Count")
Response.Write " "&Rs_Ke("C_Style")&"("&Rs_Ke("C_Area")&")<font color=red>"&Rs_Ke("C_Name")&Rs_Ke("C_Class")&"</font>---上课时间："&Rs_Ke("C_Week")&" 上课地点："&Rs_Ke("C_CRoom")
Response.Write "<BR> 实报人数："&Conn.Execute("Select count(C_Id) from [T_Class] Where C_KeId="&Rs_Ke("C_Id")&" ")(0)&" 周次："&Rs_Ke("C_CCount")&"周 授课老师："
dim Tea_0:Tea_0=0
Set Rs_TeaC_0=Conn.Execute("Select * from T_TeaC where T_Id in ("&Rs_Ke("C_Teacher")&") order by T_Id")
do until Rs_TeaC_0.eof
Tea_0=Tea_0+1
If Tea_0>1 Then Response.Write "/"
Response.Write Rs_TeaC_0("T_Name")
Rs_TeaC_0.movenext
loop
Rs_TeaC_0.close
set Rs_TeaC_0=nothing
Response.Write " 选修条件："
X_W_1=1
Do until X_W_1=XX_A_ZGXZ+1
If instr(Rs_Ke("C_What"),X_W_1)<>0 Then
Response.Write "大"&Replace(Replace(Replace(Replace(Replace(Replace(Replace(X_W_1,"1","一"),"2","二"),"3","三"),"4","四"),"5","五"),"6","六"),"7","七")&" "
End If
X_W_1=X_W_1+1
Loop
If Rs_Ke("C_Bei")<>"none" or Rs_Ke("C_Bei")<>"" Then
Response.Write "<BR> 备注："&Rs_Ke("C_Bei")
End If
Response.Write "<BR><BR></td></tr>"
Rs_Ke.movenext
loop
Rs_Ke.close
Set Rs_Ke=nothing
%>
<tr bgcolor=#FFFFFF><td> </td></tr>
<tr bgcolor=#FFFFFF><td background='images/cent.gif' align=center height=25> </td></tr>
</table>
<% Call bottom() %>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -