📄 admin_res_cou_inc.asp
字号:
<%
dimarr "Sem"
Dim arr_t_id(2)
arr_t_id(1)="选修"
arr_t_id(2)="必修"
'****************************************************
'名称: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()
cou = che(request("cou"))
con = che(request("con"))
tea_id = che(request("tea_id"))
sem_ids = che(request("sem_ids"))
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("t_id") = t_id
rs("tea_id") = tea_id
rs("cou") = cou
rs("con") = con
rs("sem_ids") = sem_ids
End Sub
'****************************************************
'名称:sqlsave
'功能:添加处理函数
'****************************************************
Sub sqlsave()
sql=Sqlinfo("*","res_cou","id=0","","","")
set rs=server.createobject("adodb.recordset")
rs.Open Sql, Conn, 1, 3
rs.AddNew
sqltable "add"
rs.Update
rs.close
End Sub
'****************************************************
'名称:sqlmod
'功能:修改处理函数
'****************************************************
Sub sqlmod()
set rs=server.createobject("adodb.recordset")
sql=Sqlinfo("*","res_cou","id="&id,"","","")
rs.Open Sql, Conn, 1, 3
If Not rs.Eof Then
sqltable "mod"
rs.Update
Else
errormsg "参数错误"
End If
rs.close
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;
var check_t_id=$("select")[3].options[$("select")[3].selectedIndex].value;
window.location.href="admin_res_cou.asp?action=<%=action%>&page=<%=page%>&lj_id="+check_lj+"&Col_id="+check_Col+"&pro_id="+check_pro+"&t_id="+check_t_id;
}
//-->
</SCRIPT>
<H6>切换查看： <a href="admin_res_cou.asp?action=list">全部</a> </H6>
<h5>
<ul>
<li>年 届 <SELECT NAME="<%=claslm(0)%>" onchange="checkinfos('lj');"><%=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>属 性 <SELECT NAME="<%=claslm(4)%>"><%=t_select2(t_id)%></SELECT> <SPAN></SPAN>
<li> <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="6%">年届</th>
<th width="20%">系所</th>
<th width="20%">专业</th>
<th width="20%">课程</th>
<th width="10%">任课老师</th>
<th width="5%">属性</th>
<th width="10%">操作</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 t_id<>0 Then Sql_Conditions=Sql_Conditions&" and a.t_id="&t_id
sql="select a.id,a.cou,a.tea_id,b.lj,c.Col,d.pro,a.t_id "&_
" from res_cou 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 "&_
Sql_Conditions&" order by a.id desc"
strFileName="admin_res_cou.asp?action="&action&"&lj_id="&lj_id&"&Col_id="&Col_id&"&pro_id="&pro_id
colnum="9"
formaction="admin_res_cou.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 align="center">
<input name='id' type='checkbox' class="chek" onclick="unselectall()" id="ArticleID" value='<%=Rs(0)%>' style=" border: 0px">
</td>
<td> <%=rs(3)%></td>
<td> <%=rs(4)%></td>
<td> <%=rs(5)%></td>
<td> <%=rs(1)%></td>
<td> <%=rs(2)%></td>
<td> <%=arr_t_id(rs(6))%></td>
<td> <A HREF="admin_res_cou.asp?action=edit&id=<%=Rs(0)%>">修改</A>｜<A HREF="admin_res_cou.asp?action=del&id=<%=Rs(0)%>">删除</A></td>
<td> </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.asp?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(4)%></TD>
<TD> <SELECT NAME="<%=claslm(4)%>"><%=t_select2(t_id)%></SELECT>
<span id="<%=claslm(4)%>_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(5)%></TD>
<TD> <INPUT TYPE="text" NAME="<%=claslm(5)%>" maxlength="20" class="put">
<span id="<%=claslm(5)%>_txt">*</span><BR>
</td>
</tr>
<TR><TD class="zq" width="20%"><%=clas(7)%></TD>
<TD> <%
For i=1 To UBound(arr_sem)
res "<input type=""checkbox"" name="""&claslm(7)&""" value="""&i&"""> "&arr_sem(i)&" ",1
Next
%>
<span id="<%=claslm(7)%>_txt">*</span><BR>
</td>
</tr>
<TR><TD class="zq" width="20%"><%=clas(6)%></TD>
<TD> <TEXTAREA NAME="<%=claslm(6)%>" ROWS="" maxlength="20" COLS=""></TEXTAREA>
<span id="<%=claslm(6)%>_txt"></span><BR>
</td>
</tr>
<TR><TD> </TD><TD> <input type="submit" name="send" value="确认添加">
</TD></TR>
</FORM>
</TABLE>
<%
check_auto
end Sub
'****************************************************
'名称:editinfos
'功能:编辑信息
'****************************************************
Sub editinfos()
If id="" Then errormsg "参数错误！"
Sql_Lists="cou,lj_id,Col_id,pro_id,con,t_id,tea_id,sem_ids"
Sql_tables=" res_cou"
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.asp?action=mod" name="edit">
<TR><TD class="zq" width="20%"><%=clas(0)%></TD>
<TD> <SELECT NAME="<%=claslm(0)%>" disabled><%=my_sqlsel(rs_edit(1,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(2,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(4)%></TD>
<TD> <SELECT NAME="<%=claslm(4)%>"><%=t_select2(rs_edit(5,0))%></SELECT>
<span id="<%=claslm(4)%>_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(0,0)%>" class="put"/>
<span id="<%=claslm(3)%>_txt">*</span><BR>
</td>
</tr>
<TR><TD class="zq" width="20%"><%=clas(5)%></TD>
<TD> <INPUT TYPE="text" NAME="<%=claslm(5)%>" value="<%=rs_edit(6,0)%>" class="put">
<span id="<%=claslm(5)%>_txt">*</span><BR>
</td>
</tr>
<TR><TD class="zq" width="20%"><%=clas(7)%></TD>
<TD> <%
For i=1 To UBound(arr_sem)
res "<input type=""checkbox"" name="""&claslm(7)&"""",0
If rs_edit(7,0)<>"" Then
If Cstr(Replace(rs_edit(7,0),CInt(i),""))<>Cstr(rs_edit(7,0)) Then res " checked ",0
End If
res " value="""&i&"""> "&arr_sem(i)&" ",1
Next
%>
<span id="<%=claslm(7)%>_txt">*</span><BR>
</td>
</tr>
<TR><TD class="zq" width="20%"><%=clas(6)%></TD>
<TD> <TEXTAREA NAME="<%=claslm(6)%>" ROWS="" COLS=""><%=rs_edit(4,0)%></TEXTAREA>
<span id="<%=claslm(6)%>_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(2,0)%>");
function checkcourses(){
setSel2(<%=rs_edit(3,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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -