admin_couarr_iframe.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 cou_id,tea_id,addr_id,couinfo,cla_id,sem_id,pro_id,Col_id,lj_id
action=che(request("action"))
id=che(request("id"))
Dim nows(5)
nows(0)="课程"
nows(1)="任课教师"
nows(2)="教学场地"
nows(3)="课时安排"
nows(4)="班级"
nows(5)="学期"
Dim nowlm(5)
nowlm(0)="cou_id"
nowlm(1)="tea_id"
nowlm(2)="addr_id"
nowlm(3)="couinfo"
nowlm(4)="cla_id"
nowlm(5)="sem_id"

pro_id = che(request("pro_id"))
Col_id = che(request("Col_id"))
lj_id = che(request("lj_id"))
cla_id = che(request("cla_id"))
sem_id = che(request("sem_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 Not IsNumeric(cla_id) Then cla_id=0
If Not IsNumeric(sem_id) Then sem_id=0

If action="list" Then
	'restit nowtit,infotit(0)
	const MaxPerPage=10
	plan_iframe_listinfos
ElseIf action="save" Then
	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 "?action=list&cla_id="&cla_id&"&sem_id="&sem_id
ElseIf action="mod" Then

	Response.Redirect "?action=list&cla_id="&cla_id&"&sem_id="&sem_id
ElseIf action="del" Then

	Response.Redirect "?action=list&cla_id="&cla_id&"&sem_id="&sem_id
End If

%>