www.gusucode.com > 25175 学生同学录管理系统 2007 build 1231D源码程序 > admin/common/admin_res_cla_inc.asp
<% '**************************************************** '名称: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="?action=<%=action%>&page=<%=page%>&lj_id="+check_lj+"&Col_id="+check_Col+"&pro_id="+check_pro; } //--> </SCRIPT> <H6>切换查看: <a href="?action=list">全部</a> </H6> <h5> <ul> <li>年 届 <SELECT NAME="<%=claslm(0)%>"><%=my_sqlsel(lj_id,"lj")%></SELECT> <li>系 所 <SELECT NAME="<%=claslm(1)%>" onchange="checkCols();"><%=my_sqlsel(Col_id,"Col")%></SELECT> <li>专 业 <SELECT NAME="<%=claslm(2)%>"><option>请选择...</option></SELECT> <SPAN></SPAN> <li class="lefts"> <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_Lists = "a.id,a.cla,b.lj,c.Col,d.pro" Sql_tables = "res_cla as a,"&_ "res_lj as b,"&_ "res_Col as c,"&_ "res_pro as d " Sql_Conditions = "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 Sql_Sortings = "a.id" Sql_Orders = 1 sql=Sqlinfo(Sql_Lists,Sql_tables,Sql_Conditions,Sql_Sortings,Sql_Orders) strFileName="?action="&action&"&lj_id="&lj_id&"&Col_id="&Col_id&"&pro_id="&pro_id colnum="8" formaction="?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"> <%=rs(0)%></td> <td class="art_info2"> <%=rs(2)%></td> <td class="art_info2"> <%=rs(3)%></td> <td class="art_info2"> <%=rs(4)%></td> <td class="art_info2"> <%=rs(1)%></td> <td class="art_info2"> <A HREF="?action=edit&id=<%=Rs(0)%>">修改</A>|<A HREF="?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="?action=save" name="edit"> <TR><TD class="zq" width="20%"><%=clas(0)%></TD> <TD> <SELECT NAME="<%=claslm(0)%>"><%=my_sqlsel(lj_id,"lj")%></SELECT> <BR> </td> </tr> <TR><TD class="zq" width="20%"><%=clas(1)%></TD> <TD> <SELECT NAME="<%=claslm(1)%>" onchange="checkCols();"><%=my_sqlsel(Col_id,"Col")%></SELECT> <BR> </td> </tr> <TR><TD class="zq" width="20%"><%=clas(2)%></TD> <TD> <SELECT NAME="<%=claslm(2)%>"><option>请选择...</option></SELECT> <span id="<%=claslm(2)%>_txt"></span><BR> </td> </tr> <TR><TD class="zq" width="20%"><%=clas(3)%></TD> <TD> <input name="<%=claslm(3)%>" type="text" maxlength="20" value="" class="put"/> <span id="<%=claslm(3)%>_txt">*</span><BR> </td> </tr> <TR><TD class="zq" width="20%"><%=clas(4)%></TD> <TD> <TEXTAREA NAME="<%=claslm(4)%>" ROWS="" COLS=""></TEXTAREA> <span id="<%=claslm(4)%>_txt">*</span><BR> </td> </tr> <TR><TD> </TD><TD> <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=Sqlinfo("id,cla,lj_id,Col_id,pro_id,con"," res_cla"," id="&id) 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="?action=mod" name="edit"> <TR><TD class="zq" width="20%"><%=clas(0)%></TD> <TD> <SELECT NAME="<%=claslm(0)%>" disabled><%=my_sqlsel(rs_edit(2,0),"lj")%></SELECT> <BR> </td> </tr> <TR><TD class="zq" width="20%"><%=clas(1)%></TD> <TD> <SELECT NAME="<%=claslm(1)%>" disabled><%=my_sqlsel(rs_edit(3,0),"Col")%></SELECT> <BR> </td> </tr> <TR><TD class="zq" width="20%"><%=clas(2)%></TD> <TD> <SELECT NAME="<%=claslm(2)%>" disabled></SELECT> <span id="<%=claslm(2)%>_txt"></span><BR> </td> </tr> <TR><TD class="zq" width="20%"><%=clas(3)%></TD> <TD> <input name="<%=claslm(3)%>" type="text" maxlength="20" value="<%=rs_edit(1,0)%>" class="put"/> <span id="<%=claslm(3)%>_txt">*</span><BR> </td> </tr> <TR><TD class="zq" width="20%"><%=clas(4)%></TD> <TD> <TEXTAREA NAME="<%=claslm(4)%>" ROWS="" COLS=""><%=rs_edit(5,0)%></TEXTAREA> <span id="<%=claslm(4)%>_txt">*</span><BR> </td> </tr> <TR><TD> </TD><TD> <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 %>