admin_res_cou_cho_inc.asp

da jia lai kan kan hao dong dong

<%
Dim arr_t_id(2)
arr_t_id(1)="选修"
arr_t_id(2)="必修"
Dim couweek_i,couweek_ii
dimarr "weeksinfo"
'****************************************************
'名称:nowmenu
'功能:管理快捷菜单
'****************************************************
Sub nowmenu()
res "<h4><b>相关操作：</b>",1
res "<a href=""admin_res_cou_cho_type.asp?action=add"">添加新项目</a> | ",1
res "<a href=""admin_res_cou_cho_type.asp?action=list"">项目列表管理</a> | ",1
res "<a href=""admin_res_cou_cho.asp?action=add"">添加新选课</a> | ",1
res "<a href=""admin_res_cou_cho.asp?action=list"">选课列表管理</a> ",1
res "</h4>",1
res "<div style=""height:3px;width:100%;background: #fff;""></div>",1
End Sub


'****************************************************
'名称:jstable
'功能:接收表单提交过来的值
'****************************************************
Sub jstable()
	cou = che(request("cou"))
	begins = che(request("begins"))
	tea_id = che(request("tea_id"))
	cho_cousses = che(request("cho_cousses"))
	weekinfo = che(request("weekinfo"))
	Num_top = che(request("Num_top"))
	ends = che(request("ends"))
	addr = che(request("addr"))
	con = che(request("con"))
	Credits = che(request("Credits"))
	weekinfo=""
	For arr_couweeks_i =1 To UBound(arr_couweeks)
		If arr_couweeks_i>1 Then jg="||"
		If che(request("z"&arr_couweeks_i))="" Then
			weekinfo=weekinfo&jg&"0"
		Else
			weekinfo=weekinfo&jg&che(request("z"&arr_couweeks_i))
		End If
	next
End Sub

'****************************************************
'名称:sqltable
'功能:将值提交入库
'参数:types 为空或 "add" 判断是修改记录还是添加记录
'****************************************************
Sub sqltable(types)
	If types="add" Then 
		rs("lj_id") = lj_id
		rs("t_cho") = t_cho
		rs("Col_id") = Col_id
		rs("pro_id") = pro_id

	End If
	rs("Opens") = Opens
	rs("cou") = cou
	rs("begins") = begins
	rs("tea_id") = tea_id
	rs("cho_cousses") = cho_cousses
	rs("weekinfo") = weekinfo
	rs("Num_top") = Num_top
	rs("ends") = ends
	rs("addr") = addr
	rs("con") = con
	rs("Credits") = Credits

End Sub


'****************************************************
'名称:listinfo
'功能:列表
'****************************************************
Sub listinfos()
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function check_list()	{
	var check_lj=$("select")[0].options[$("select")[0].selectedIndex].value;
	var check_Col=$("select")[2].options[$("select")[2].selectedIndex].value;
	var check_pro=$("select")[3].options[$("select")[3].selectedIndex].value;
	var check_t_cho=$("select")[1].options[$("select")[1].selectedIndex].value;
	var check_Opens=$("select")[4].options[$("select")[4].selectedIndex].value;
	window.location.href="admin_res_cou_cho.asp?action=<%=action%>&page=<%=page%>&lj_id="+check_lj+"&Col_id="+check_Col+"&pro_id="+check_pro+"&t_cho="+check_t_cho+"&Opens="+check_Opens;
}
//-->
</SCRIPT>
<H6>切换查看： <a href="admin_res_cou_cho.asp?action=list">全部</a> </H6>
<h5>
<ul>
	<li>年&nbsp;&nbsp;&nbsp;&nbsp;届 <SELECT NAME="<%=cho_couslm(0)%>" onchange="checkljs();"><%=my_sqlsel(lj_id,"lj")%></SELECT> 
	<li>项&nbsp;&nbsp;&nbsp;&nbsp;目 <SELECT NAME="<%=cho_couslm(1)%>"><option>请选择...</option></SELECT> <SPAN></SPAN>
	<li>系&nbsp;&nbsp;&nbsp;&nbsp;所 <SELECT NAME="<%=cho_couslm(2)%>" onchange="checkCols();"><%=my_sqlsel(Col_id,"Col")%></SELECT> 
	<li>专&nbsp;&nbsp;&nbsp;&nbsp;业 <SELECT NAME="<%=cho_couslm(3)%>"><option>请选择...</option></SELECT> <SPAN></SPAN>
	<li>状&nbsp;&nbsp;&nbsp;&nbsp;态 <SELECT NAME="<%=cho_couslm(4)%>"><%=t_select(Opens)%></SELECT>
	<li>&nbsp;<INPUT TYPE="button" value=" 切 换 " onclick="check_list();">
</ul>
</h5>
	<table width="100%" align="center" border="1" class="info_tab2">
	<tr> 
		<th width="5%" style="text-align:center;text-indent: 4px;">
			<input name="chkAll" class="chek" type="checkbox" id="chkAll" 
			onclick=CheckAll(this.form) value="checkbox" style=" border: 0px;width:15px;"></th>
		<th width="5%">年届</th>
		<th width="18%">项目</th>
		<th width="18%">系所</th>
		<th width="18%">专业</th>
		<th width="18%">课程</th>
		<th width="10%">任课老师</th>
		<th width="5%">状态</th>
		<th width="1"> </th>
	</tr>
	<%
	Sql_Conditions=""
	If lj_id<>0 Then Sql_Conditions=" and a.lj_id="&lj_id
	If Col_id<>0 Then Sql_Conditions=Sql_Conditions&" and a.Col_id="&Col_id
	If pro_id<>0 Then Sql_Conditions=Sql_Conditions&" and a.pro_id="&pro_id
	If Opens<>0 Then Sql_Conditions=Sql_Conditions&" and a.Opens="&Opens
	If t_cho<>0 Then Sql_Conditions=Sql_Conditions&" and a.t_cho="&t_cho
	sql="select a.id,a.cou,a.tea_id,a.begins,a.ends,"&_
		"a.Opens,b.lj,c.Col,d.pro,e.cho_name"&_
		" from res_cou_cho as a,"&_
			"res_lj as b,"&_
			"res_Col as c,"&_
			"res_pro as d,"&_
			"res_cou_cho_type as e"&_
		" where a.lj_id=b.id "&_
			"and a.Col_id=c.id "&_
			"and a.pro_id=d.id "&_
			"and a.t_cho=e.id "&_
			Sql_Conditions&" order by a.id desc"
	strFileName="admin_res_cou_cho.asp?action="&action&"&lj_id="&lj_id&"&Col_id="&Col_id&"&pro_id="&pro_id
	colnum="8"
	formaction="admin_res_cou_cho.asp?action=del"
	sqllist sql,colnum,strFileName,formaction
	
	If outcom=True Then
	showContent
	showdelpages
	End If
	%>
	</TABLE>
<%
check_auto
end sub 

'****************************************************
'名称:showContent
'功能:翻页列表输出
'****************************************************
sub showContent
	dim i
	i=0
	do while not rs.eof
		%>
		<tr> 
			<td class="art_info2" align="center" rowspan=2>
				<input name='id' type='checkbox' class="chek" onclick="unselectall()" id="ArticleID" value='<%=Rs(0)%>' style=" border: 0px"> 
			</td>
			<td class="art_info2">&nbsp;<%=rs(6)%></td>
			<td class="art_info2">&nbsp;<%=CutStr(rs(9),16)%></td>
			<td class="art_info2">&nbsp;<%=CutStr(rs(7),16)%></td>
			<td class="art_info2">&nbsp;<%=CutStr(rs(8),16)%></td>
			<td class="art_info2">&nbsp;<%=CutStr(rs(1),16)%></td>
			<td class="art_info2">&nbsp;<%=rs(2)%></td>
			<td class="art_info2">&nbsp;<%=arr_Opens(rs(5))%></td>
			<td class="art_info2"> </td>
		</tr>
		<tr>
			<td class="art_info2" colspan="<%=colnum-1%>">
			<span style="float:right;"><A HREF="admin_res_cou_cho.asp?action=edit&id=<%=Rs(0)%>">修改</A>｜<A HREF="admin_res_cou_cho.asp?action=del&id=<%=Rs(0)%>">删除</A></span>
			<span style="color: #CCCCCC;">开课日期：<%=rs(3)%>&nbsp;&nbsp;&nbsp;&nbsp;选课截止日期：<%=rs(4)%></span></td>
		</tr>
	<%
		i=i+1
		if i>=MaxPerPage then exit do
		rs.movenext
	loop
end Sub
  

'****************************************************
'名称:addinfos
'功能:添加信息
'****************************************************
Sub addinfos()

%>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
	<FORM METHOD=POST ACTION="admin_res_cou_cho.asp?action=save" name="edit">


	<TR><TD class="zq" width="20%"><%=cho_cous(0)%></TD>
		<TD>&nbsp;<SELECT NAME="<%=cho_couslm(0)%>" onchange="checkljs();"><%=my_sqlsel(lj_id,"lj")%></SELECT>
		&nbsp;<BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=cho_cous(1)%></TD>
		<TD>&nbsp;<SELECT NAME="<%=cho_couslm(1)%>"><option>请选择...</option></SELECT>
		&nbsp;<span id="<%=cho_couslm(3)%>_txt"></span><BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%" colspan=2><B>举办单位</B>&nbsp;</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=cho_cous(2)%></TD>
		<TD>&nbsp;<SELECT NAME="<%=cho_couslm(2)%>" onchange="checkCols();"><%=my_sqlsel(Col_id,"Col")%></SELECT> 
		&nbsp;<BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=cho_cous(3)%></TD>
		<TD>&nbsp;<SELECT NAME="<%=cho_couslm(3)%>"><option>请选择...</option></SELECT>
		&nbsp;<span id="<%=cho_couslm(3)%>_txt"></span><BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=cho_cous(6)%></TD>
		<TD>&nbsp;<input name="<%=cho_couslm(6)%>" type="text" maxlength="4" value="" class="put"/>
		&nbsp;<span id="<%=cho_couslm(6)%>_txt">*</span><BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%" colspan=2><B>课程资料</B>&nbsp;</td>
	<TR><TD class="zq" width="20%"><%=cho_cous(4)%></TD>
		<TD>&nbsp;<input name="<%=cho_couslm(4)%>" type="text" maxlength="20" value="" class="put"/>
		&nbsp;<span id="<%=cho_couslm(4)%>_txt">*</span><BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=cho_cous(14)%></TD>
		<TD>&nbsp;<input name="<%=cho_couslm(14)%>" type="text" maxlength="5" value="00.00" style="width:200px;ime-mode:disabled;" onkeypress="var k=event.keyCode; if ((k<=57 &&k>=46&&k!=47)) return true;else return false" onpaste="return false"/>
		&nbsp;<span id="<%=cho_couslm(14)%>_txt">*</span><BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=cho_cous(13)%></TD>
		<TD>&nbsp;<SELECT NAME="<%=cho_couslm(13)%>"><%=t_select(1)%></SELECT>
		&nbsp;<span id="<%=cho_couslm(13)%>_txt">*</span><BR>
		</td>
	</tr>
	
	
	<TR><TD class="zq" width="20%"><%=cho_cous(9)%></TD>
		<TD>&nbsp;<input name="<%=cho_couslm(9)%>" type="text" maxlength="4" value="" style="width:200px;ime-mode:disabled;" onkeypress="var k=event.keyCode; if ((k<=57 &&k>=48)) return true;else return false" onpaste="return false"/>
		&nbsp;<span id="<%=cho_couslm(9)%>_txt">*</span><BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=cho_cous(5)%></TD>
		<TD>&nbsp;<input name="<%=cho_couslm(5)%>" type="text" onclick="setday(this)" value="<%=Date()%>" class="put" readonly/>
		&nbsp;<span id="<%=cho_couslm(5)%>_txt">*</span><BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=cho_cous(10)%></TD>
		<TD>&nbsp;<input name="<%=cho_couslm(10)%>" type="text" onclick="setday(this)" value="<%=Date()%>" class="put" readonly/>
		&nbsp;<span id="<%=cho_couslm(10)%>_txt">*</span><BR>
		</td>
	</tr>
		<TR><TD class="zq" width="20%"><%=cho_cous(11)%></TD>
		<TD>&nbsp;<INPUT TYPE="text" NAME="<%=cho_couslm(11)%>" maxlength="20" class="put">
		&nbsp;<span id="<%=cho_couslm(11)%>_txt">*</span><BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=cho_cous(7)%></TD>
		<TD>&nbsp;<input name="<%=cho_couslm(7)%>" type="text" maxlength="3" value="" style="width:200px;ime-mode:disabled;" onkeypress="var k=event.keyCode; if ((k<=57 &&k>=48)) return true;else return false" onpaste="return false" />
		&nbsp;<span id="<%=cho_couslm(7)%>_txt">*</span><BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=cho_cous(8)%></TD>
		<TD><%couweek%><span id="<%=cho_couslm(8)%>_txt"></span><BR>
		</td>
	</tr>

	<TR><TD class="zq" width="20%"><%=cho_cous(12)%></TD>
		<TD>&nbsp;<TEXTAREA NAME="<%=cho_couslm(12)%>" ROWS="10" maxlength="20" COLS="" style="width:295px;"></TEXTAREA>
		&nbsp;<span id="<%=cho_couslm(12)%>_txt">*</span><BR>
		</td>
	</tr>
	
	<TR><TD>&nbsp;</TD><TD>&nbsp;<input type="submit" name="send" value="确认添加">
	</TD></TR>
	</FORM>
	</TABLE>
<%
check_auto
end Sub


Sub couweek()
	res "<table border=0 class=""info_tab"" cellspacing=""1"" cellpadding=""0"" style=""width:300px;margin-left:2px;"" align=""left"">",1
	%>
	  <tr align="center">
		<td width=60>星期</td>
		<td width=40>早</td>
		<td width=40>1-2</td>
		<td width=40>3-4</td>
		<td width=40>5-6</td>
		<td width=40>7-8</td>
		<td width=40>晚</td>
	  </tr>
	<%

	For couweek_i=1 To 7
		res "<tr align=""center"">",1
		res "<td>星期"&weeksinfo(couweek_i)&"</td>",1
		For couweek_ii=1 To 6
		res "<td><INPUT style=""border:0;"" TYPE=""checkbox"" NAME=""z"&couweek_i&""" value="""&couweek_ii&""" ",0
		If arr_couweeks(couweek_i)<>"" And Replace(arr_couweeks(couweek_i),couweek_ii,"")<>arr_couweeks(couweek_i) Then res " checked ",0
		res "></td>",1
		next
		res "</tr>",1
	next
	res "</table>",0
End Sub
'****************************************************
'名称:editinfos
'功能:编辑信息
'****************************************************
Sub editinfos()
	If id="" Then errormsg "参数错误！"
	Sql_Lists="lj_id,t_cho,Col_id,pro_id,tea_id,cou,Credits,Opens,Num_top,begins,ends,addr,cho_cousses,weekinfo,con"
	Sql_tables=" res_cou_cho"
	Sql_Conditions=" id="&id
	sql=Sqlinfo(Sql_Lists,Sql_tables,Sql_Conditions,Sql_Sortings,Sql_Orders,Sql_Additional)
	rs_edit = connopen(sql)
	If isArray(rs_edit)=False Then errormsg "参数错误"
	%>
	<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
	<FORM METHOD=POST ACTION="admin_res_cou_cho.asp?action=mod" name="edit">


	<TR><TD class="zq" width="20%"><%=cho_cous(0)%></TD>
		<TD>&nbsp;<SELECT NAME="<%=cho_couslm(0)%>" onchange="checkljs();" disabled><%=my_sqlsel(rs_edit(0,0),"lj")%></SELECT>
		&nbsp;<BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=cho_cous(1)%></TD>
		<TD>&nbsp;<SELECT NAME="<%=cho_couslm(1)%>" disabled><option>请选择...</option></SELECT>
		&nbsp;<span id="<%=cho_couslm(3)%>_txt"></span><BR>
		</td>