admin_couarr_plan.asp

da jia lai kan kan hao dong dong

<!--#include file="../conn.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="common/admin_couarr_inc.asp"-->
<%
HTMLother= script("admin_couarr","")
res w3chead(HTMLother),1
Login_Judge
nowtit="教学计划"
powerid=1242
	Ispower powerid
Dim lj_id,Col_id,pro_id
action=che(request("action"))
id=che(request("id"))
Dim nows(8)
nows(0)="年届"
nows(1)="学期"
nows(2)="系所"
nows(3)="专业"
nows(4)="班级"
nows(5)="课程"
nows(6)="任课教师"
nows(7)="教学场地"
nows(8)="课时"
Dim nowlm(8)
nowlm(0)="lj_id"
nowlm(1)="sem_id"
nowlm(2)="Col_id"
nowlm(3)="pro_id"
nowlm(4)="cla_id"
nowlm(5)="cou_id"
nowlm(6)="tea_id"
nowlm(7)="addr"
nowlm(8)="couinfo"
pro_id = che(request("pro_id"))
Col_id = che(request("Col_id"))
lj_id = che(request("lj_id"))
If Not IsNumeric(lj_id) Then lj_id=0
If Not IsNumeric(Col_id) Then Col_id=0
If Not IsNumeric(pro_id) Then pro_id=0


If action="list" Then
	restit nowtit,infotit(0)
	const MaxPerPage=10
	nowmenu
	plan_listinfos
ElseIf action="save" Then
	Ispower powerid
	plan_iframe_jstable
	If couinfo = ", , , " Then response.end
	'errormsg "参数错误"
	set rs=server.createobject("adodb.recordset")
	Sql = "SELECT * FROM [couarr_plans] WHERE id=0"
	rs.Open Sql, Conn, 1, 3
	rs.AddNew
	plan_iframe_sqltable("add")
	rs.Update
	rs.close
	Response.Redirect "admin_couarr_iframe.asp?action=list&cla_id="&cla_id&"&sem_id="&sem_id
ElseIf action="mod" Then
	
	Response.Redirect "admin_couarr_iframe.asp?action=list&cla_id="&cla_id&"&sem_id="&sem_id
ElseIf action="del" Then
	if id="" Then response.End
	set dels=conn.execute("delete from couarr_plans where id in ("&id&")")
	set dels=Nothing 
	Response.Redirect "admin_couarr_iframe.asp?action=list&cla_id="&cla_id&"&sem_id="&sem_id
End If

res footer(1),0
%>