📄 admin_couarr_inc.asp
字号:
<%
dimarr "weeksinfo"
'****************************************************
'名称:nowmenu
'功能:管理快捷菜单
'****************************************************
Sub nowmenu()
res "<h4><b>相关操作：</b>",1
res "<a href=""admin_couarr.asp?action=manager"">课表信息查看</a> | ",1
res "<a href=""admin_couarr.asp?action=list"">排课自动生成</a> | ",1
res "<a href=""admin_couarr_plan.asp?action=list"">教学计划安排</a> | ",1
res "<a href=""admin_couarr_dis.asp?action=list"">班级课程分布</a> | ",1
res "<a href=""admin_couarr_addr.asp?action=list"">场地列表管理</a>（<a href=""?action=add"">添加</a>）",1
res "</h4>",1
res "<div style=""height:3px;width:100%;background: #fff;""></div>",1
End Sub
'====================================课表生成=================================================================
'****************************************************
'名称:all_listinfos
'功能:列表
'****************************************************
Sub all_listinfos()
%>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
<form method=post action="?action=Gener">
<TR><TD class="zq" colspan=2><b>课表自动生成</b>
</td>
</tr>
<TR><TD class="zq" width="20%"><%=nows(0)%>、<%=nows(1)%></TD>
<TD> <SELECT NAME="<%=nowlm(0)%>" style="width:97px;" onchange=""><%=my_sqlsel(lj_id,"lj")%></SELECT>
<SELECT NAME="<%=nowlm(1)%>" style="width:97px;" onchange=""><%=sem_select(0)%></SELECT>
<span id="<%=nowlm(0)%>_txt"> 选择要生成课表年届和学期</span><span id="<%=nowlm(1)%>_txt"></span><BR>
</td>
</tr>
<TR><TD class="zq" width="20%"> </TD>
<TD> <input type="submit" value="确认生成"></td>
</tr>
</form>
</TABLE>
<%
End Sub
'====================================教学场地=================================================================
'****************************************************
'名称:addr_listinfos
'功能:列表
'****************************************************
Sub addr_listinfos()
%>
<table width="100%" cellspacing="0" cellpadding="0" class="info_tab2">
<tr>
<th width="5%" style="text-align:center;text-indent: 4px;">选</th>
<th width="30%">名称</th>
<th width="65%">说明</th>
<th></th>
</tr>
<%
sql="select id,addr,con from couarr_addr "&Sql_Condition&" order by id desc"
strFileName="?action="&action&"&types="&types&"&keyword="&keyword
colnum="4"
formaction="?action=del"
sqllist sql,colnum,strFileName,formaction
If outcom=True Then
addr_showContent
showdelpages
End If
%>
</table>
<%
End Sub
'****************************************************
'名称:addr_showContent
'功能:翻页列表输出
'****************************************************
sub addr_showContent
dim i
i=0
do while not rs.eof
%>
<tr>
<td align="center">
<input name='id' type='checkbox' class="chek" onclick="unselectall()" id="ArticleID" value='<%=Rs(0)%>' style=" border: 0px">
</td>
<td> <A HREF="?action=edit&id=<%=Rs(0)%>"><%=Rs(1)%></A></td>
<td> <%=Rs(2)%></td>
<TD></TD>
</tr>
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop%>
<%
end Sub
'****************************************************
'名称:addr_jstable
'功能:接收表单提交过来的值
'****************************************************
Sub addr_jstable()
addr = che(request.form("addr"))
con = che(request.form("con"))
End Sub
'****************************************************
'名称:addr_sqltable
'功能:将值提交入库
'参数:types 为空或 "add" 判断是修改记录还是添加记录
'****************************************************
Sub addr_sqltable(types)
rs("addr") = addr
rs("con") = con
End Sub
'****************************************************
'名称:addr_addinfos
'功能:批量添加信息
'****************************************************
Sub addr_addinfos()
%>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
<FORM METHOD=POST ACTION="?action=save">
<%For i=0 To UBound(nows)
response.write "<TR><TD class=""zq"" width=""20%"">"&nows(i)&"</TD><TD> "
response.write "<INPUT TYPE=""text"" NAME="""&nowlm(i)&""">"
response.write "</TD></TR>"
Next
%>
<TR>
<TD> </TD>
<TD> <INPUT TYPE="submit" value="确认添加"></TD>
</TR>
</FORM>
</TABLE>
<%
end Sub
'****************************************************
'名称:addr_editinfos
'功能:编辑信息
'****************************************************
Sub addr_editinfos()
Sql_Lists="addr,con"
Sql_tables="couarr_addr"
Sql_Conditions=" ID = "&id
sql=Sqlinfo(Sql_Lists,Sql_tables,Sql_Conditions,Sql_Sortings,Sql_Orders,Sql_Additional)
rs_edit = connopen(sql)
%>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
<FORM METHOD=POST ACTION="?action=mod">
<%
If isArray(rs_edit) Then
For i=0 To UBound(nows)
response.write "<TR><TD class=""zq"" width=""20%"">"&nows(i)&"</TD><TD> "
response.write "<INPUT TYPE="""
response.write "text"
response.write """ NAME="""&nowlm(i)&""" value="""&rs_edit(i,0)&""">"
response.write "</TD></TR>"
Next
Else
errormsg "参数错误"
End If
%>
<TR>
<TD> </TD>
<TD> <INPUT TYPE="submit" value="确认修改"><INPUT TYPE="hidden" NAME="id" value="<%=id%>"></TD>
</TR>
</FORM>
</TABLE>
<%
end Sub
'====================================教学计划=================================================================
Dim rs_plan
Dim rs_plan_i
Dim arr_couinfo
Dim couinfo_i
'****************************************************
'名称:plan_listinfos
'功能:列表
'****************************************************
Sub plan_listinfos()
%>
<style type="text/css">
.couarr_iframe th{text-align:center;padding:0px;text-indent: 0;}
</style>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
<TR><TD class="zq" width="20%"><%=nows(0)%>、<%=nows(1)%></TD>
<TD> <SELECT NAME="<%=nowlm(0)%>" style="width:97px;" onchange="checkalls('lj','plan');"><%=my_sqlsel(lj_id,"lj")%></SELECT>
<SELECT NAME="<%=nowlm(1)%>" style="width:97px;" onchange="checkplaninfo();"><%=sem_select(0)%></SELECT>
<span id="<%=nowlm(0)%>_txt">第一步，选择年届和学期</span><span id="<%=nowlm(1)%>_txt"></span><BR>
</td>
</tr>
<TR><TD class="zq" width="20%"><%=nows(2)%></TD>
<TD> <SELECT NAME="<%=nowlm(2)%>" style="width:200px;" onchange="checkalls('Col','plan');"><%=my_sqlsel(Col_id,"Col")%></SELECT>
<span id="<%=nowlm(2)%>_txt">第二步，选择所在系所，将自动刷新相应专业</span><BR>
</td>
</tr>
<TR><TD class="zq" width="20%"><%=nows(3)%></TD>
<TD> <SELECT NAME="<%=nowlm(3)%>" style="width:200px;" onchange="checkalls('pro','plan');"><option>请选择...</option></SELECT>
<span id="<%=nowlm(3)%>_txt">第三步，选择相应专业，选择后将自动刷新相应班级与课程</span><BR>
</td>
</tr>
<TR><TD class="zq" width="20%"><%=nows(4)%></TD>
<TD> <SELECT NAME="<%=nowlm(4)%>" style="width:200px;" onchange="checkplaninfo();"><option value="0" selected>请选择...</option></SELECT>
<span id="<%=nowlm(4)%>_txt">第四步，选择班级</span><BR>
</td>
</tr>
</TABLE>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
<tr id="add_0" style="">
<td width="20%" class="art_tit" style="text-align:center;">教学计划</td>
<td width="80%" style="padding:0;" valign=top>
<table cellspacing="1" cellpadding="0" class="info_tab2 couarr_iframe" style="float:left;margin:0;width:635px;">
<tr>
<th style="width:30px;text-align:center;text-indent: 4px;">
<input name='checkalls' type='checkbox' class="chek" onclick="plan_unselectall()" id="checkalls" value='0' style=" border: 0px"> </th>
<th style="width:130px;text-align:left;text-indent: 10px;">课程</th>
<th style="width:80px;text-align:left;text-indent: 10px;">课任教师</th>
<th style="width:120px;text-align:left;text-indent: 10px;">教学场地</th>
<th style="width:40px;">早自习 课时</th>
<th style="width:40px;">上午<br>课时</th>
<th style="width:40px;">下午<br>课时</th>
<th style="width:40px;">晚自习课时</th>
<th style="width:80px;">操作</th>
<th style="width:15px;"> </th>
</tr>
</table>
<iframe name="planinfo" id="planinfo" frameborder="0" scrolling="yes" style="clear:left;width:635px;height:195px;padding:0;marign:0;" src="admin_couarr_iframe.asp?action=list">
浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。</iframe>
<div id="Totals"> </div>
</td>
</tr>
<tr>
<td class="zq" width="20%">当前操作</td>
<td> <a href="#" onclick="showinfo_add();">添加新教学计划</a> |
<a href="#" onclick="showinfo_edit();">修改选定计划</a> |
<a href="#" onclick="checkdel()">删除选定计划</a>
</td>
</tr>
<tr id="add_1" style="display: none;">
<td class="zq"><%=nows(5)%></td>
<td> <SELECT NAME="<%=nowlm(5)%>" style="width:200px;"><option>请选择...</option></SELECT>
<span id="<%=nowlm(5)%>_txt"></span><BR></td>
</tr>
<tr id="add_2" style="display: none;">
<td class="zq"><%=nows(6)%></td>
<td> <SELECT NAME="<%=nowlm(6)%>" style="width:200px;"><%=my_sqlsel(0,"tea_name")%></SELECT>
<span id="<%=nowlm(6)%>_txt"></span><BR></td>
</tr>
<tr id="add_3" style="display: none;">
<td class="zq"><%=nows(7)%></td>
<td> <SELECT NAME="<%=nowlm(7)%>" style="width:200px;"><%=my_sqlsel(0,"addr")%></SELECT>
<span id="<%=nowlm(7)%>_txt"></span><BR></td>
</tr>
<tr id="add_4" style="display: none;">
<td class="zq"><%=nows(8)%></td>
<td>
<table style="width:40%;border:1px solid #ccc;">
<tr>
<td style="width:25%;text-align:center;">早自习<br>(0-7)</td>
<td style="width:25%;text-align:center;">上午<br>(0-28)</td>
<td style="width:25%;text-align:center;">下午<br>(0-28)</td>
<td style="width:25%;border-right:0;text-align:center;">晚自习<br>(0-28)</td>
</tr>
<tr>
<td style="border-bottom:0;text-align:center;"><input type="text" name="<%=nowlm(8)%>" style="width:80%;text-align:center;" value="0"></td>
<td style="border-bottom:0;text-align:center;"><input type="text" name="<%=nowlm(8)%>" style="width:80%;text-align:center;" value="0"></td>
<td style="border-bottom:0;text-align:center;"><input type="text" name="<%=nowlm(8)%>" style="width:80%;text-align:center;" value="0"></td>
<td style="border-bottom:0;border-right:0;text-align:center;"><input type="text" name="<%=nowlm(8)%>" style="width:80%;text-align:center;" value="0"></td>
</tr>
</table>
</td>
</tr>
<tr id="add_5" style="display: none;">
<td class="zq"> </td>
<td> <input type="button" onclick="check_add();" value="确认添加"></td>
</tr>
<tr id="add_6" style="display: none;">
<td class="zq"> </td>
<td> <input type="button" onclick="check_edit();" value="确认修改"></td>
</tr>
</table>
<input type="hidden" name="modinfo"><input type="hidden" name="actions"><input type="hidden" name="check_num" value="0">
<%
End Sub
'****************************************************
'名称:plan_iframe_jstable
'功能:接收表单提交过来的值
'****************************************************
Sub plan_iframe_jstable()
cou_id = che(request("cou_id"))
tea_id = che(request("tea_id"))
addr_id = che(request("addr_id"))
couinfo = che(request("couinfo"))
End Sub
'****************************************************
'名称:plan_iframe_sqltable
'功能:将值提交入库
'参数:types 为空或 "add" 判断是修改记录还是添加记录
'****************************************************
Sub plan_iframe_sqltable(types)
rs("cou_id") = cou_id
rs("tea_id") = tea_id
rs("addr_id") = addr_id
rs("couinfo") = couinfo
If types="add" Then
rs("cla_id") = cla_id
rs("sem_id") = sem_id
End If
End Sub
Sub plan_iframe_listinfos()
%>
<style type="text/css">
body {min-width:200px;width:100%;background: #fff;}
.couarr_iframe td {background: #fff;line-height:20px;height:22px;border-bottom:1px solid #f8f8f8;}
</style>
<table width="600" cellspacing="1" cellpadding="0" class="info_tab2 couarr_iframe" style="clear:left;margin:0;padding:0;">
<form method=post action="admin_couarr_iframe.asp?action=del&cla_id=<%=cla_id%>&sem_id=<%=sem_id%>" name="del">
<%
sql="select a.id,a.cou_id,a.tea_id,a.addr_id,a.couinfo,"&_
"b.addr,c.tea_name,d.cou "&_
"from couarr_plans as a,"&_
"couarr_addr as b, "&_
"admin_tea as c, "&_
"res_cou as d "&_
"where a.tea_id=c.id and a.addr_id=b.id and a.cou_id=d.id and a.cla_id="&cla_id&" and a.sem_id="& sem_id &_
" order by a.id desc"
rs_plan = connopen(sql)
Dim couinfo_all(4)
If IsArray(rs_plan) Then
For rs_plan_i=0 To UBound(rs_plan,2)
arr_couinfo=Split(rs_plan(4,rs_plan_i),", ")
%>
<tr>
<td style="width:30px;text-align:center;text-indent: 4px;">
<input name='id' type='checkbox' class="chek" onclick="check_num(this);" id="ArticleID" value='<%=rs_plan(0,rs_plan_i)%>' style=" border: 0px">
<input type="hidden" name="infos_<%=rs_plan(0,rs_plan_i)%>" value="<%=rs_plan(1,rs_plan_i)%>{$$}<%=rs_plan(2,rs_plan_i)%>{$$}<%=rs_plan(3,rs_plan_i)%>{$$}<%=arr_couinfo(0)%>{$$}<%=arr_couinfo(1)%>{$$}<%=arr_couinfo(2)%>{$$}<%=arr_couinfo(3)%>"> </td>
<td style="width:130px;"><%=rs_plan(7,rs_plan_i)%></td>
<td style="width:80px;"><%=rs_plan(6,rs_plan_i)%></td>
<td style="width:120px;"><%=rs_plan(5,rs_plan_i)%></td>
<%For couinfo_i=1 To 4
res "<td style=""width:40px;text-align:center;"">"&arr_couinfo(couinfo_i-1)&"</td>",1
couinfo_all(0)=Int(couinfo_all(0))+Int(arr_couinfo(couinfo_i-1))
couinfo_all(couinfo_i)=Int(couinfo_all(couinfo_i))+Int(arr_couinfo(couinfo_i-1))
next%>
<td style="width:80px;">修改｜删除</td>
</tr>
<%
Next
Else
For couinfo_i=0 To 4
couinfo_all(couinfo_i)=0
next
res "<tr><td style=""width:100%;text-align:center;text-indent: 4px;height:190px;"">当前还没有教学计划</td></tr>",1
End If
res "<script language=""JavaScript"">top.frmright.$val(""Totals"").innerHTML="" 总课时："&couinfo_all(0)&" | 早自习："&couinfo_all(1)&" | 上午："&couinfo_all(2)&" | 下午："&couinfo_all(3)&" | 晚自习："&couinfo_all(4)&""";top.frmright.$val(""check_num"").value=0;</script>",0
%>
</form>
</table>
<%
End Sub
'====================================课程分布=================================================================
Dim rs_dis
'****************************************************
'名称:dis_iframe_jstable
'功能:接收表单提交过来的值
'****************************************************
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -