admin_res_cla_inc.asp

da jia lai kan kan hao dong dong

<%

'****************************************************
'名称:nowmenu
'功能:管理快捷菜单
'****************************************************
Sub nowmenu()
res "<h4><b>相关操作：</b>",1
res "<a href=""?action=add"">添加新班级</a> | ",1
res "<a href=""?action=list"">班级列表管理</a> ",1
res "</h4>",1
res "<div style=""height:3px;width:100%;background: #fff;""></div>",1
End Sub

'****************************************************
'名称:jstable
'功能:接收表单提交过来的值
'****************************************************
Sub jstable()

	cla = che(request("cla"))
	con = che(request("con"))
End Sub

'****************************************************
'名称:sqltable
'功能:将值提交入库
'参数:types 为空或 "add" 判断是修改记录还是添加记录
'****************************************************
Sub sqltable(types)
	If types="add" Then 
		rs("pro_id") = pro_id
		rs("Col_id") = Col_id
		rs("lj_id") = lj_id
	End If
	rs("cla") = cla
	rs("con") = con
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")[1].options[$("select")[1].selectedIndex].value
	var check_pro=$("select")[2].options[$("select")[2].selectedIndex].value
	window.location.href="admin_res_cla.asp?action=<%=action%>&page=<%=page%>&lj_id="+check_lj+"&Col_id="+check_Col+"&pro_id="+check_pro;
}
//-->
</SCRIPT>

<H6>切换查看： <a href="admin_res_cla.asp?action=list">全部</a> </H6>
<h5>
<ul>
	<li>年&nbsp;&nbsp;&nbsp;&nbsp;届 <SELECT NAME="<%=claslm(0)%>"><%=my_sqlsel(lj_id,"lj")%></SELECT> 
	<li>系&nbsp;&nbsp;&nbsp;&nbsp;所 <SELECT NAME="<%=claslm(1)%>" onchange="checkCols();"><%=my_sqlsel(Col_id,"Col")%></SELECT> 
	<li>专&nbsp;&nbsp;&nbsp;&nbsp;业 <SELECT NAME="<%=claslm(2)%>"><option>请选择...</option></SELECT> <SPAN></SPAN>
	<li class="lefts">&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;">选</th>
		<th width="5%">ID</th>
		<th width="10%">年届</th>
		<th width="20%">系所</th>
		<th width="20%">专业</th>
		<th width="20%">班级</th>
		<th width="15%">操作</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
	sql="select a.id,a.cla,b.lj,c.Col,d.pro "&_
		" from res_cla as a,"&_
			"res_lj as b,"&_
			"res_Col as c,"&_
			"res_pro as d "&_
		" where a.lj_id=b.id "&_
			"and a.Col_id=c.id "&_
			"and a.pro_id=d.id "&_
			"and a.Col_id=d.Col_id "&_
			Sql_Conditions&" order by a.id desc"
	strFileName="admin_res_cla.asp?action="&action&"&lj_id="&lj_id&"&Col_id="&Col_id&"&pro_id="&pro_id
	colnum="8"
	formaction="admin_res_cla.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">
				<input name='id' type='checkbox' class="chek" onclick="unselectall()" id="ArticleID" value='<%=Rs(0)%>' style=" border: 0px"> 
			</td>
			<td class="art_info2">&nbsp;<%=rs(0)%></td>
			<td class="art_info2">&nbsp;<%=rs(2)%></td>
			<td class="art_info2">&nbsp;<%=rs(3)%></td>
			<td class="art_info2">&nbsp;<%=rs(4)%></td>
			<td class="art_info2">&nbsp;<%=rs(1)%></td>
			<td class="art_info2">&nbsp;<A HREF="admin_res_cla.asp?action=edit&id=<%=Rs(0)%>">修改</A>｜<A HREF="admin_res_cla.asp?action=del&id=<%=Rs(0)%>">删除</A></td>
			<td class="art_info2"> </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_cla.asp?action=save" name="edit">


	<TR><TD class="zq" width="20%"><%=clas(0)%></TD>
		<TD>&nbsp;<SELECT NAME="<%=claslm(0)%>"><%=my_sqlsel(lj_id,"lj")%></SELECT>
		&nbsp;<BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=clas(1)%></TD>
		<TD>&nbsp;<SELECT NAME="<%=claslm(1)%>" onchange="checkCols();"><%=my_sqlsel(Col_id,"Col")%></SELECT>
		&nbsp;<BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=clas(2)%></TD>
		<TD>&nbsp;<SELECT NAME="<%=claslm(2)%>"><option>请选择...</option></SELECT>
		&nbsp;<span id="<%=claslm(2)%>_txt"></span><BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=clas(3)%></TD>
		<TD>&nbsp;<input name="<%=claslm(3)%>" type="text" maxlength="20" value="" class="put"/>
		&nbsp;<span id="<%=claslm(3)%>_txt">*</span><BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=clas(4)%></TD>
		<TD>&nbsp;<TEXTAREA NAME="<%=claslm(4)%>" ROWS="" COLS=""></TEXTAREA>
		&nbsp;<span id="<%=claslm(4)%>_txt">*</span><BR>
		</td>
	</tr>
	<TR><TD>&nbsp;</TD><TD>&nbsp;<input type="submit" name="send" value=" 确 认 ">
	<INPUT TYPE="hidden" NAME="id" value="<%=id%>">
	</TD></TR>
	</FORM>
	</TABLE>
<%
check_auto
end Sub

'****************************************************
'名称:editinfos
'功能:编辑信息
'****************************************************
Sub editinfos()
	If id="" Then errormsg "参数错误！"
	Sql_Lists="id,cla,lj_id,Col_id,pro_id,con"
	Sql_tables=" res_cla"
	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_cla.asp?action=mod" name="edit">
	<TR><TD class="zq" width="20%"><%=clas(0)%></TD>
		<TD>&nbsp;<SELECT NAME="<%=claslm(0)%>" disabled><%=my_sqlsel(rs_edit(2,0),"lj")%></SELECT>
		&nbsp;<BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=clas(1)%></TD>
		<TD>&nbsp;<SELECT NAME="<%=claslm(1)%>" disabled><%=my_sqlsel(rs_edit(3,0),"Col")%></SELECT>
		&nbsp;<BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=clas(2)%></TD>
		<TD>&nbsp;<SELECT NAME="<%=claslm(2)%>" disabled></SELECT>
		&nbsp;<span id="<%=claslm(2)%>_txt"></span><BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=clas(3)%></TD>
		<TD>&nbsp;<input name="<%=claslm(3)%>" type="text" maxlength="20" value="<%=rs_edit(1,0)%>" class="put"/>
		&nbsp;<span id="<%=claslm(3)%>_txt">*</span><BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=clas(4)%></TD>
		<TD>&nbsp;<TEXTAREA NAME="<%=claslm(4)%>" ROWS="" COLS=""><%=rs_edit(5,0)%></TEXTAREA>
		&nbsp;<span id="<%=claslm(4)%>_txt">*</span><BR>
		</td>
	</tr>
	<TR><TD>&nbsp;</TD><TD>&nbsp;<input type="submit" name="send" value=" 确 认 ">
	<INPUT TYPE="hidden" NAME="id" value="<%=id%>">
	</TD></TR>
	</FORM>
	</TABLE>
<SCRIPT LANGUAGE="JavaScript">
postCols("<%=rs_edit(3,0)%>");
function checkcourses(){
setSel2(<%=rs_edit(4,0)%>,$("SELECT")[2]);
}
</SCRIPT>
<%
end sub 

Sub check_auto()
res "<SCRIPT LANGUAGE=""JavaScript"">",1
if Col_id<>0 Then response.write "postCols("""&Col_id&""");"
res "function checkcourses(){",1
if pro_id<>0 Then response.write "setSel2("&pro_id&",$(""SELECT"")[2]);"
res "}",1
res "</SCRIPT>",1
End Sub
%>